Office中国论坛/Access中国论坛

标题: [求助] 关于用ADO 判别一个表是否存在 [打印本页]

作者: tick0701 时间: 2005-6-3 22:37
标题: [求助] 关于用ADO 判别一个表是否存在
用ADO 怎么来判别数据库中是否存在表1？谢谢了！

作者: 海狸先生 时间: 2005-6-3 23:07
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 时间: 2005-6-4 00:57
看不懂啊，我做了怎么好象是死循环？

作者: 海狸先生 时间: 2005-6-4 01:45
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编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)