用VB6创建MTS组件

新客网 XKER.COM 2003-04-18 来源： 收藏本文

'随便贴贴，学过VB的人都应该知道的，不好意思。
'**********************************************************************************************
' MTS VB6 COM Component Template - by Michael Gonzalez
'**********************************************************************************************
'(1) You must create a reference to the Microsoft Transaction Server Type Library (mtxas.dll).
' If using Windows 2000, choose the COM+ Services Library (comsvcs.dll) instead.
'(2) Set your ClassModule's MTSTransactionMode property to 2 - RequiresTransaction
' Note: ONLY use 2 - Requires Transaction if you plan on using the component with an MSDTC-
' compliant Resource Manager such as MSMQ or SQL Server - OTHERWISE, use
' 1 - No Transactions
'(3) Make sure your project's Unattended Execution property is checked
'(4) Make sure your project's Component Version Compatibility is set to Binary Compatibility
'**********************************************************************************************
' ObjectControl implements the interface that is used by MTS when the object is
' activated and/or deactivated - this happens when you call one of the components's methods
' The ObjectControl implementation makes use of three procedures:
' 1) ObjectControl_Activate
' 2) ObjectControl_CanBePooled
' 3) ObjectControl_Deactivate
'**********************************************************************************************
Implements ObjectControl

Dim objOC As ObjectContext

Public Sub Something()
'This is a user-defined procedure/method
'The ObjectContext Object is returned by GetObjectContext

On Error GoTo Abort

'*******************************************************
' Perform whatever you want in this area
' Visual Basic 6 stuff goes here
' The Something() procedure/method is just
' an example - you may use properties and other
' methods/procedures as well!
'*******************************************************

Finished:
objOC.SetComplete
Exit Sub
Abort:
objOC.SetAbort
Err.Raise Err.Number, Err.Source, Err.Description
Exit Sub
End Sub

Private Sub ObjectControl_Activate()
'MTS invokes this procedure/method when the component/object is instantiated
Set objOC = GetObjectContext()
Exit Sub
End Sub

Private Function ObjectControl_CanBePooled() As Boolean
'This enables MTS object pooling (not currently supported my MTS 2.0)
ObjectControl_CanBePooled = True
End Function

Private Sub ObjectControl_Deactivate()
'MTS invokes this procedure/method right before the component/object is released
Set objOC = Nothing
Exit Sub
End Sub

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件