Principales respuestas
Traer registros de la db

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
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
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
-
-
'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
-
-
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
- Editado Pedro Ávila martes, 14 de agosto de 2012 12:53 x