如何判断是否以独占方式打开当前数据库？

2024-07-21 02:08:21

字体：大中小

来源：转载

供稿：网友

如何判断是否以独占方式打开当前数据库？

问题：

如何判断是否以独占方式打开当前数据库？

在链接或者用ado操作其他数据库时，如果被操作的数据库已经被某用户以独占方式打开，就会出错，如何预先判断该数据库是否已经被独占打开？

方法一：

很简单，只要判断 currentproject.connection.connectionstring中是否包含以下字母
jet oledb:database locking mode=0
写一个函数就可以判断：

function testlockmode()
    if instr(currentproject.connection.connectionstring, "jet oledb:database locking mode=0") > 0 then
        msgbox "本数据库已经用独占方式打开"
    else
        msgbox "本数据库未用独占方式打开"
    end if
end function

以下是 debug.print currentproject.connection.connectionstring 的结果供参考：

provider=microsoft.jet.oledb.4.0;user id=admin;data source=l:/ibm winxp/desktop/mdb/重复记录.mdb;mode=share deny read|share deny write;extended properties="";jet oledb:system database=c:/documents and settings/ec/application data/microsoft/access ystem.mdw;jet oledb:registry path=software/microsoft/office/10.0/access/jet/4.0;jet oledb:database password="";jet oledb:engine type=5;jet oledb:database locking mode=0;jet oledb:global partial bulk ops=2;jet oledb:global bulk transactions=1;jet oledb:new database password="";jet oledb:create system database=false;jet oledb:encrypt database=false;jet oledb:don't copy locale on compact=false;jet oledb:compact without replica repair=false;jet oledb:sfp=false

方法二：

很简单，你只要在程序中尝试用独占方式打开数据库即可，如果返回了错误号加以判断即可。就像本站中的很多问题解决方法类似，用错误陷阱即可判断了

function testlockmode()
    on error resume next
    dim conn as new adodb.connection
    conn.open "provider=microsoft.jet.oledb.4.0;user id=admin;data source=l:/ibm winxp/desktop/mdb/重复记录.mdb;jet oledb:database locking mode=0;"
    if err.number = -2147467259 then
        msgbox "文件已经在使用中，估计是被别人以独占方式打开了"
    end if
end function

方法三：

当然，你还可以直接读取currentdb属性来判断是否已经被独占打开

http://www.access911.net 站长收藏

最大的网站源码资源下载站，

上一篇：ERP基础档案管理模块中实现多级分类档案ID号自动编码技术(V1.0)

下一篇：关于jet db的连接字串，以及加密后的字串