none
OBTENER DATO Y ALMACENARLO EN UNA VARIABLE GLOBAL EN VB.NET 3 CAPAS RRS feed

  • Pregunta

  • Ayuda o si pueden enviarme un Tutorial de Como Obtener un dato ya sea por medio de un  select o Procedure y almacenarlos en una Variable Global para luego utilizarlo en todo mi proyecto, algo parecido a lo que se hace en PowerBuilder obtengo un dato de alguna DataStore o Datawindow y lo almaceno en una variable Global para luego utilizarlo en todo mi proyecto.

    Ojo no es pasar de un formulario Padre a Hijo . Lo quiero utilizar en todo el proyecto en todos los formularios que se necesite.

    Un ejemplo obtener el idusuario, IdCargo, IdEmpresa o IdSucursal  

    Estoy programando en 4 capas. Ayuda :(


    jueves, 5 de noviembre de 2015 6:21

Respuestas

  • Hola Bryan:

    Declararías en primer lugar las propiedades de esos 4 campos en tu capa de datos o en la que creas conveniente.

        Public Shared Property idusuario As String
        Public Shared Property IdCargo As String
        Public Shared Property IdEmpresa As String
        Public Shared Property IdSucursal As String

    Posteriormente montarías la select con dichos campos aparte del where que quieras aplicar.

    Public Sub ExtraerDatos()
            Dim cadenaConexion As String = Configuracion.CadenaConexion
            Dim strSQL As String = "SELECT idusuario, IdCargo, IdEmpresa, IdSucursal " & _
                                      "FROM TuTabla WHERE Cod_Empresa = @empresa"
    
            Using Cnn As New OleDbConnection(cadenaConexion)
                Cnn.Open()
                Using cmd As New OleDbCommand(strSQL, Cnn)
                    cmd.Parameters.AddWithValue("@empresa", VariableEmpresa)
    
                    cmd.CommandType = CommandType.Text
                    Using dr As OleDbDataReader = cmd.ExecuteReader()
                        While rst.Read
                            tuClase.idUsuario = dr.GetString(0)
                            tuClase.IdCargo = dr.GetString(1)
                            tuClase.IdEmpresa = dr.GetString(2)
                            tuClase.IdSucursal = dr.GetString(3)
                        End While
                    End Using
                End Using
            End Using
        End Sub

    Y por último podrás llamar desde cualquier formulario a cualquier de esas propiedades de la siguiente forma:

    tuclase.ExtraerDatos

    textbox1.text = tuClase.idUsuario

    Esto está hecho para Access.

    Un cordial saludo.

    Gemma

    jueves, 5 de noviembre de 2015 7:28