创建、打开和关闭 access 应用程序

时　间:2008-04-10 13:31:05
作　者:微软文档   ID：43  城市：江阴
摘　要:您可在 Microsoft® Access® 内或者在其它应用程序中用“自动化”来创建一个新的数据库，或者打开和关闭一现有的数据库。本节介绍的方法通常用于在其它应用程序中使用“自动化”。如果代码正在 Access 中运行，它一般都要处理当前打开的数据库，没必要使用这些方法。
正　文:

您可在 Microsoft® Access® 内或者在其它应用程序中用“自动化”来创建一个新的数据库，或者打开和关闭一现有的数据库。本节介绍的方法通常用于在其它应用程序中使用“自动化”。如果代码正在 Access 中运行，它一般都要处理当前打开的数据库，没必要使用这些方法。

注意   如果正在使用的是其它应用程序，而且只须访问某数据库（表或查询）中的数据，不需要使用象窗体和报表这样的对象，这时可用 ADO 来访问所需的数据。

使用 NewCurrentDatabase 方法可创建新的 .mdb 类型数据库。使用 OpenCurrentDatabase 和 CloseCurrentDatabase 方法可分别打开和关闭现有的 .mdb 型数据库。下面的示例可在任何 Microsoft® Office 应用程序中运行。它可打开 Northwind Traders 示例数据库，并打印 OpenReport 方法中指定的 Product Catalog 报表的一部分：

Sub PrintReport(strCategoryName As String)
   Dim acApp         As Access.Application
   Dim strDBPath     As String

   Const DB_PATH As String = _
      "c:\program files\microsoft office\office\samples\northwind.mdb"

   Set acApp = New Access.Application
   With acApp
      .OpenCurrentDatabase DB_PATH
      ' 打印 Product Catalog 报表。
      .DoCmd.OpenReport "Catalog", acViewNormal, , _
         "CategoryName = '" & strCategoryName & "'"
   End With
   acApp.Quit
   Set acApp = Nothing
End Sub

使用 NewAccessProject、OpenAccessProject 或 CreateAccessProject 方法可打开或创建 .adp 类型的数据库。NewAccessProject 方法可创建一个新的 .adp 类型数据库并使它处于活动状态，而 CreateAccessProject 方法只在硬盘上创建一个 .adp 文件。使用 OpenAccessProject 方法可打开一个现有的 .adp 类型数据库，而使用CloseCurrentDatabase 方法可关闭一个 .adp 类型的数据库。

创建新数据库或打开一个数据库后，可用 Application 对象的其它方法来创建新的 Access 对象。例如，可用 CreateForm 和 CreateControl 方法来创建窗体和窗体上的控件。可用 CreateReport 和 CreateReportControl 方法来创建报表和报表上的控件。可用 CreateDataAccessPage 方法来创建数据访问页。若要以编程方式给数据访问页添加控件，必须用脚本或动态 HTML (DHTML) 对象模型来直接处理 HTML。

注意   虽然上述方法可用编程方式来创建数据库和数据库中的对象，但这些方法通常只用在向导和加载项中。通常，要通过 Access 的用户界面中创建数据库及其对象，然后使用通过 Access 或其它 Office 应用程序运行的 Microsoft® Visual Basic® for Applications (VBA) 代码以编程方式处理这些对象。