ADO控件之事务管理在VB和DELPHI中的应用_信息工程大学学报

本文收录于<<信息工程大学学报>>2001年3期

ActiveX数据对象之事务控制在VB和DELPHI中的应用

马根峰1 , 孙艳2, 宋伟1

( 1.重庆邮电学院,重庆,400065 ；2. 铁道部第十九工程局四处，通辽，028000 )

摘要事务控制是数据库应用系统中的关键技术之一，本文一开始先对事务控制的概念以及微软的ActiveX数据对象(ADO)的事务控制做了简介，之后以一个具体

的实例给出ActiveX数据对象的事务控制在VB和DELPHI中的使用方法。

关键词ActiveX数据对象(ADO)；事务控制；VB；DELPHI

中图分类号：文献标识码：

1引言

在数据库的应用中，有时会遇到以独立单元保存或取消对源数据所做的一系列更改。

例如在货币转帐时，必须从帐户中减去某个数额并将其对等数额添加到另一个帐户。无论其中的哪个更新失败，都将导致帐户收支不平衡。再如，在进行商品库存管理时，当发生购进或售出商品时，一方面要在商品的销售表中保存该商品的销售记录，另一方面，还要在商品库存中对该种商品的库存进行调整。无论其中的哪个更新失败，都将导致商品收支不平衡。在这种情况下，必须通过事务控制来保证操作的一致性。

2ActiveX数据对象事务控制

2.1 ActiveX数据对象(ADO)简介

Microsoft ActiveX Data Objects(ADO)是Microsoft开发的数据访问对象，它可使用户通过何OLE DB Provider 访问数据库服务器中的数据。ADO趋向于提供一种

稳定的接口，来使用户利用多种不同的数据源包括从非关系型数据源（包括文本文

件、电子邮件等）到ODBC关系型数据库。所以它是对ODBC的扩充。

ADO的主要优点是使用简单，快速，内存消耗量低，磁盘的占有量少，在关键情况下网络的通信量最少，前端与数据存储之间的层次最少，是一种轻便质优的接

口。

2.2 ActiveX数据对象(ADO)事务控制

BeginTrans、CommitTrans和RollbackTrans是ADOConnection部件供数据库应用程序在运行时调用开始事务、控制并保存或放弃所做数据修改的方法。

BeginTrans开始一个事务

当开始一个事务时，后来所有读写数据库的操作都发生在这次事务的环境中，直到本次事务通过调用CommitTrans或RollbackTrans来显示的终止为止。还以商

品管理为例，当购进或售出商品时，在商品数据库记录上必须发生两个修改：

A、购进或销售的记录必须记录在销售表中；

B、在商品库存中对该类商品的库存进行调整。

如果出于某种原因，其中的一个操作不能被完成，那么任何一个操作都不应该发生。因为这些操作是相关的，它们发生在同一个事务中。

●RollbackTrans取消事务中的修改并终止当前事务

为了取消对数据库所做的修改，必须用RolllbackTrans方法返回一个事务。

RollbackTrans方法取消当前事务中对数据库所做的修改并终止当前事务。

●CommitTrans提交一个事务

为了做永久性的修改，必须CommitTrans方法提交事务，这将保存用户对数据库所做的修改并结束当前事务。

在VB 6.0中，ADO成为它与各种数据源的缺省接口，ADO数据访问方式是现在和未来VB乃至Microsoft的各种应用软件进行数据访问与应用的主流。

而在DELPHI中，基于DBE(Borland Database Engine的简称，即Borland数据库引擎)的数据库访问方式是DELPHI的标准的、传统的方式；基于ADO技术

的数据库访问方式，这是DELPHI 5.0新增的功能。DELPHI 5.0 提供了一整套

ADO组件，封装了ADO框架的所有功能。

下面以商品库存管理来分别阐明ADOConnection的事务控制在VB和DELPHI中的应用。

3商品库存管理中的数据库

该数据库GoodsManagement用Microsoft的SQL Server创建，包括三个用户数据表，用户表Users、库存表Goods、进销表InOutGoods，每个数据表的表结构如下：

●用户表Users

字段名数据类型长度

用户名V ARCHAR 8

用户类型V ARCHAR 10

用户口令V ARCHAR 6

主键为：用户名

注：

用户类型有一般用户和系统管理员两种，其中一般用户只能进行销售商品，碉系统管理员还可以增加或删除用户，由于本文章只是阐述ADOConnection的事务控制，

所以也就涉及到用户管理。

●库存表Goods

字段名数据类型长度

商品名V ARCHAR 14

商品描述V ARCHAR 16

商品库存SMALLINT 2

主键为：商品名

●进销表InOutGoods

字段名数据类型长度

进销V ARCHAR 2

商品名称V ARCHAR 14

商品数量SMALLINT 2

商品价格MONEY 8

操作人员V ARCHAR 8

操作时间DA TETIME 8

主键为：（操作人员，操作时间）

外键为：操作人员，对应于Users表的用户名

4ADO事务控制应用〈〈商品库存管理〉〉在VB中的实现4．1 数据环境设计器

图1数据环境设计器

数据环境设计器中主要控件的属性如下：

控件名控件类型重要属性设置

CN ADOConnection对象ConnectSource如下：Provider=SQLOLEDB.1;Password=SA;Persist Security Info=True;User ID=sa;

Initial Catalog=GoodsManagement

Goods ADOCommand对象ConnectionName：CN

CommandText：Goods InOutGoods ADOCommand对象ConnectionName：CN

CommandText：Goods StrSQL ADOCommand对象ConnectionName：CN

CommandText：Goods

4．2 进库管理模块的代码

下面就以其中的一个程序段“进库管理”来说明ADO数据对象如何实现事务管理。

Dim intNum1, intNum2 As Integer

‘开始一个事务

.BeginTrans

With DE.rsInOutGoods

‘写入购进商品的记录

.AddNew

.Fields(0).Value = "进"

.Fields(1).Value = TxtName.Text

.Fields(2).Value = CInt(TxtNumber.Text)

.Fields(3).Value = CInt(TxtPrice.Text)