您现在的位置: 万盛学电脑网 >> 程序编程 >> 数据库 >> 数据库综合 >> 正文

如何用SQL语句来判断已知表是否存在

作者:佚名    责任编辑:admin    更新时间:2022-06-22

本文是关于用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).Name 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()

fExistTable(”需判断的已知表名”)

End Sub

End Sub不再报错。仔细分析,其实是用 ”已知表名” 通过Dao判断数据库中是否存在,如果fExistTable的值为True就是存在,否则就是不存在。

解决问题之余,想起Access数据库也有系统表,存放有对象名,可否做一查询来判定?

经验证:

SELECT Count(*) AS Qty

FROM MSysObjects

WHERE (((MSysObjects.Name) Like "需判断的已知表名"));

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

以上就是精品提供的关于用SQL语句来判断已知表是否存在的内容,希望对大家有所帮助。