
08/11/2006, 10:24
|
 | | | Fecha de Ingreso: septiembre-2006 Ubicación: Lima, Perú
Mensajes: 118
Antigüedad: 18 años, 7 meses Puntos: 0 | |
Bueno para empezar tienes que hacerlo en el Form_Load de tu formulario asi se carga el combobox con los datos de la BD ni bien abres el formulario.
En el Form_Load puedes tienes que
conectar tu base datos
hacer la consulta a tu BD con el campo especifico que quieras listar y guardar esta informacion en un ADOBD.Recordset, algo asi :
Public Function Funcion_Consulta() As Recordset
CONEXION A BD .....
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Source = (aki pones la consulta a TU DB con el campo especifico que quieras colocar en tu combobox)
.CursorLocation = adUseClient
.Open
End With
Set Funcion_Consulta = rs
Set rs = Nothing
End Function
una vez hecho eso tienes q agregarlos al combo box entonces en tu Form_Load pondrias algo asi:
do until rs.eof
combo.additem(rs("CAMPOESPECIFICO"))
rs.movenext
loop
de esa forma llenarias tu combo ... bueno espero haberte ayudado en alguito xD jejejeje o por lo menos haberte dado la idea :P
Última edición por Stefanie; 08/11/2006 a las 10:26
Razón: jeje
|