安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2002-07-18 02:37:00
yuab-Office交流网
原创
1774

Access ADO访问加密码的mdb数据库的解决办法:


前些日子,为这个问题给卡住了,这?#25945;?#32456;于?#19994;?#20102;解决方案。

使用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自已默?#31995;?#36825;个档案?

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
为?#25105;?#23450;要用系统的安全数据库?

yuab
Tmtony,真行,API用得真是好。谢谢!

(ADO_RDO-相关文章技巧链接):
连接加密的Access数据库
用代码通过ODBC刷新链接(mdb+SQL SEVER2000)
打开带密码的数据库/修改密码/创建组和用户
处理加了密码的MDB文件
VB连接ACCESS数据库实例

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存?#21152;茫?b>7.75MB
PHP 执行时间:0.13
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假