ACCESS輔導(dǎo):處理加了密碼的MDB文件

當(dāng) MDB 文件加了密碼，直接由 Access 打印MDB文件時，會出現(xiàn)密碼對話框，詢問密碼。但是若要由 VB 程序中打印，必須更改 VB 程序中打開MDB文件的指令，否則會出現(xiàn)錯誤信息！以下針對各種情況，分別加以說明：
    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 控件，設(shè)定方法如下：
    1、設(shè)定 DatabaseName 屬性 (MDB文件名稱 / 含路徑)
    2、設(shè)定 Connect 屬性，將預(yù)設(shè)的字串 "Access" 改成 ";Pwd=密碼" (不含雙引號)
    3、設(shè)定 RecordSource 屬性
    2、
    使用 ADO 命令打開MDB文件：
    在使用 ADODC 或 DataEnvironment 設(shè)定好之后，直接利用屬性窗口修改 ConnectionString 屬性(附屬于 ADODC) 或 ConnectionSource 屬性(附屬于 DataEnvironment 的 Connection 控件)，修改的方法是在屬性之后增加以下參數(shù)：
    ;Jet OLEDB:Database Password=密碼
    除了 ADODC 及 DataEnvironment 之外， 直接使用 ADO 控件來打開含有密碼的 mdb MDB文件，設(shè)定參數(shù)的方法也是相同的。
    3、
    壓縮加了密碼的MDB文件：CompactDatabase
    DBEngine.CompactDataBase "原MDB文件", "新MDB文件", , , ";pwd=密碼"
    實例例如：
    DBEngine.CompactDatabase "C:\Db1.mdb", "C:\Db2.mdb", , , ";pwd=1"
    4、
    修復(fù)加了密碼的MDB文件： RepairDatabase
    不必理會MDB文件設(shè)定的密碼！
    DBEngine.RepairDataBase "MDB文件"
    實例例如：
    DBEngine.RepairDataBase "C:\Db1.mdb"