當 MDB 文件加了密碼,直接由 Access 打印MDB文件時,會出現密碼對話框,詢問密碼。但是若要由 VB 程序中打印,必須更改 VB 程序中打開MDB文件的指令,否則會出現錯誤信息!以下針對各種情況,分別加以說明:
1、 使用 DAO 命令打開MDB文件:OpenDatabase
若要由程序中打開,命令如下:
Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密碼")
實例:
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文件設定的密碼!
DBEngine.RepairDataBase "MDB文件"
實例例如:
DBEngine.RepairDataBase "C:Db1.mdb"