'引用 Microsoft ADO Ext 2.5 for ddl and security
'引用 Microsoft ActiveX Data Objects 2.5 Library
Dim I%, TabYn As Boolean
Private Sub Form_Click()
Call OpenConnection
End Sub
Sub 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