Office中国论坛/Access中国论坛

标题: 用ADO访问加密码的mdb数据库已成功解决。 [打印本页]

作者: yuab 时间: 2002-7-18 02:37
标题: 用ADO访问加密码的mdb数据库已成功解决。
前些日子，为这个问题给卡住了，这两天终于找到了解决方案。
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 时间: 2002-7-18 02:46
使用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 时间: 2002-7-18 19:25
为何一定要用系统的安全数据库？

作者: yuab 时间: 2002-7-18 21:28
Tmtony,真行，API用得真是好。
谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)