問:怎樣用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 "需判斷的已知表名"));
