Access VBA教程:OpenCurrentDatabase方法

使用 OpenCurrentDatabase方法可以打开一个已有Microsoft Access 数据库 (.mdb) 作为当前的数据库。

expression.OpenCurrentDatabase(filepath, Exclusive, bstrPassword)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

filepath  必需 String 型。字符串表达式,表示已有数据库文件的名称,包括路径名和文件名扩展。如果网络支持,也可以按以下形式指定网络路径:\\Server\Share\Folder\Filename

注意   如果没有提供文件名扩展名,则将 .mdb 追加到文件名后。

Exclusive  可选 Boolean 值。指定是否以独占方式打开数据库。默认值是False,该值指定以共享方式打开数据库。

bstrPassword  可选 String。打开指定数据库的密码。

说明

使用该方法可以从另一个应用程序中打开数据库,该应用程序通过自动化(以前称为 OLE 自动化)控制 Microsoft Access。例如,可以使用 OpenCurrentDatabase方法从 Microsoft Excel 中打开 Microsoft Access 窗口中的罗斯文示例数据库。一旦通过另一个应用程序创建了 Microsoft Access实例,则也必需创建新的数据库或指定要打开的特殊数据库。该数据库是在 Microsoft Access 窗口中打开的。

注意   使用OpenAccessProject方法打开一个已有Microsoft Access 项目 (.adp) 作为当前的数据库。

在 Microsoft Access 窗口中,如果已经打开一个数据库又希望打开另一个数据库,在打开另一个数据库以前,可以使用CloseCurrentDatabase方法关闭第一个数据库。

将 Exclusive参数设为 True 可以以独占方式打开数据库。如果忽略该参数,数据库将以共享方式打开。

注意   请勿将 OpenCurrentDatabase方法与“ActiveX 数据对象”(ADO) 的Open方法或“数据访问对象”(DAO) 的OpenDatabase方法混淆。OpenCurrentDatabase方法在 Microsoft Access 窗口中打开数据库。ADO Open方法返回 Connection对象变量;DAO OpenDatabase方法返回 Database对象变量;两者均代表一种特别的数据库,但均没有在 Microsoft Access 窗口中实际打开数据库。

VBA示例

下面的示例通过“自动化”从其他应用程序中打开一个 Microsoft Access 数据库,然后打开一个数据库中的窗体。

可以在任何一个可以用作 COM 组件的应用程序的 Visual Basic 模块中输入这段代码。例如,可以从 Microsoft Excel、Microsoft Visual Basic 或 Microsoft Access 中运行下列代码。

当指向 Application对象的变量超出范围时,它所表示的 Microsoft Access 实例也将关闭。所以,必须在模块级声明这个变量。


' 在模块的“声明”节包括下列代码:
Dim appAccess As Access.Application
Sub DisplayForm()
    ' 将字符串初始化为数据库路径。
    Const strConPathToSamples = "C:\Program " _
        & "Files\Microsoft Office\Office\Samples\"
    strDB = strConPathToSamples & "Northwind.mdb"
    ' 新建 Microsoft Access 实例。
    Set appAccess = _
        CreateObject("Access.Application")
    ' 在 Microsoft Access 窗口中打开数据库。
    appAccess.OpenCurrentDatabase strConPathToSamples
    ' 打开“订单”窗体。
    appAccess.DoCmd.OpenForm "订单"
End Sub

上页:Access VBA教程:OpenConnection方法 下页:Access VBA教程:OpenFunction方法

Access VBA教程:OpenCurrentDatabase方法

Access VBA教程:OpenFunction方法 Access VBA教程:Print方法
Access VBA教程:PrintSnapshot方法 (Snapshot Viewer) Access VBA教程:PSet方法
Access VBA教程:Quit方法 Access VBA教程:Recalc方法
Access VBA教程:Refresh方法 Access VBA教程:RefreshDatabaseWindow方法
Access VBA教程:DefaultWorkspaceClone方法 Access VBA教程:Remove方法
Access VBA教程:RemoveItem方法 Access VBA教程:Repaint方法
Access VBA教程:ReplaceLine方法 Access VBA教程:Requery方法
Access VBA教程:Run方法 Access VBA教程:RunCommand方法
Access VBA教程:Scale方法 Access VBA教程:导出报表快照 (Snapshot Viewer)
Access VBA教程:SetDefaultWorkgroupFile方法 Access VBA教程:SetFocus方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号