office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2002-07-18 02:37:00
yuab-Office交流網
原創
2304

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數據庫實例

分享
北京十一选五基本走势