以独占模式启动Oracle数据库,如何判断是否以独占方式打开当前数据库？-数据库专栏,SQL Server...

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

问题：

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

在链接或者用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:dont 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 站长收藏