以獨佔模式打開Access數據庫

Question

我希望能夠編寫一個以獨佔模式打開Access數據庫的腳本，這樣我就可以刷新其中的信息，而不用擔心其他用戶訪問處於不一致狀態的數據庫。有沒有辦法使用VBA或通過使用VBScript的COM接口來執行此操作？

Answer 1

根據this table of OLEDB init properties，您應該在連接字符串中添加「Mode = Share Exclusive」。

Answer 2

我不知道如果有任何用戶在腳本啓動時打開數據庫會發生什麼情況。所以我選擇檢查是否存在數據庫鎖定文件，並且只有在鎖定文件不存在時纔會繼續。

這裏是DoSomethingExclusively.vbs：

Option Explicit 

Dim strFolder 
Dim strMdb 
Dim strLckFile 
Dim objFSO 
Dim appAccess 

strFolder = "C:\Access\webforums\" 
strMdb = "whiteboard2003.mdb" 
strLckFile = "whiteboard2003.ldb" 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
If Not (objFSO.FileExists(strFolder & strLckFile)) Then 
    Set appAccess = CreateObject("Access.Application") 
    appAccess.OpenCurrentDatabase strFolder & strMdb, True 
    '* do something here; this just adds a row with current time *' 
    appAccess.CurrentDb.Execute _ 
     "INSERT INTO foo (bar) VALUES ('" & CStr(Now()) & "');" 
    appAccess.Quit 
    Set appAccess = Nothing 
End If 
Set objFSO = Nothing