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

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

前些日子，爲(wèi)這箇問(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

以上程序雖説已可用，但不靈活，各位看到?jīng)]有最後一句
jet oledb:system database= c:=windows\system\system.mdw
這是在windows98下用的，在windows2000繫統(tǒng)下system.mdw不是在system目録下，而是在彆的目録中，各位有什麼辦法讓Access自已默認(rèn)到這箇檔案？

tmtony
穫?cè)±M統(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
爲(wèi)何一定要用繫統(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)建組和用戶
處理加瞭密碼的MDB文件
VB連接ACCESS數(shù)據(jù)庫(kù)實(shí)例