SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Bases de Datos => Mensaje iniciado por: RIPE en Martes 19 de Agosto de 2014, 18:40

Título: Mostrar Contenido de una base de Datos Mediante un combobox
Publicado por: RIPE en Martes 19 de Agosto de 2014, 18:40
 :think:  Saludos a todos..

Mi pregunta es la siguiente.
Como puedo mostrar información de un registro, seleccionando un dato de un combo box?

La cuestion es que tengo una Base de Datos en Access conectada a VB6 mediante un Adodc, y en un formulario tengo un combo box que muestra el por ejemplo el numero de empleado y al seleccionarlo me gustaria que en algunos textbox apareciera la información correspondiente a este empleado como su direccion, telefono, etc..

Podria alguien ayudarme..?  :whistling:
Título: Re:Mostrar Contenido de una base de Datos Mediante un combobox
Publicado por: TheBlackJoker en Martes 26 de Agosto de 2014, 17:32
Suponiendo que tu combo se llame CboProyecto, agregas este codigo en el evento click del mismo  :scream:
Código: Visual Basic
  1. Private Sub CboProyecto_Click()
  2. 'Para que al dar click al combo se valla al PROYECTO y sus datos correspondientes
  3. If CboProyecto.Text <> "" Then
  4.     Adodc1.Recordset.MoveFirst
  5.     For i = 0 To Adodc1.Recordset.RecordCount - 1
  6.         If CboProyecto.Text <> Adodc1.Recordset.Fields.Item("Proyecto") Then
  7.             Adodc1.Recordset.MoveNext
  8.         Else
  9.             Exit For
  10.         End If
  11.     Next i
  12. End If
  13. End sub
Y ESTE CODIGO, lo agregas en un procedimiento para llenar el cbo con los datos (como el form load, ahi estaria bien) :suerte:  :lightsabre:
Código: Visual Basic
  1. CboProyecto.Clear
  2.     Adodc1.Recordset.MoveFirst
  3.     For i = 0 To Adodc1.Recordset.RecordCount - 1
  4.         CboProyecto.AddItem Adodc1.Recordset.Fields.Item("Proyecto")
  5.         Adodc1.Recordset.MoveNext
  6.     Next i
  7. CboProyecto.ListIndex = 0
Avisame si funciona, estoy para ayudar ;)