Visual Basic para Aplicaciones - CARGAR en un COMBO

Life is soft - evento anual de software empresarial
 
Vista:

CARGAR en un COMBO

Publicado por Carlos (3 intervenciones) el 24/04/2003 12:46:18
Cómo puedo cargar en un combo todos los datos almacenados en un determinado campo????????? y además Sabrías como puedo hacer que una vez cargados los datos, al picar sobre uno determinado me salgan todos los datos del registro elegido?????????? 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

RE:CARGAR en un COMBO

Publicado por ana (2 intervenciones) el 26/04/2003 21:04:10
espero y esto te funcione y sea lo que tu deseas hacer.
Procedimiento para que al momento de seleccionar un campo de la combo aparezcan los demas campos
Private Sub nombre_combo_Click()
Set Mibase = OpenDatabase("c:\basededatos.mdb")
Set campo = Mibase.OpenRecordset("nombretabla")
While Not campo.EOF
If nombre_combo.Text = campo!campo1 Then
cmbo_deudores.Text = campo!campo1
‘lista de capos exiastentes en la tabla de la base de datos
txt1.Text = campo!campoclave
txt2.test= campo1
txt3.test= campo2
txt4.test= campo3
End If
campo.MoveNext
Wend
End Sub


Private Sub Form_Load()
Set Mibase = OpenDatabase("c:\basededatos.mdb")
Set campo = base.OpenRecordset("tabla")
If Not campo.EOF Then
campo.MoveFirst
Do While Not campo.EOF
‘muestra todos los datos de la tabla de la base de datos
cmbo_deudores.AddItem campo!nombre_escuela&campo1&campo2&campo3
campo.MoveNext
Loop
End If
campo.MoveFirst
nombre_combo.Text = campo!campo1
valida = True
Mi base.Close
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