[求助] 关于 用ADO 判别一个表是否存在

tick0701

用ADO 怎么来判别数据库中是否存在 表1？谢谢了！

海狸先生

Dim Cnxn As ADODB.Connection

    Dim rstSchema As ADODB.Recordset

    Dim strCnxn As String

      

    Set Cnxn = New ADODB.Connection

    strCnxn = "rovider='sqloledb';Data Source='MySqlServer';" & _

        "Initial Catalog='Pubs';Integrated Security='SSPI';"

    Cnxn.Open strCnxn

      

    Set rstSchema = Cnxn.OpenSchema(adSchemaTables)

   

    Do Until rstSchema.EOF

        Debug.Print "Table name: " & _

            rstSchema!TABLE_NAME & vbCr & _

            "Table type: " & rstSchema!TABLE_TYPE & vbCr

        rstSchema.MoveNext

    Loop

   

    ' clean up

    rstSchema.Close

    Cnxn.Close

    Set rstSchema = Nothing

    Set Cnxn = Nothing

tick0701

看不懂啊，我做了怎么好象是 死循环？

海狸先生

Dim i As Integer, strtbl As String

strtbl = "信息"

    Dim rstSchema As New ADODB.Recordset

    Dim strCnxn As String

    Set rstSchema = CurrentProject.Connection.OpenSchema(adSchemaTables, Array(Empty, Empty, strtbl, "TABLE"))

    If rstSchema.EOF Then MsgBox strtbl & "表不存在"

    rstSchema.Close

    Set rstSchema = Nothing

[此贴子已经被作者于2005-6-3 17:49:54编辑过]