Visual Basic - Llenar combo box y...

Life is soft - evento anual de software empresarial
 
Vista:

Llenar combo box y...

Publicado por Juan MIguel (3 intervenciones) el 22/06/2001 20:47:10
Tengo en un formulario un control Data ligado a una base de datos Access97. tambien tengo un combo box que quiero que sea llenado con todos los registros de un determinado campo de esa base de datos.
Lo que quiero hacer es que, después de llenar el combo, poder seleccionar un registro, para que el puntero se coloque sobre ese registro de la base de datos y mostrar, en controles text, el contenido de los campos de la tabla relacionados con ese registro.

Uff, me ha costado explicarlo pero me está costando más resolver el problema.

De antemano, gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

EJEMPLO

Publicado por MARTIN {^_^} (116 intervenciones) el 22/06/2001 20:56:15
Para vb6 y DAO:
Para llenar el combo:

Dim dt As Recordset
Set dt = basededatos.OpenRecordset("DATOS", dbOpenTable)

Do Until dt.EOF

Combo1.AddItem dt("NOMBRE")

dt.MoveNext
Loop

para seleccionar del combo y poner los datos en textbox:

Private Sub Combo1_Click()
Dim dt As Recordset
Set dt = basededatos.OpenRecordset("DATOS")

Do Until dt.EOF

If dt("NOMBRE") = Combo1.Text Then
Text1.Text = dt("NOMBRE")
Text2.Text = dt("APELLIDO")
Text3.Text = dt("DIRECCION")
Text4.Text = dt("TELEFONO")
Text5.Text = dt("CUMPLEAÑOS")
Text6.Text = dt("EDAD")
End If

dt.MoveNext
Loop

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar