数据库问题50分求救！！

[lindqp]

怎么判断某access数据库中存在某表，
知道的快来抢分，第一个解决问题者全分奉送，谢谢！

[dbcontrols]

在你硬盘上搜索Ado210.chm好好看看
这个问题以前我回答过

[junglerover]

如果是使用DAO，那么用DATABASE对象打开数据库后，可以使用
TableDefs集合，在里面有ACCESS数据库中的所有表；

如果使用ADO，那么可以使用Connection对象的
OpenSchema(adSchemaTables)
方法，获取所有表。

[gaoqi5037]

ADO帮助里的。^_^修改了一下
Public Function OpenSchemaX() AS Boolean

Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\gaoqi.mdb;Persist Security Info=False;Jet OLEDB:Database Password=gaoqi"
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
If Not Left(rstSchema!table_name, 4) = "MSys" Then
Debug.Print "Table name: " & _
rstSchema!table_name & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE
if rstschema!table_name="你的表名" then
OpenSchemaX=true
exit function
end if
End If
rstSchema.MoveNext

Loop
rstSchema.Close

cnn1.Close

End Sub

[xiaohuangtao]

dim objDatabase as Database
dim lngCounter as long
for lngCounter=0 to objDatabase .table.count-1
if objDatabase.table(lngCounter).name="绿毛网虫" then

.....................
end if
next lngCounter

[sevenuptqa]

sorry,我暂时帮不上。

[jdsbjcailei]

DAO方法：
dim db as database

from_load
set db=opendatabase(数据库)
for i=0 to db.TableDefs.count-1
if lcase(db.TableDefs(i).name)=lcase(想要知道存在的表名) then
msgbox "该表存在"
else
msgbox "该表不存在"
exit sub
end if
next i