处理加了密码的MDB文件！！

WTM1

[fly]本内容虽然涉及一些dao和ado内容！
但我仍认为这个问题应该在这里讨论！
大家往往因为mbd加密问题头疼！其实它是可以解密的！

谁有更好的方法和软件，希望共同讨论！！

谢谢！！[仅用于研讨，不要其它用途！谢谢！]
[/fly]

当 MDB 文件加了密码，直接由 Access 打印MDB文件时，会出现密码对话框，询问密码。但是若要由 VB 程序中打印，必須更改 VB 程序中打开MDB文件的指令，否则会出现错误信息！以下针对各种情况，分別加以说明：

1、 使用 DAO 命令打开MDB文件：OpenDatabase
若要由程序中打开，命令如下：
Set DB = OpenDatabase(DatabaseName, False, False, "wd=密码")
实例：
Dim db As Database
Set db = OpenDatabase("C:\db1.mdb", False, False, "wd=1")
若要使用 Data 控件，设定方法如下：
1、设定 DatabaseName 属性 (MDB文件名称 / 含路径)
2、设定 Connect 属性，將预设的字串 "Access" 改成 "wd=密码" (不含双引号)
3、设定 RecordSource 属性

2、
　
使用 ADO 命令打开MDB文件：

在使用 ADODC 或 DataEnvironment 设定好之后，直接利用属性窗口修改 ConnectionString 属性(附属于 ADODC) 或 ConnectionSource 属性(附属于 DataEnvironment 的 Connection 控件)，修改的方法是在属性之后增加以下参数：
;Jet OLEDBatabase Password=密码

除了 ADODC 及 DataEnvironment 之外， 直接使用 ADO 控件來打开含有密码的 mdb MDB文件，设定参数的方法也是相同的。

　
3、
　
压缩加了密码的MDB文件：CompactDatabase

DBEngine.CompactDataBase "原MDB文件", "新MDB文件", , , ";pwd=密码"
实例例如：
DBEngine.CompactDatabase "C:\Db1.mdb", "C:\Db2.mdb", , , ";pwd=1"
　
4、
　
修复加了密码的MDB文件： RepairDatabase

不必理会MDB文件设定的密码！
DBEngine.RepairDataBase "MDB文件"
实例例如：
DBEngine.RepairDataBase "C:\Db1.mdb"

[此贴子已经被WTM1于2002-10-9 10:19:42编辑过]

WTM1

谢谢！！不过太复杂！！？可以使用！！
有更简单的吗？我看我写的只是你的汉化版！
内容差不多！！

gnoy

http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=10491&ID=10491