Application.OpenCurrentDatabase 方法 (Access)

使用 OpenCurrentDatabase 方法打开现有 Microsoft Access 数据库作为当前数据库。

语法

表达式。OpenCurrentDatabase (filepath、 Exclusive、 bstrPassword)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
filepath	必需	字符串	现有的数据库文件的文件名，包括路径名和文件扩展名。
独占	可选	Boolean	指定是否要以独占模式打开数据库。 默认值为 False，该值指定以共享模式打开数据库。
bstrPassword	可选	字符串	用于打开指定数据库的密码。

返回值

Nothing

注解

使用此方法从另一个通过自动化控制 Microsoft Access 的应用程序（以前称为 OLE 自动化）打开数据库。 例如，可以使用 Microsoft Excel 中的 OpenCurrentDatabase 方法在 Access 窗口中打开 Northwind.mdb 示例数据库。 从另一个应用程序创建 Access 实例后，还必须创建新数据库或指定要打开的特定数据库。 此数据库将在 Access 窗口中打开。

如果已打开数据库并希望在 Access 窗口中打开另一个数据库，则可以使用 CloseCurrentDatabase 方法关闭第一个数据库，然后再打开另一个数据库。

注意

使用 OpenAccessProject 方法打开现有 Access 项目 (.adp) 作为当前数据库。

注意

不要将 OpenCurrentDatabase 方法与 ActiveX 数据对象 (ADO) Open 方法或 Data Access Object (DAO) OpenDatabase 方法混淆。 OpenCurrentDatabase 方法在 Access 窗口中打开数据库。 DAO OpenDatabase 方法返回 一个 Database 对象变量，该变量表示特定数据库，但实际上不会在 Access 窗口中打开该数据库。

示例

以下示例通过自动化从另一个应用程序打开 Access 数据库，然后在该数据库中打开一个窗体。

可以将这段代码添加到任何能够作为 COM 组件的应用程序的 Visual Basic 模块中。 例如，可以从 Excel、Visual Basic 或 Access 运行以下代码。

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

' Include the following in Declarations section of module. 
Dim appAccess As Access.Application 
 
Sub DisplayForm() 
 
 Dim strDB as String 
 
 ' Initialize string to database path. 
 Const strConPathToSamples = "C:\Program " _ 
 & "Files\Microsoft Office\Office11\Samples\" 
 
 strDB = strConPathToSamples & "Northwind.mdb" 
 ' Create new instance of Microsoft Access. 
 Set appAccess = _ 
 CreateObject("Access.Application") 
 ' Open database in Microsoft Access window. 
 appAccess.OpenCurrentDatabase strDB 
 ' Open Orders form. 
 appAccess.DoCmd.OpenForm "Orders" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。