| 處理加了密碼的MDB數(shù)據(jù)庫文件當(dāng) MDB 文件加了密碼，直接由 Access 打印MDB文件時(shí)，會(huì)出現(xiàn)密碼對(duì)話框，詢問密碼。但是若要由 VB或BA程序中打印，必須更改B和VBA序中打開MDB文件的指令，否則會(huì)出現(xiàn)錯(cuò)誤信息！以下針對(duì)各種情況，分別加以說明： 1、 使用 DAO 命令打開MDB文件： OpenDatabase 若要由程序中打開，命令如下： Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密碼") 實(shí)例： 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=密碼" (不含雙引號(hào)) (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=密碼"實(shí)例例如：DBEngine.CompactDatabase "C:\Db1.mdb", "C:\Db2.mdb", , , ";pwd=1" 4、復(fù)加了密碼的MDB文件： RepairDatabase 不必理會(huì)MDB文件設(shè)定的密碼！DBEngine.RepairDataBase "MDB文件"實(shí)例例如：DBEngine.RepairDataBase "C:\Db1.mdb" 以下給出一個(gè)函數(shù)可以使用DAO打開帶密碼保護(hù)的MDB數(shù)據(jù)庫文件：Public Function OpenPasswordProtectedDatabase(DBPath As String, _ Password As String) As Object On Error Resume Next Dim db As DAO.Database Set db = DAO.OpenDatabase(DBPath, False, False, _ ";pwd=" & Password) If Err.Number = 0 Then Set OpenPasswordProtectedDatabase = db Else Set OpenPasswordProtectedDatabase = Nothing End If End Function其中參數(shù)DBPath為數(shù)據(jù)庫文件的有效路徑名稱；參數(shù)Password為密碼。該函數(shù)需要引用DAO數(shù)據(jù)庫才有效。 如何調(diào)出工作組對(duì)話框調(diào)出“用戶與組帳號(hào)”對(duì)話框：DoCmd.DoMenuItem acFORMBar, 6, 5, 2, acMenuVer70 調(diào)出“用戶與組權(quán)限”對(duì)話框：DoCmd.DoMenuItem acFORMBar, 6, 5, 1, acMenuVer70 以上語句在office2000里測(cè)試通過 |
|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國/Access中國
( 粵ICP備10043721號(hào)-1 )
GMT+8, 2025-7-17 00:43 , Processed in 0.073346 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
