TRANSACOES ENTRE VARIOS COMPONENTES MTS/COM .

Public Sub InsereCliente( ByVal N-PARAMETERS, byVal Telefones())
    Dim a                As Integer
    Dim x                As Integer
    Dim objDADOS         As cDados.clsDados
    Dim objCTXT          As ObjectContext
    
    On Error GoTo trataErro
    
    'Iniciamos a preparação da string de comando SQL "simplificada" 
    'para enviar ao componente de dados
    strSQL = "INSERT INTO cliente("
    strSQL = strSQL & " id_cliente"
    strSQL = strSQL & ")VALUES("
    strSQL = strSQL & lngID_CLIENTE & ")"

    'Marca o contexto da transação deste objeto
    Set objCTXT = GetObjectContext()
        
    'Inicia uma nova transação da minha classe de manipulação 
    'de dados que deve ser filha da atual.
    Set objDADOS = objCTXT.CreateInstance("cDados.clsDados")
  
    'O código abaixo deveria estar em uma transação controlada pelo MTS
    'Tal qual Connection.BegginTrans, mas consultando o BD após a execução 
    'o registro ja consta sem nenhum tipo de "trava" a espera de 
    'uma confirmação.

    'Inserimos na tabela cliente utilizando o método insert do nosso 
    'componente de manipulação genérica de dados que fica disponível para 
    'todas aplicações que utilizarem a mesma base.
    objDADOS.Insert (strSQL)
    Set objDADOS = Nothing

    'Laço de inclusão de telefones aonde forçamos o erro para teste travando 
    'a tabela.
    For x=0 To Ubound(Telefones())
	
	'Nada diferente de preparar uma string SQL, instanciar um novo 
	'cDados.clsDados e Inserir na Telefone
        'Esta função é private e encontra-se neste mesmo componente.
        InsereTelefone(lngID_CLIENTE, Telefone(x))

    Next

    'Tudo ocorreu perfeitamente, MTS confirme todas operações.
    objCTXT.SetComplete
    Set objCTXT= Nothing

    On Error Return 0
    Exit Sub

trataErro:
    'Algo falhou, MTS cancele todas operações.
    objCTXT.SetAbort
    Set objCTXT= Nothing
    Set objDADOS = Nothing

Exit Sub

Public Sub Insert(ByVal STR_SQL As String)
Dim strSQL               As String
Dim CNN                  As ADODB.Connection

10  On Error GoTo ErrorHandler

20  strSQL = STR_SQL

30  Set CNN = New ADODB.Connection

40  CNN.CursorLocation = adUseClient

'Obviamente ReadDSN é uma função que nos retorna uma ConectionString
50  CNN.Open ReadDSN

60  CNN.Execute strSQL, , adExecuteNoRecords

70  CNN.Close
80  Set CNN = Nothing

'O componete usa transação, avisemos ao MTS que o método obteve exito ...
90  GetObjectContext.SetComplete

100 Exit Sub

ErrorHandler:

110 If Not CNN Is Nothing Then
120     Set CNN = Nothing

130 End If

' ... ou não
140 GetObjectContext.SetAbort

150 App.LogEvent "cDados.clsDados.Insert" & " [" & Err.Number & "] - " & _
                 Err.Description & " line " & Erl

160 Err.Raise Err.Number, Err.Source, Err.Description

End Sub