Access) (Application.OpenCurrentDatabase 方法

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

语法

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

expression：表示 Application 对象的变量。

参数

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

返回值

Nothing

注解

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

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

注意

使用 OpenAccessProject 方法以当前数据库的形式打开现有 Access 项目 (.adp) 。

注意

不要将 OpenCurrentDatabase 方法与 ADO) Open 方法 (ActiveX 数据对象或 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。