快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

澳门银河网址68yh:如何用SQL语句来判断已知表是否存在SQL语句



若何判断库中已知表是否存在今日受人之托,帮他办理这个问题,代码为平日的引用Dao做的一模块:

Function fExistTable(strTableName As String) As Integer

Dim db As Database

Dim i As Integer

Set db = DBEngine.Workspaces(0).Databases(0)

fExistTable = False

db.TableDefs.Refresh

For i = 0 To db.TableDefs.Count - 1

If strTableName = db.TableDefs(i)澳门银河网址68yh.澳门银河网址68yhName Then

'Table Exists

fExistTable = True

Exit For

End If

Next i

Set db = Nothing

End Function

Private Sub 敕令0_Click()

fExistTable

End Sub

用该事故呈现‘参数弗成选’的差错。仔细钻研,发明fExistTable缺少参数,即已知表名没有在代码中反映。

改动为:

Private Sub 敕令0_Click()

fExis澳门银河网址68yhtTable(”需判断的已知表名”)

End Sub

End Sub不再报错。仔细阐发,着实是用 ”已知表名&rdqu澳门银河网址68yho; 经由过程Dao判断数据库中是否存在,假如fExistTable的值为True便是存在,否则便是不存在。

办理问题之余,想起Access数据库也有系统表,寄放有工签字,可否做一查询来鉴定?

履历证:

SELECT Count(*) AS Qty

FROM MSysObjects

WHERE ((澳门银河网址68yh(MSysObjects.Name) Like "需判断的已知表名"));

可以实现需求。假如Qty>0,就表示表已存在,否则就不存在。

您可能还会对下面的文章感兴趣: