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