《COM+系列——COM+事务处理.doc》由会员分享，可在线阅读，更多相关《COM+系列——COM+事务处理.doc（9页珍藏版）》请在金锄头文库上搜索。
1、COM+系列COM+事务处理COM+系列COM+事务处理 在三层或者多层的架构应用中,COM+的事务功能运用的比较多。COM+事务的功能是非常强大的。COM+使用Microsoft Distributed Transaction Coordinator(DTC)作为事务管理器和事务协调器在分布式环境中运行事务。COM+事务的强大功能表现在：可以在多个数据库中操作数据，处理消息队列等，把这些操作作为一个原子操作。他是一个基于操作系统级别的事务。我们用一个例子来说明COM+的事务。第一步:首先打开SqlServer2000,建立数据库Test表的Sql脚本如下CREATE TABLE dbo.te
2、st1 (a int NOT NULL ,b int NULL ) ON PRIMARYGOCREATE TABLE dbo.test2 (a int NOT NULL ,b int NULL ) ON PRIMARYGO两张表的唯一区别就是test2有一个主键，而test1没有初始化没有数据。第二步：然后打开vb6,新建Activex Dll工程。工程名修改为TestComTrans,类名修改为Class1修改Class1的属性MTSTransactionMode为2-RequireTransaction,这一步很重要。也可以不用选择，按照默认的设置，后面在COM+容器中设置事务。引用”Mi
3、crosoft Activex Data Object 2.7 Library”对象库和”COM+ Services Type Library”代码如下：Option ExplicitPublic Sub Add()On Error GoTo errnumber:Dim objCtx As ObjectContextSet objCtx = GetObjectContext()Dim Conn As ADODB.ConnectionSet Conn = New ADODB.ConnectionConn.Open Provider=SQLOLEDB.1;Persist Security Info
4、=False;User ID=sa;Initial Catalog=test;Data Source=localhost在这里处理数据Conn.Execute insert into test1(a,b) values(1,1)Conn.Execute update test1 set b= b + 1Conn.Execute insert into test2(a,b) values(1,1)Conn.Execute update test2 set b= b + 1objCtx.SetComplete 事务成功提交If Not Conn Is Nothing ThenIf Conn.Sta
5、te = 1 ThenConn.CloseEnd IfSet Conn = NothingEnd IfExit Suberrnumber:If Not Conn Is Nothing ThenIf Conn.State = 1 ThenConn.CloseEnd IfSet Conn = NothingEnd IfobjCtx.SetAbort 事务失败回滚Err.Raise Err.Number, 事务失败会滚,原因: , Err.DescriptionEnd Sub编译成TestComTrans.Dll文件,系统自动会注册。否则就手工注册 Regsvr32 f:test TestComTr
6、ans.dll第三步：部署在控制面板中找到管理工具，打开后就可以看到组件服务。先创建一个COM+应用程序的名字,然后再新建组件，使用组件安装向导的时候，请使用安装新组件。如果此时我们的组件中设置MTSTransactionMode为2-RequireTransaction,当组件放入COM+管理器中，它会自动把组件的Transaction属性设置为Required(必需)，只有选择安装新组件的时候，这种缺省设置才会生效。如果组件中没有设置事务属性，那么这时也可以在COM+管理器中设置。第三步：测试我们打开vb新建一个标准exe工程,添加一个按钮即可使用后期绑定来测试代码如下：Option Ex
7、plicitPrivate Sub Command1_Click()Dim obj As ObjectOn Error GoTo errhanderSet obj = CreateObject(TestComTrans.Class1)Call obj.AddMsgBox 事务成功Exit Suberrhander:MsgBox Err.Source + Err.Description, vbOKOnly, Err.NumberEnd Sub然后我们运行，第一次点击按钮的时候，会提示事务成功，看一下数据库，每个表中都有一条记录是1和2。第二次点击按钮的时候，由于test2中有主键，插入重复数据导
8、致主键冲突，事务会滚，这是test1表中的数据也自动会滚。从而保证了数据的一致性。第四步：验证我们可以看一下事务的处理过程，打开组件管理，并选择分布式事务处理协调器节点下面的事务统计数据节点。可以看到事务成功的提交量和数务失败的中止量以及汇总的结果。常见的错误1. 如果这段代码在类模块中执行或者编译注册后vb引用执行。objCtx.SetAbort均报错：实时错误91，未设置对象变量或者with block变量.正确的方法：必须把这种组件注册到组件服务器中，则上述代码可以执行。顺便解释一下配置型组件与非配置型组件如果一个组件被安装到COM+组件服务器中，我们称这种组件为配置型组件。这种组件可以充分利用COM+服务，当组件被安装后，系统在一个系统编目表中为它分配一个称为COM+注册数据库(regDB)的配置文件.该编目表保存着为组件以及COM+应用所配置的属性设置。非配置型组件与COM+属性没有相互关联。非配置型组件不安装到COM+应用中，而以一种与COM早期版本兼容的方式注册，可以看作以regsvr32方式注册。非配置型组件不能利用COM+的服务。2. 必须在组件管理器中的组件的事务支持的选项选择必需或者要求新建，否则事务不会执行成功。
