在ACCESS 2002和ACCESS 2003可以使用OpenCurrentDatabase方法打开一个带有密码的ACCESS MDB数据库, 在可是在ACCESS 2000中该方法不支持密码参数,那么如何实现呢?
下面这个过程打开一个当前数据库同一目录中带有密码的数据库 db2.mdb (密码：123)
Dim appAccess As Access.Application
Dim db As Database
Private Sub OpenDB()
Dim strDB As String
' 将字符串初始化为数据库的路径。
strDB = CurrentProject.Path & "\db2.mdb"
' 创建 Microsoft Access 的实例。
Set appAccess = CreateObject("Access.Application")
' 在 Microsoft Access 窗口中打开数据库。
Set db = appAccess.DBEngine.OpenDatabase(strDB, False, False, ";PWD=123")
appAccess.OpenCurrentDatabase strDB
appAccess.DoCmd.OpenForm "form1"
appAccess.Visible = True
End Sub
|
