Paso 3: Reutilización de componentes

Objetivos

En este paso, obtendrá información sobre lo siguiente:

• Componentes reutilizables.
• Cómo planear la reutilización.

Descripción

Dos partes anteriores de este manual de servicios COM+, Paso 1: Crear un componente transaccional y Paso 2: Extender una transacción entre varios componentes muestran cómo escribir un componente que llama a un segundo componente para ayudar a completar algún trabajo, actualizar la información de autor en la base de datos de Microsoft SQL Server Pubs; todo el trabajo está protegido por una sola transacción. Los componentes de ejemplo se centraron en el trabajo de actualizar los datos de un autor y comprobar la dirección del autor, y el procesamiento de transacciones proporcionado por COM+, la activación JIT y la protección de simultaneidad.

En este paso se muestra cómo reutilizar los componentes creados en los pasos 1 y 2 y se examina lo que esto significa para el diseño de esos componentes. Como se muestra en la ilustración siguiente, esto significa crear un nuevo componente, AddNewAuthor, que agrega nuevos autores a la base de datos mediante una llamada a UpdateAuthorAddress.

Además de reutilizar la funcionalidad del componente existente, AddNewAuthor llama a otro nuevo componente denominado ValidateAuthorName. Como se muestra en la ilustración anterior, ValidateAuthorName no es transaccional. El valor del atributo de transacción de este componente se deja en su configuración predeterminada (no compatible) para excluir su trabajo de la transacción. Como se muestra en el código de ejemplo del paso 3, ValidateAuthorName realiza consultas de solo lectura en la base de datos y el error de esta tarea secundaria no debe tener la posibilidad de anular la transacción. Sin embargo, el valor del atributo de transacción del AddNewAuthor componente se establece en Requerido.

UpdateAuthorAddressTodos AddNewAuthorlos componentes , y ValidateAuthorAddress votan en la transacción. En esta transacción, AddNewAuthor es el objeto raíz. COM+ siempre hace que el primer objeto creado en la transacción sea el objeto raíz.

En este ejemplo, reutilizar el UpdateAuthorAddress componente es fácil: COM+ entrega automáticamente los servicios esperados. Sin embargo, los resultados serían diferentes si el valor del atributo de transacción del UpdateAuthorAddress componente se estableció inicialmente en Requiere nuevo en lugar de Requerido. En la superficie, ambas configuraciones aparecen similares; ambos garantizan una transacción. Requiere New, sin embargo, siempre inicia una nueva transacción, mientras que Required inicia una nueva transacción solo cuando el autor de la llamada del objeto no es transaccional. Puede ver de esto lo importante que era configurar UpdateAuthorAddress cuidadosamente y cuidadosamente. De lo contrario, COM+ podría haber interpretado la solicitud de servicio de forma diferente, generando dos transacciones no relacionadas, como se muestra en la ilustración siguiente, en lugar de una.

Nota:

Al reutilizar componentes, asegúrese de que los servicios están configurados para admitir el resultado deseado.

 

Código de ejemplo

El componente AddNewAuthor realiza adiciones por lotes de nuevos autores al permitir que el objeto permanezca activo hasta que el cliente libere su referencia al objeto .

