如何判斷是否以獨占方式打開當前數據庫？

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的連接字串，以及加密后的字串