Access ADO訪問(wèn)加密碼的mdb數(shù)據(jù)庫(kù)已成功解決

Access ADO訪問(wèn)加密碼的mdb數(shù)據(jù)庫(kù)的解決辦法：

前些日子，為這個(gè)問(wèn)題給卡住了，這兩天終于找到了解決方案。

使用jet oledb:database password=password 來(lái)連接

如果要使用系統(tǒng)的工作組安全文件mdw,則再加上工作組文件路徑

dim cn as adodb.connection
set cn=new adodb.connection

cn.provider="microsoft.jet.oledb.4.0"
connection.connectionstring="data source=" c:\db1.mdb" & _ 
";jet oledb:database password=password;jet oledb:system database=" & _ 
"c:=windows\system\system.mdw"
connection.open

以上程序雖說(shuō)已可用，但不靈活，各位看到?jīng)]有最后一句
jet oledb:system database= c:=windows\system\system.mdw
這是在windows98下用的，在windows2000系統(tǒng)下system.mdw不是在system目錄下，而是在別的目錄中，各位有什么辦法讓Access自已默認(rèn)到這個(gè)檔案？

tmtony
獲取系統(tǒng)目錄，可以使用API來(lái)實(shí)現(xiàn).

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
     Dim WindowsDirectory As String, SystemDirectory As String, x As Long
     WindowsDirectory = Space(255)
     SystemDirectory = Space(255) 
     x = GetWindowsDirectory(WindowsDirectory, 255)
     x = GetSystemDirectory(SystemDirectory, 255)
     MsgBox "Windows的安裝目錄是:" + WindowsDirectory+",系統(tǒng)目錄是:" + SystemDirectory

zhuyiwen
為何一定要用系統(tǒng)的安全數(shù)據(jù)庫(kù)？

yuab
Tmtony,真行，API用得真是好。謝謝！

(ADO_RDO-相關(guān)文章技巧鏈接)：
連接加密的Access數(shù)據(jù)庫(kù)
用代碼通過(guò)ODBC刷新鏈接（mdb+SQL SEVER2000）
打開(kāi)帶密碼的數(shù)據(jù)庫(kù)/修改密碼/創(chuàng)建組和用戶(hù)
處理加了密碼的MDB文件
VB連接ACCESS數(shù)據(jù)庫(kù)實(shí)例