判断ACCESS中是否存在某个表

来源：互联网发布：2016年8月金融数据编辑：程序博客网时间：2024/05/17 06:03

Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"Set rs = cn.OpenSchema(adSchemaTables)Do Until rs.EOFIf rs!TABLE_NAME = Text3.Text ThenMsgBox "存在此表名"Exit DoEnd Ifrs.MoveNextLoop

方法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.ConnectiongsSys_db.Open connectstrDim TableName As StringSet rs = gsSys_db.OpenSchema(adSchemaTables)Do While Not rs.EOF     TableName = rs.Fields("TABLE_NAME")     If TableName = "你要查询的表名" Then           MsgBox "表已存在"          Exit Do     end if     rs.MoveNextLoop

方法2：

'*********************************************************'* 名称：TableExists'* 功能：判断表是否存在(表名)'* 用法：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 & "'"    If rstSchema.EOF Then      TableExists = False    Else      TableExists = True    End If    rstSchema.CloseEnd Function

关于openschema:http://www.w3school.com.cn/ado/met_conn_openschema.asp

0 0