处理加了admin888的MDB文件

核心提示：当MDB文件加了密码，直接由access打印MDB文件时，处理加了admin888的MDB文件，会出现密码对话框，询问密码，修改的方法是在属性之后增加以下参数：;JetOLEDB:DatabasePassWord=密码除了ADODC及DataEnvironment之外，直接使用ADO控件來打开含有密码的mdbMDB文件

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

1、使用DAO命令打开MDB文件：OpenDatabase
若要由程序中打开，命令如下：
SetDB=OpenDatabase(DatabaseName,False,False,";Pwd=密码")
实例：
DimdbAsDatabase
Setdb=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控件)，修改的方法是在属性之后增加以下参数：
;JetOLEDB:DatabasePassWord=密码

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


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"->