none
System.EnterpriseServices RRS feed

  • Pregunta

  • Hola amigos,

    Junto con saludarlos quisiera pedir su ayuda, bueno, resulta que donde trabajo existen 10 aplicaciones en .NET, la idea es desarrollar una componente, donde todas las aplicaciones pasen por ahí para conectarse a la base de datos, seleccionar, e insertar registros.

    Esto es sobre una BD Oracle, la cual registra la aplicacion que se esta conectando y los usuarios conectados a través de esa aplicación.

    La idea de esta componente, es que al conectarse en la base de datos se vea como que es solo una aplicación y no las 10.

    Solo realicé la conexión y la agregue a las 10 aplicaciones, pero en el monitor de oracle me aparecen las 10 aplicaciones conectadas, a pesar de que la conección se hace a través de este servicio.

    Las aplicaciones anteriores a .NET están en ese estilo. Seguramente es alguna configuración en mi componente, pero todavía no la encuentro, ME PODRIAN AYUDAR?, se los agradecería mucho.

     

    El código de mi componente es:

     

    Imports System.EnterpriseServices

    Imports System.Data.OracleClient

    Imports System.Data.OracleClient.OracleType

    <Assembly: ApplicationName("OraTransaction")>

    <Assembly: ApplicationActivation(ActivationOption.Server)>

    Namespace Transaccion

    <Transaction(TransactionOption.Required)> _

    Public Class OraTransaction

    Inherits EnterpriseServices.ServicedComponent

    Dim ocConecction As OracleConnection

    Shared Sub main()

    End Sub

    Public Function Conectar(ByVal strUserId As String, _

    ByVal strPassword As String, _

    ByVal strDataSource As String) As Integer

    Try

    ocConecction = New OracleConnection

    ocConecction.ConnectionString = "Data source=" & strDataSource & "; User Id=" & strUserId & ";Pwd=" & strPassword

    ContextUtil.SetComplete()

    ocConecction.Open()

    Catch ex As OracleException

    ContextUtil.SetAbort()

    End Try

    Return ocConecction.State

    End Function

    Public Sub Desconectar()

    ocConecction.Close()

    End Sub

    End Class

    End Namespace

     

     

     

    Para llamarla la agrego como referencia a mis proyectos y la llamo de la siguiente manera

     

    Imports Mis.Components

    Dim obj As New Transaccion.OraTransaction

    Label1.Text = obj.Conectar("DESARROLLO", "DESA", "DESARROLLO")

     

     

    La idea es que aunque esten las 10 apps conectadas a la BD, se vea como si fuese solo una App..., que aparezca mi componente,

     

    De antemano muchas gracias

    jueves, 23 de agosto de 2007 20:38

Todas las respuestas