[已解决]请问如何判断另一个数据库中某表是否存在？

jynj

搜索后发现，大部人人问的都是本数据库中的表是否存在，请问如何判断另一个数据库中某表是否存在？

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

jynj

搞定
用以下代码：

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