Problemas con un combobox
Tengo un combobox que quiero rellenarlo a traces de un RecordSet, pero no tengo la más mínima idea de como hacerlo, ¿me puedes dar una mano? Ademas quiero que me aparezca lleno cuando uno accese a él.
Gracias
Gracias
1 respuesta
Respuesta de andresmaga
1
<%=Texto%>
buenas, es muy fácil hacer esto; simplemente tenés que hacer lo siguente:
(Yo lo puse en el evento load del form; pero podés cambiarlo a cualquier otro evento)
Private Sub Form_Load()
'declaramos las variables
Dim rs As Recordset
Dim i As Integer
'inicializamos el objeto recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select Campo from tabla", conexion, adOpenStatic, adLockOptimistic
'nos fijamos si hay algún dato para cargar
If rs.RecordCount > 0 Then
'recorremos el recordset agregando todos los datos
For i = 0 To rs.RecordCount
Combo1.AddItem = rs![Campo]
Next i
End If
'liberamos la memoria
rs.close
set rs = nothing
End Sub
buenas, es muy fácil hacer esto; simplemente tenés que hacer lo siguente:
(Yo lo puse en el evento load del form; pero podés cambiarlo a cualquier otro evento)
Private Sub Form_Load()
'declaramos las variables
Dim rs As Recordset
Dim i As Integer
'inicializamos el objeto recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "Select Campo from tabla", conexion, adOpenStatic, adLockOptimistic
'nos fijamos si hay algún dato para cargar
If rs.RecordCount > 0 Then
'recorremos el recordset agregando todos los datos
For i = 0 To rs.RecordCount
Combo1.AddItem = rs![Campo]
Next i
End If
'liberamos la memoria
rs.close
set rs = nothing
End Sub
