怎么知道某个数据库中否存在某个表？在线!

[风口猪炒股指标]

我想知道db.mdb中是否存在client表

[cbr7619]

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strCn As String

Set cn = New ADODB.Connection
strCn = "driver={SQL Server};server=srv;uid=sa;pwd=;database=pubs"

cn.Open strCn

Set rs = cn.OpenSchema(adSchemaTables)

Do Until rs.EOF

if rs!TABLE_NAME ="client" then
msgbox""
exit
else
rs.MoveNext
endif
Loop

rs.Close
cn.Close

[DimVar]

rst.Open "select * from dbo.sysobjects where id = object_id(N'[dbo].[tblKeyVerification]') and OBJECTPROPERTY(id, N'IsUserTable') = 1", cnn
If rst.BOF And rst.EOF Then
MsgBox "table myTable not existed"
Else
MsgBox "table myTable existed"
End If
rst.Close

[风口猪炒股指标]

抱歉我想用dao，有人会吗？

[网络老男孩了]

DimVar() 高
dao 和ado一样的道理

[DimVar]

set rst=db.openrecordset("select * from dbo.sysobjects where id = object_id(N'[dbo].[tblKeyVerification]') and OBJECTPROPERTY(id, N'IsUserTable') = 1")
If rst.BOF And rst.EOF Then
MsgBox "table not exists"
Else
MsgBox "table exists"
End If

[BadCatw]

dim tb as TableDef,yn as Boolean
db.TableDefs.Refresh
for each tb in db.TableDefs
if lcase(tb.name)="client" then
yn=true
else
yn=false
endif
next