在ACCESS2000中如何用VBA代码打开一个带有密码的数据库_access模块-access类模块-access函数-access VBA

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

时间：2003-12-29 21:27 来源：本站原创作者：zhuyiwen… 阅读：次

　　在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

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：化学分子式输入函数（数字下标输入方式）
下一篇：如何计算出本月的最后一天