SQL語句判斷已知表是否存在

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