开发学院WEB开发ASP 用VB6创建MTS组件 阅读

用VB6创建MTS组件

 2001-02-12 10:16:31 来源:WEB开发网   
核心提示:随便贴贴,学过VB的人都应该知道的,用VB6创建MTS组件,不好意思,'**' MTS VB6 COM Component Template - by Michael Gonzalez'**'(1) You must create a reference to the Microsoft
随便贴贴,学过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

Tags:VB 创建 MTS

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接