Access ADO訪問加密碼的mdb數據庫已成功解決

Access ADO訪問加密碼的mdb數據庫的解決辦法：

前些日子，爲這箇問題給卡住瞭，這兩天終於找到瞭解決方案。

使用jet oledb:database password=password 來連接

如果要使用繫統的工作組安全文件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

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

tmtony
穫取繫統目録，可以使用API來實現.

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+",繫統目録是:" + SystemDirectory

zhuyiwen
爲何一定要用繫統的安全數據庫？

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

(ADO_RDO-相關文章技巧鏈接)：
連接加密的Access數據庫
用代碼通過ODBC刷新鏈接（mdb+SQL SEVER2000）
打開帶密碼的數據庫/修改密碼/創建組和用戶
處理加瞭密碼的MDB文件
VB連接ACCESS數據庫實例