如何用SQL语句来判断已知表是否存在

如何用SQL语句来判断已知表是否存在2008-03-14如何判断库中已知表是否存在今日受人之托，帮他解决这个问题，代码为通常的引用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,就表示表已存在，否则就不存在。