COMBO BOX DINAMICO DE VISUAL BASIC

ing.
21 de Junio del 2004
HOLA!! MI PREGUNTA ES COMO PUEDO LOGRAR QUE UN COMBOBOX (CONTROL DE VISUAL BASIC) MUESTRE DATOS EXTRAIDOS DE UNA BASE DE DATOS ACCESS... POR EJEMPLO QUE MUESTRE CEDULAS GUARDADAS EN UN CAMPO DE UNA TABLA DE LA BASE DE DATOS... AYUDENME PLEASE.

Meifer
21 de Junio del 2004
Espero te sirva esto

Private Sub Form_Load()

'parametro
Call llenarcombo("Select campo from tabla", Combo, db)
end sub

funcion
'PARA LLENAR EL COMBO
Public Sub llenarcombo(SQL As String, Combo As ComboBox, conex As Object)
Dim rst As New ADODB.Recordset

rst.Open SQL, conex, adOpenStatic
Do While Not rst.EOF
Combo.AddItem (rst(0))
rst.MoveNext
Loop
rst.Close

End Sub

ing.
21 de Junio del 2004
MUCHAS GRACIAS MEIFER, ME SIRVIO...