如何判断一个数据表是否存在ACCESS数据库了啊

Question

在引用了ADO后如何判断一个数据表是否存在ACCESS数据库了呢.

Answer 1

'引用 Microsoft ADO Ext 2.5 for ddl and security
'引用 Microsoft ActiveX Data Objects 2.5 LibraryDim I%, TabYn As Boolean
Private Sub Form_Click()
   Call OpenConnection
End SubSub OpenConnection()
   Dim cnn As New ADODB.Connection
   Dim cat As New ADOX.Catalog
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= c:\bwscale.mdb;"
   Set cat.ActiveConnection = cnn
   TabYn = False
   For I = 0 To cat.tables.Count - 1
      If Left(cat.tables(I).Name, 4) <> "MSys" Then
         If cat.tables(I).Name = "BWCUST" Then TabYn = True: Exit For '要加Ucase转大写
      End If
   Next I
   MsgBox IIf(TabYn, "表已存在", "表不存在")
End Sub

Answer 2

If Ucase(cat.tables(I).Name) = "BWCUST" Then TabYn = True: Exit For '要加Ucase转大写