标题: 什么是最简单的办法：判断某个表是否存在 [打印本页] 作者: godfrey 时间: 2003-1-2 23:25 标题: 什么是最简单的办法：判断某个表是否存在 我是菜鸟
想判断一个固定名称的表或者查询是否存在，有很多表和查询
不要告诉我做一个循环啊大哥 作者: zhengjialon 时间: 2003-1-3 00:28
搜索一下旧贴。返加系统表里的内容。作者: zhengjialon 时间: 2003-1-3 01:05
'本例用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()
MsgBox fExistTable("kk")
End Sub