Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

在ACCESS2000中如何用VBA打开一个带有密码的数据库

1970-1-1 08:00| 发布者: 朱亦文| 查看: 1851| 评论: 0

在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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

在ACCESS2000中如何用VBA打开一个带有密码的数据库

最新评论

相关分类