Office中国论坛/Access中国论坛

标题: [已解决]请问如何判断另一个数据库中某表是否存在？ [打印本页]

作者: jynj 时间: 2008-3-16 09:40
标题: [已解决]请问如何判断另一个数据库中某表是否存在？
搜索后发现，大部人人问的都是本数据库中的表是否存在，请问如何判断另一个数据库中某表是否存在？

[ 本帖最后由 jynj 于 2008-3-19 22:54 编辑 ]

作者: jynj 时间: 2008-3-16 10:08
搞定
用以下代码：

Function fExistTable(strTableName As String) As Integer
Dim db As Database
Dim i As Integer
Set db = DBEngine.OpenDatabase(Application.CurrentProject.Path & "\数据库名", False, False, "MS Access;pWD=密码")
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)