問:怎樣用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數據庫也有系統表,存放有對象名,是否做一查詢來判定呢?
經驗證,可以實現需求。如果Qty>0,即表示表已存在,否則就表示不存在。
以下為引用的內容:
SELECT Count(*) AS Qty
FROM MSysObjects
WHERE (((MSysObjects.Name) Like "需判斷的已知表名"));