处理加了admin888的MDB文件

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

新老客户大回馈,云服务器低至5折

当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
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB6.0编写电脑抽奖程序

下一篇:VB6实现局域网多站点互连手册