判断数据库中是否包含有某个表?

Question

If Dir(App.Path + "/MDBdata.mdb" ) = "MDBdata.mdb" Then
是判断当前目录下是否存在MDBdata.mdb这个数据库文件，倘若我想知道此数据库
中是否包含有某个表，如何做？
用ＶＢ+ACCESS2000

Answer 1

使用错误处理方法判断，
Private Function IfTableExists(Byval TableName As String) As Boolen
   On Error Goto Err1
　 dim Conn as New Adodb.Connection 
   sql="Select * From " & TableName 
　 Conn.ConnectionStrings="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXXX.mdb"
   Conn.Open
   Conn.Execute Sql,,adCmdText　
   Exit FuntionErr1:
     IF Err.Number<>0 Then 
        Debug.Print Err.Descrption
     End IFEnd Function