Llenar un campos de una tabla un combobox
Hola experto quería saber como llenar con todos los datos del campo1 de la tabla1 en un combobox
Se como llenar tablas en un combobox pero campos de una tabla no
Set rs1 = ex.OpenSchema(adSchemaTables)
rs.MoveFirst
Do Until rs1.EOF
If rs1!table_type = "TABLE" Then
Combo1.AddItem rs1!table_name
End If
rs1.MoveNext
Loop
Gracias
Se como llenar tablas en un combobox pero campos de una tabla no
Set rs1 = ex.OpenSchema(adSchemaTables)
rs.MoveFirst
Do Until rs1.EOF
If rs1!table_type = "TABLE" Then
Combo1.AddItem rs1!table_name
End If
rs1.MoveNext
Loop
Gracias
1 Respuesta
Respuesta de denciso
1
Normalmente lo realizon un con recordset.
with rs
.open "Select micampo from mitabla"
end with
do while not rs.eof
Combo1. Additem rs. Fields(0)
rs.movenext
loop
with rs
.open "Select micampo from mitabla"
end with
do while not rs.eof
Combo1. Additem rs. Fields(0)
rs.movenext
loop