Option Explicit
'
'   Purpose:   This class is used for adding a new author.
'
'   Notes:    IMPT:  This component implicitly assumes that it will
'             always run in a transaction. Undefined results may 
'             otherwise occur.
'
'  AddNewAuthor
'
Public Sub AddNewAuthor( _
                        ByVal strAuthorFirstName As String, _
                        ByVal strAuthorLastName As String, _
                        ByVal strPhone As String, _
                        ByVal strAddress As String, _
                        ByVal strCity As String, _
                        ByVal strState As String, _
                        ByVal strZip As String, _
                        ByVal boolContracted As Boolean)
  ' Handle any errors.
  On Error GoTo UnexpectedError

  ' Verify component is in a transaction.
  ' The VerifyInTxn subroutine is described in Step 1.
  VerifyInTxn

  ' Get our object context.
  Dim objcontext As COMSVCSLib.ObjectContext
  Set objcontext = GetObjectContext

  ' Get the IContextState object.
  Dim contextstate As COMSVCSLib.IContextState
  Set contextstate = objcontext

  ' Validate that the author is OK.
  ' The ValidateAuthorName function is described after this function.
  Dim oValidateAuthName As Object
  Dim bValidAuthor As Boolean
  Set oValidateAuthName = CreateObject("ComplusPrimer.ValidateAuthorName")
  bValidAuthor = oValidateAuthName.ValidateAuthorName( _
    strAuthorFirstName, strAuthorLastName)
  If Not bValidAuthor Then
    Err.Raise 999999, "The AddNewAuthor component", _
      "You tried to add an author on the banned list!"
  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

  ' Tell the database to actually add the author; use empty strings 
  ' for this part and rely on the UpdateAuthorAddress 
  ' component to validate the address/phone/etc data.
  ' Default Contract flag is off.
  Dim strUpdateString As String
  strUpdateString = "insert into authors values(_
                     '789-65-1234'," & _
                     strAuthorLastName & ", " & _
                     strAuthorFirstName & ", " & _
                     "'(555) 555-5555', ', ', ', '98765', "

  If boolContracted Then
    strUpdateString = strUpdateString + "1)"
  Else
    strUpdateString = strUpdateString + "0)"
  End If

  conn.Execute strUpdateString
  
  ' Close the connection; this potentially allows 
  ' another component in the same transaction to
  ' reuse the connection from the connection pool.
  conn.Close
  Set conn = Nothing
  
  ' Create the UpdateAuthorAddress component.
  Dim oUpdateAuthAddr As Object
  Set oUpdateAuthAddr = CreateObject("ComplusPrimer.UpdateAuthorAddress")
  
  ' The component throws an error if anything goes wrong.
  oUpdateAuthAddr.UpdateAuthorAddress "", strPhone, _
    strAddress, strCity, strState, strZip
    
  Set oUpdateAuthAddr = Nothing
  
  ' Everything works--commit the transaction.
  contextstate.SetMyTransactionVote TxCommit
  
  '  Design issue:  Allow batch additions of new
  '  authors in one transaction, or should each new author be added
  '  in a single new transaction?
  contextstate.SetDeactivateOnReturn False
  Exit Sub
  
UnexpectedError:
  ' There's an error.
  contextstate.SetMyTransactionVote TxAbort
  contextstate.SetDeactivateOnReturn True
  
End Sub

El ValidateAuthorName componente valida los nombres de autor antes AddNewAuthor de agregar el nombre a la base de datos. Este componente devuelve un error a su llamador si ocurre algo inesperado.

Option Explicit
'
'   Purpose:   This class is used for validating authors before
'              adding them to the database.
'
'   Notes:   This component doesn't need to be in a transaction because
'            it is performing read-only queries on the database,
'            especially since these queries are not overlapping with
'            any updates of end-user data. If an unexpected error
'            happens, let the error go back to the caller who
'            needs to handle it.
'

Public Function ValidateAuthorName( _
                        ByVal strAuthorFirstName As String, _
                        ByVal strAuthorLastName As String _
                        ) As Boolean
  ValidateAuthorName = False

  ' 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

  ' Suppose another hypothetical table has been added to the Pubs 
  ' database, one that contains a list of banned authors.
  Dim rs As ADODB.Recordset
  Set rs = conn.Execute("select * from banned_authors")
  
  ' Loop through the banned-author list looking for the specified
  ' author.
  While Not rs.EOF
    If rs.Fields("FirstName") = strAuthorFirstName And _
      rs.Fields("LastName") = strAuthorLastName Then
        ' This is a banned author.
        conn.Close
        Set conn = Nothing
        Set rs = Nothing
        Exit Function
    End If
    rs.MoveNext
  Wend
  
  ' None of the added authors found in the banned list.
  ValidateAuthorName = True
  conn.Close
  Set conn = Nothing
  Set rs = Nothing
End Function

Resumen

• Hay ocasiones en las que no desea que un componente vote en la transacción.
• COM+ no aplica la activación JIT ni la protección de simultaneidad en componentes no transaccionales. Puede configurar estos servicios por separado.
• La configuración de un componente que llama afecta a la forma en que COM+ interpreta las solicitudes de servicio del componente llamado.

Temas relacionados

Paso 1: Crear un componente transaccional

Paso 2: Extender una transacción entre varios componentes

Configuración de transacciones

Diseño para escalabilidad