Llenar campos de una tabla en un combo-box
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
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
2 Respuestas
Respuesta de emperador20
1
Para llenar un campo es así vos trata de interpretarlo para modificarlo según tu forma de programar
Consulta
select campo1 from tabla1
set del recordset (segun tu forma)
combo1.clear
do while nor rs1
Combo1. Additem rs1! Campo1
Rs1.movenext
loop
Rs1. Close
Consulta
select campo1 from tabla1
set del recordset (segun tu forma)
combo1.clear
do while nor rs1
Combo1. Additem rs1! Campo1
Rs1.movenext
loop
Rs1. Close
Gracias pero ahora quiero otra cosa te mande mi duda en otra pregunta
Es de un combo1 que son tablas y al marcar una tabla me muestre los datos de un campo
Saludos y gracias
Es de un combo1 que son tablas y al marcar una tabla me muestre los datos de un campo
Saludos y gracias
Por favor termina esta pregunta gracias
Respuesta de netvaio
1
Tengo un ejemplo cuando lo hacia con ado ojala te ayude
While profesor.Recordset.EOF = False
mar = 0
For x1 = 0 To Combo1.ListCount
If profesor.Recordset.Fields(3) = Combo2.List(X) Then
mar = 1
End If
Next x1
If mar = 0 Then
Combo1.AddItem (profesor.Recordset.Fields(3))
End If
Profesor. Recordset. MoveNext
Wend
While profesor.Recordset.EOF = False
mar = 0
For x1 = 0 To Combo1.ListCount
If profesor.Recordset.Fields(3) = Combo2.List(X) Then
mar = 1
End If
Next x1
If mar = 0 Then
Combo1.AddItem (profesor.Recordset.Fields(3))
End If
Profesor. Recordset. MoveNext
Wend