none
Traer registros de la db RRS feed

  • Pregunta

  • Hola, una consulta como puedo traer registros de la DB  al formulario mediante una aplicación en capas les muestro el código:

    CAPA DATOS
    
    Public Function BuscarClienteXid(codigo As String) As clsClienteE
      Dim rs As ADODB.Recordset
      Dim cli As clsClienteE
      Dim strSQL As String
      strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular FROM Cliente WHERE cliCodigo='" & codigo & "'"
      Set rs = New ADODB.Recordset
      rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
      
    If Not rs.EOF Then
        Set cli = New clsClienteE
        cli.cliRuc = Conversion.CStr(rs!cliRuc)
        cli.cliRazonSocial = Conversion.CStr(rs!cliRazonSocial)
        cli.cliCiudad = Conversion.CStr(rs!cliCiudad)
        cli.cliDireccion = Conversion.CStr(rs!cliDireccion)
        cli.cliTelefono = Conversion.CStr(rs!cliTelefono)
        cli.cliCelular = Conversion.CStr(rs!cliCelular)
      End If
      Set BuscarClienteXid = cli
    End Function
    
    
    CAPA LOGICA
    
    Public Function BuscarClienteXid(codigo As String) As clsClienteE
    
      objClienteCD.BuscarClienteXid codigo
      
    End Function
    
    CAPA PRESENTACION
    
    Private Sub Form_Load()
      lblCodigo.Caption = mstrIDCliente
      If lblCodigo.Caption = "" Then Exit Sub
      Set objClienteCL = New clsClienteCL
      objClienteCL.BuscarClienteXid lblCodigo.Caption
    '  cli = objClienteCL.objClienteId.DataSource
      
      Set cli = New clsClienteE
      txtRuc.Text = cli.CliRuc
      txtRazonSocial.Text = cli.CliRazonSocial
      txtCiudad.Text = cli.CliCiudad
      txtDireccion.Text = cli.CliDireccion
      txtTelefono.Text = cli.CliTelefono
      txtCelular.Text = cli.CliCelular
    End Sub
    

    No me trae datos


    Pedro Avila

    martes, 14 de agosto de 2012 0:11

Respuestas

  • 'CAPA LOGICA
    Public Function BuscarClienteXid(codigo As String) As clsClienteE
      set
    BuscarClienteXid = objClienteCD.BuscarClienteXid (codigo)
    End Function

    • Editado ToniAG martes, 14 de agosto de 2012 12:39
    • Marcado como respuesta Pedro Ávila martes, 14 de agosto de 2012 12:41
    martes, 14 de agosto de 2012 12:37

Todas las respuestas

  • Hola

    y si haces estos cambios

    'CAPA Datos
    Public Function BuscarClienteXid(codigo As String) As clsClienteE
        Dim rs As ADODB.Recordset
        Dim cli As clsClienteE
        Dim strSQL As String
        
        strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular FROM Cliente WHERE cliCodigo='" & codigo & "'"
        Set rs = New ADODB.Recordset
        rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
      
        Set cli = New clsClienteE
      
        If Not rs.EOF Then
            cli.CliRuc = Conversion.CStr(rs!CliRuc)
            cli.CliRazonSocial = Conversion.CStr(rs!CliRazonSocial)
            cli.CliCiudad = Conversion.CStr(rs!CliCiudad)
            cli.CliDireccion = Conversion.CStr(rs!CliDireccion)
            cli.CliTelefono = Conversion.CStr(rs!CliTelefono)
            cli.CliCelular = Conversion.CStr(rs!CliCelular)
        End If
        
        Set BuscarClienteXid = cli
        
    End Function
    'CAPA LOGICA
    Public Function BuscarClienteXid(codigo As String) As clsClienteE
      objClienteCD.BuscarClienteXid codigo
    End Function
    'CAPA PRESENTACION
    Private Sub Form_Load()
      lblCodigo.Caption = mstrIDCliente
      If lblCodigo.Caption = "" Then Exit Sub
      
      Set objClienteCL = New clsClienteCL
      
      Set cli = objClienteCL.BuscarClienteXid(lblCodigo.Caption)
      
      txtRuc.Text = cli.CliRuc
      txtRazonSocial.Text = cli.CliRazonSocial
      txtCiudad.Text = cli.CliCiudad
      txtDireccion.Text = cli.CliDireccion
      txtTelefono.Text = cli.CliTelefono
      txtCelular.Text = cli.CliCelular
      
    End Sub


    • Editado ToniAG martes, 14 de agosto de 2012 11:26
    martes, 14 de agosto de 2012 11:23
  • Hola Toni, ya probe como me indicas pero no me trae registros

    Pedro Avila

    martes, 14 de agosto de 2012 12:29
  • 'CAPA LOGICA
    Public Function BuscarClienteXid(codigo As String) As clsClienteE
      set
    BuscarClienteXid = objClienteCD.BuscarClienteXid (codigo)
    End Function

    • Editado ToniAG martes, 14 de agosto de 2012 12:39
    • Marcado como respuesta Pedro Ávila martes, 14 de agosto de 2012 12:41
    martes, 14 de agosto de 2012 12:37
  • Ese era el problema, gracias Toni

    Pedro Avila

    martes, 14 de agosto de 2012 12:41
  • Pongo el Código correjido derrepente a alguien le puede servir.

    CAPA DATOS
    
    Public Function BuscarClienteXid(ByVal codigo As String) As clsClienteE
      Dim rs As ADODB.Recordset
      Dim cli As clsClienteE
      Dim strSQL As String
      strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular FROM Cliente WHERE cliCodigo='" & codigo & "'"
      Set rs = New ADODB.Recordset
      rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
      
      If Not rs.EOF Then
        Set cli = New clsClienteE
        cli.cliRuc = Conversion.CStr(rs!cliRuc)
        cli.cliRazonSocial = Conversion.CStr(rs!cliRazonSocial)
        cli.cliCiudad = Conversion.CStr(rs!cliCiudad)
        cli.cliDireccion = Conversion.CStr(rs!cliDireccion)
        cli.cliTelefono = Conversion.CStr(rs!cliTelefono)
        cli.cliCelular = Conversion.CStr(rs!cliCelular)
      End If
      Set BuscarClienteXid = cli
    End Function
    
    CAPA LOGICA
    
    Public Function BuscarClienteXid(ByVal codigo As String) As clsClienteE
      Set objClienteCD = New clsClienteAD
      Set BuscarClienteXid = objClienteCD.BuscarClienteXid(codigo)
    End Function
    
    CAPA PRESENTACION
    
    Private Sub Form_Load()
      lblCodigo.Caption = mstrIDCliente
      If lblCodigo.Caption = "" Then Exit Sub
      Set objClienteCL = New clsClienteCL
      
      Set cli = objClienteCL.BuscarClienteXid(lblCodigo.Caption)
      
      Aquí lo tenía al revez 
      txtRuc.Text = cli.CliRuc
      txtRazonSocial.Text = cli.CliRazonSocial
      txtCiudad.Text = cli.CliCiudad
      txtDireccion.Text = cli.CliDireccion
      txtTelefono.Text = cli.CliTelefono
      txtCelular.Text = cli.CliCelular
      
    End Sub
    Como le digo al código si no encontro un registro de un mensaje


    Pedro Avila


    martes, 14 de agosto de 2012 12:53