步骤 1：创建事务组件
目标
在本步骤中，你将了解以下内容：
- 如何在 Microsoft Visual Basic 中编写事务组件
- COM+ 服务的默认设置是什么
- 如何配置 COM+ 服务
说明
UpdateAuthorAddress 组件（要在本部分中创建的组件）会更新 Pubs 数据库中现有作者的地址。 Pubs 数据库是 Microsoft SQL Server 附带的示例数据库。 它包含发布信息，如作者名称、地址和书名。
注意
Pubs 是在整篇入门中使用的数据存储区。
由于 UpdateAuthorAddress 会更新数据存储区，因此建议在事务中包含工作，如下图所示，因此当客户端调用组件时，COM+ 会自动启动事务，并在该事务中登记数据库（资源管理器）。 （有关 COM+ 中的事务的详细信息，请参阅 COM+ 事务。）
若要将 UpdateAuthorAddress 设为事务组件，需要执行以下步骤：
必须编写组件。 为了获得额外的保护，会添加子例程，验证 COM+ 是否在事务中创建了对象。 此外，组件中包含基本错误处理，以简化错误恢复。 事务验证和错误处理增强了组件的可靠性。 （有关 UpdateAuthorAddress 组件的完整列表，请参阅步骤 1 示例代码。）
将组件添加到 COM+ 应用程序并安装应用程序后，必须事务属性必须设置为 Required，这可以保证 COM+ 在事务中创建每个 UpdateAuthorAddress 对象。 有关如何为组件设置事务属性的说明，请参阅设置事务属性。
注意
在组件上设置事务属性时，将定义 COM+ 如何创建与事务相关的每个对象。 事务属性值包括 Ignored、Not Supported、Supported、Required 和 Requires New。 Required 值不是组件的默认属性值之一。
COM+ 会使用实时 (JIT) 激活和并发绑定事务服务。 将组件声明为事务组件时，COM+ 还会强制实施 JIT 激活和并发保护（同步）。
示例代码
UpdateAuthorAddress 组件将打开与 Pubs 数据库的连接，从而允许用户修改作者的名称、地址或合同状态。 它还会调用第二个组件，这将在步骤 2：跨多个组件扩展事务中讨论。
若要在 Microsoft Visual Basic 项目中使用以下代码，请打开新的 ActiveX.dll 项目，并添加对 Microsoft ActiveX 数据对象库和 COM+ 服务类型库的引用。
注意
本入门中的示例代码是为了说明目的，对于实际暂存和生产来说可能不是最高效的代码。
Option Explicit
'
' Purpose: This class is used for updating an author's address.
'
' Notes: IMPT: This component implicitly assumes that it will
' always run in a transaction. Undefined results may
' otherwise occur.
'
'----------------------------------------------------------
' VerifyInTxn subroutine
' Verifies that this component is in a transaction.
' Throws an error if it is not.
'
Private Sub VerifyInTxn()
If Not GetObjectContext.IsInTransaction Then
' Transactions turned off.
Err.Raise 99999, "This component", "I need a transaction!"
End If
' Component is in a transaction.
End Sub
'----------------------------------------------------------
' UpdateAuthorAddress subroutine
' Procedure to update an author's address.
'
Public Sub UpdateAuthorAddress( _
ByVal strAuthorID As String, _
ByVal strPhone As String, _
ByVal strAddress As String, _
ByVal strCity As String, _
ByVal strState As String, _
ByVal strZip As String)
' Handle any errors.
On Error GoTo UnexpectedError
' Verify that component is in a transaction.
VerifyInTxn
' Get object context.
Dim objcontext As COMSVCSLib.ObjectContext
Set objcontext = GetObjectContext
' Get the IContextState object.
Dim contextstate As COMSVCSLib.IContextState
Set contextstate = objcontext
' Validate the new address information.
' The ValidateAuthorAddress function is described in Step 2.
Dim oValidateAuthAddr As Object
Dim bValidAddr As Boolean
Set oValidateAuthAddr = _
CreateObject("ComplusPrimer.ValidateAuthorAddress")
bValidAddr = oValidateAuthAddr.ValidateAuthorAddress( _
strAddress, strCity, strState, strZip)
If Not bValidAddr Then
Err.Raise 99999, "The UpdateAuthorAddress component", _
"The address of the author is incorrect!"
End If
' Open the connection to the database.
Dim conn As ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
' Specify the OLE DB provider.
conn.Provider = "SQLOLEDB"
' Connect using Windows Authentication.
Dim strProv As String
strProv = "Server=MyDBServer;Database=pubs;Trusted_Connection=yes"
' Open the database.
conn.Open strProv
' Execute the query.
conn.Execute "update authors set phone= '" & strPhone & "'" & _
" set address= '" & strAddress & "'" & _
" set city= '" & strCity & "'" & _
" set state= '" & strState & "'" & _
" set zip= '" & strZip & "'" & _
" where au_id = '" & strAuthorID & "'"
' Close the connection.
conn.Close
' Get rid of the connection.
Set conn = Nothing
' Everything works--commit the transaction.
contextstate.SetMyTransactionVote TxCommit
contextstate.SetDeactivateOnReturn True
Exit Sub
UnexpectedError:
' There's an error.
contextstate.SetMyTransactionVote TxAbort
contextstate.SetDeactivateOnReturn True
End Sub
总结
- COM+ 分配默认属性值。 可以重新配置大多数服务属性。
- 将组件的事务属性设置为 Required 时，可保证 COM+ 必须在事务中创建该组件的每个实例，但不一定启动新事务。
- 通过验证事务是否存在，可确认组件的事务属性值不会被无意重置为非事务值，例如 Ignore 或 Not Supported。
- 处理错误使组件更可靠且更易于故障排除。
- COM+ 为事务组件强制实施了 JIT 激活和并发保护服务。
- 若在完成后管理数据库连接，则将允许同一事务中的另一个组件重复使用连接池中的连接。 （不能将连接池与对象池混淆。）
相关主题