Traer registros de la db

Question

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

Answer 1

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

Answer 2

Hola Toni, ya probe como me indicas pero no me trae registros

---

Pedro Avila

Answer 3

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

Answer 4

Ese era el problema, gracias Toni

---

Pedro Avila

Answer 5

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