判断另一mdb数据库是否打开？

zwmrp

怎样判断另一mdb数据库是否是打开的！[em01]

zhuyiwen

当一个MDB文件打开后, 会在同一文件夹下新建一个同名的但扩展为 ldb 的文件.

这样就可以通过DIR函数来进行检测. 根据这个原理,我编写了下面这个函数:

Function IsOpenMDB(ByVal strMdbPath As String) As Boolean
    Dim strPath As String
   
    strPath = Left(strMdbPath, InStrRev(strMdbPath, ".")) & "ldb"
    IsOpenMDB = IIf(Dir(strPath) <> "", True, False)
End Function

当IsOpenMdb返回 True 表示该MDB已经打开, 否则,则表示没有打开.

例: Debug.Print IsOpenMdb("C:\Northwind.mdb")

zwmrp

谢谢你

cnwang

如果意外关闭，LDB不会消失。
建议尝试以独占方式打开，出错便是以被打开。

on error resume next
OpenCurrentDatabase "C:\db2.mdb", True
if err.number=7867 ... ...