| 如何判定库中已知表是否存在今日受人之托，帮他解决这个问题，代码为通常的引用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,就表示表已存在，否则就不存在。
|
|
评论加载中…
