当 MDB 文件加了密码，直接由 Access 打印MDB文件时，会出现密码对话框，询问密码。但是若要由 VB 程序中打印，必須更改 VB 程序中打开MDB文件的指令，否则会出现错误信息！以下针对各种情况，分別加以说明：
1、 使用 DAO 命令打开MDB文件：OpenDatabase
若要由程序中打开，命令如下： 中国站.长.站
Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密码") 实例： @com
Dim db As Database Set db = OpenDatabase("C:\db1.mdb", False, False, ";Pwd=1")若要使用 Data 控件，设定方法如下： 中.国.站.长.站
1、设定 DatabaseName 属性 (MDB文件名称 / 含路径) 2、设定 Connect 属性，將预设的字串 "Access" 改成 ";Pwd=密码" (不含双引号) 3、设定 RecordSource 属性
2、使用 ADO 命令打开MDB文件： 中国.站.长站
在使用 ADODC 或 DataEnvironment 设定好之后，直接利用属性窗口修改 ConnectionString 属性(附属于 ADODC) 或 ConnectionSource 属性(附属于 DataEnvironment 的 Connection 控件)，修改的方法是在属性之后增加以下参数： ;Jet OLEDB:Database 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文件设定的密码！ Www..com
DBEngine.RepairDataBase "MDB文件"
实例例如： 中.国.站.长.站
DBEngine.RepairDataBase "C:\Db1.mdb" 中国站.长.站
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
