首页 > > 程序设计 > VB >

处理加了admin888的MDB文件

2018-06-17 17:09:22来源：未知阅读 ()

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有