Ver Mensaje Individual
  #2 (permalink)  
Antiguo 08/11/2006, 10:24
Avatar de Stefanie
Stefanie
 
Fecha de Ingreso: septiembre-2006
Ubicación: Lima, Perú
Mensajes: 118
Antigüedad: 17 años, 8 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