用ADO访问加密码的mdb数据库已成功解决。

yuab

前些日子，为这个问题给卡住了，这两天终于找到了解决方案。
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自已默认到这个档案？
(ADO_RDO-相关文章技巧链接)：
Access ADO访问加密码的mdb数据库已成功解决

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用得真是好。
谢谢！