悠悠博客 关注Ajax技术与web开发

作 者：Dev Ashish
发布日期：2002年11月4日
摘 要：一个简单的方法就是通过穷举数据库中的 TableDefs 集合。例如，通过下面的函数，将返回数据库中指定的表是否存在，如果存在，则返回真值 True，否则，返回假值 False。

正 文：

一个简单的方法就是通过穷举数据库中的 TableDefs 集合。例如，通过下面的函数，将返回数据库中指定的表是否存在，如果存在，则返回真值 True，否则，返回假值 False。

'******************** Code Start ************************

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
' 表存在
fExistTable = True
Exit For
End If
Next i
Set db = Nothing
End Function

'******************** Code End ************************



注：在ACCESS 2000和ACCESS XP中需要引用 DAO