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
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...