Delphi数据库编程教程（三）

第三节 ADO（ActiveX Data Objects）编程模型

如文章“Delphi中引入ADO”所叙述的，ADO是一套COM（Component Object Model组件对象模型）组件（DLLs）,它允许你像访问电子邮件和文件系统一样访问数据库。使用ADO编写的应用程序不需要BDE。为了用ADO访问各种数据库，你需要有ADO/OLE DB（Object Linking and Embedding对象链接和嵌入）库。使用ADO所需要的可能在你的计算机中已存在：这些文件被微软作为Windows98/2000的一部分分发。如果你使用的是Windows95或NT，你可能需要分发或安装ADO引擎。Delphi 5的CD中包含有MDAC-Microsoft Data Access Components（微软数据访问组件）的安装文件。你应该确定使用的是MDAC的最新版本，它可以从微软的官方网站获得。MDAC是使Universal Data Access（通用数据访问）起作用的关键技术。它们包括ActiveX Data Objects(ADO)、OLE DB和Open Database Connectivity(ODBC)。

注：为了在Windows95的计算机上正确安装，MDAC需要DCOM95（Distributed Component Object Model分布式组件对象模型）已被安装。为了正确的注册，MDAC所安装的组件依赖于DCOM95所安装的DLLs。注意，DCOM95在NT4.0中是不需要的。在某些情况下，DCOM不需要安装在运行Windows的计算机中。但如果没有被安装，安装MDAC前应安装DCOM98。

没有必要过多的讨论OLE DB和ADO，让我们转移到更实际的问题上。

ADO 对象（ADO Objects）

ADO编程模型围绕着几个ADO对象而建立，这些对象为访问各种数据员提供多种方法。这些对象提供连接数据源、查询和更新记录集、报告错误的功能。Delphi通过几个VCL组件通过访问这些对象的封装组件。让我们看一下与ADO工作的对象是那些：

Connection （连接）对象，通过连接字符串与数据源连接。在BDE/Delphi中，连接对象是数据库组件和会话（Session）组件的结合。

Command （命令）对象，使我们能操作数据源。它描绘一个命令（也视为查询或叙述），能处理对数据库数据的增加、删除、查询或更新。

Recordset （记录集）对象，是查询（Query）命令的结果。你可以认为Recordset 是一个Delphi表（Table）组件或查询（Query)组件。Recordset 返回的每一行都包含多个字段（Field）对象。

其他几个在ADO模型中存在的对象有：字段（Field）对象、参数（Parameter）对象和错误（Error）对象—在接下来的章节中将会回过来谈到它们。

第四节用ADOExpress连接数据库

在对ADOExpress集合的每个组件进行简要的解释之前，让我们首先了解一下怎样连接到Access数据库。当然，当然我们将连接到我们的样例数据库—AboutDelphi.mdb（译者加：在上一章中所建立的数据库）。

Delphi(5)主要通过组件面板ADO页上的ADOExpress组件实现对ADO的支持。几个其他的数据库使能组件在本课程中将被使用。目前，我们将主要关注用ADO访问Access数据库所需的最小的组件集。

运行Delphi，建立一个新的带有空的表单的应用程序。

为了能通过ADO和Delphi访问Access数据库的数据，你必须在你的工程中至少增加三个数据可视（data aware)组件。首先是数据控制（DataControls）组件页的DBGrid—用于浏览从一个表格或通过查询获得的记录。其次是DataSource（DataAccess数据访问页），用于连接数据集和表单上的DBGrid组件，从而实现潜在数据集数据的现实、导航（navigation）和编辑。最后是ADOTable（ADO页），它描绘从ADO数据库获得的一个表。把它们都拖放在表单（Form）上，组件名都取默认值。这时表单应如图所示：

如果你现在运行程序，Grid中没有数据显示—当然，因为我们没有真正地连到数据库上。注意另一点：仅仅Grid使可见的，其他两个组件是不可视控件（controls-unvisible）。

组件间的连接（Link between components）

为了显示数据库中的数据，我们必须把三个组件连在一起。在对象监视器（Object Inspector）中进行如下设置：

DBGrid1.DataSource = DataSource1；
DataSource1.DataSet = ADOTable1 ；

现在我们到了比较难的部分了，为了真正从数据库中获得数据，我们必须建立一个连接字符串（ConnectionString）。这个字符串指出了数据库的物理存储位置和访问方式。当你双击AdoTable组件的ConnectionString(连接字符串)属性的省略号按钮，你将得到如下的对话框：

建立一个连接字符串时，我们有两种选择：使用Data Link File（数据连接文件）（.UDL）或手工建立一个连接字符串。现在我们手工建立它，点击Build按钮—弹出Data Link Properties（数据连接属性）对话框。这个对话框有4页。Provider（提供者）页允许你指定提供者—这里选择Microsoft Jet 4.0 OLE DB Provider。点击Next（下一个）按钮将引导我们进入第二页：Connection（连接）。选择省略号按钮浏览找到我们的数据库（AboutDelphi.mdb）。可以点击Test Connection（测试连接）按钮检验是否可以成功连接—应该是成功的。其它页暂时不进行设置。最后，点击OK关闭Data Link Properties对话框，再点击OK关闭ConnectionString对话框—连接字符串被存储在ADOTable组件的ConnectionString属性中。连接字符串已如下所示：

      Provider=Microsoft.Jet.OLEDB.4.0;
      Data Source=C:!gajbaAboutaboutdelphi.mdb;
      Persist Security Info=False

为了完成设计，我们必须设置通过ADOTable组件访问的表名称—再一次使用Object Inspector。

ADOTable1.TableName = Applications

如果你想在设计时看见数据库的数据，可使用ADOTable的Active（激活）属性—设置它为True。

哈！如果你已进行以上的所有步骤，现在你见看到Applications表仅有一个记录（行）。当你运行应用程序时，你甚至能改变数据库的数据。当然，你不能做更多的是—这是我所能想到的最简单的ADO的例子。

现在可以结束这一部分了。下一章中，我们将讨论Delphi提供所有的ADO组件以及它们怎样与余下的数据可视化（data-aware）组件进行通讯，从而创建一个功能更强大的Delphi数据库应用程序。

2002年12月22日 20:14

补充：软件开发 , Delphi ,