快速掌握用 SQL语句判断已知表是否存在
来源：岁月联盟
时间：2007-10-30
问:怎样用SQL语句来判断已知表是否存在?
答:具体解决方法如下:
注释:以下代码为通常的引用Dao做的一模块
Function fExistTable(strTableName As String) As IntegerDim db As DatabaseDim 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 = NothingEnd Function Private Sub 命令0_Click()fExistTableEnd Sub |
用该事件出现‘参数不可选’的错误。仔细研究，发现fExistTable缺少参数，即已知表名没有在代码中反应。
修改为：
Private Sub 命令0_Click()fExistTable（”需判断的已知表名”）End Sub |
End Sub不再报错。仔细分析，其实是用 ”已知表名” 通过Dao判断数据库中是否存在，如果fExistTable的值为True就是存在，否则就是不存在。
解决问题后，忽然想起Access数据库也有系统表，存放有对象名，是否做一查询来判定呢？
经验证,可以实现需求。如果Qty>0,即表示表已存在，否则就表示不存在。
SELECT Count(*) AS QtyFROM MSysObjectsWHERE (((MSysObjects.Name) Like "需判断的已知表名")); |
