Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False" Set rs = cn.OpenSchema(adSchemaTables) If rs!TABLE_NAME = Text3.Text Then
方法1:另外一种风格
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\my.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=xiangyang" Set gsSys_db = New ADODB.Connection Set rs = gsSys_db.OpenSchema(adSchemaTables) TableName = rs.Fields("TABLE_NAME") If TableName = "你要查询的表名" Then
方法2:
'********************************************************* '* 用法:TableExists(表名) adoCN是一个access的连接 '********************************************************* Public Function TableExists(findTable As String) As Boolean Dim rstSchema As New ADODB.Recordset Set rstSchema = adoCN.OpenSchema(adSchemaTables) rstSchema.Find "TABLE_NAME='" & findTable & "'"
|