10/09/2008, 07:14
|
| | | Fecha de Ingreso: diciembre-2007
Mensajes: 40
Antigüedad: 17 años, 5 meses Puntos: 1 | |
| Respuesta: Lista deplegable con todos los paises
esto es para q se cargue el combo ni bien abris el formulario
Private Sub Form_Load()
cargalistas
End Sub
con esto llenas tu combo con los datos de la bd
Private Sub cargalistas()
If rs14.State = 0 Then rs14.Open "Select * from paises order by idpais", cn, adOpenKeyset, adLockOptimistic
rs14.MoveFirst
Do While Not rs14.EOF
cbolocal.AddItem rs14.Fields("pais")
cbolocal.ItemData(cbolocal.NewIndex) = rs14.Fields("Idpais")
rs14.MoveNext
Loop
End Sub |