Pregunta sobre combo box
Mira mi nombre es Eduardo (Dedes), soy uruguayo y tengo 23 años, ya hace un tiempo que programo pero siempre lo hice sobre DOS, el cambio ha sido bastante duro pero aquí la vamos llevando.
La pregunta en si es fácil (creo), quiero poner en un combo box de VB 6.0 todos los datos de un campo de una base de datos.
Lo he intentado con el .additem pero no me funciono, también lo puese en dentro de un "FOR" para que se repitiera hasta el final de la base de datos pero sin resultados aparentes, es decir cuando habro el combo box en tiempo de ejecución no continene níngun dato, quiero hacer esto para que el usuario no tenga que escribir cada vez que ingrese un artículo.
Desde ya te agradezco y te saludo.
Gracias...
La pregunta en si es fácil (creo), quiero poner en un combo box de VB 6.0 todos los datos de un campo de una base de datos.
Lo he intentado con el .additem pero no me funciono, también lo puese en dentro de un "FOR" para que se repitiera hasta el final de la base de datos pero sin resultados aparentes, es decir cuando habro el combo box en tiempo de ejecución no continene níngun dato, quiero hacer esto para que el usuario no tenga que escribir cada vez que ingrese un artículo.
Desde ya te agradezco y te saludo.
Gracias...
1 Respuesta
Respuesta de Richard Chamorro Villar
1
Para simplificar las cosas, vamos a dividir el problema en 2:
- Añadir elementos al Combo
- Acceder a la base de datos
Para añadir elementos al Combo debes utilizar Additem, como en este ejemplo:
For i = 1 To 10
Me.Combo1.AddItem "Item " & i
Next
Para recorrer una Recordset que has abierto de una base de datos, suponiendo que al recordset lo has llamado oRs, se puede usar un código parecido a
While not oRs.EOF
ORs. MoveNext
Wend
Ahora juntamos las dos partes del código para hacer lo que tu quieres:
While not oRs.EOF
Combo1. Additem oRs. Fields("nombredelcampo")
ORS. MoveNext()
Wend
Ten en cuenta que los nombres de los controles, del campo de la tabla, e incluso la forma de obtenerlo pueden variar en función de muchas cosas.
- Añadir elementos al Combo
- Acceder a la base de datos
Para añadir elementos al Combo debes utilizar Additem, como en este ejemplo:
For i = 1 To 10
Me.Combo1.AddItem "Item " & i
Next
Para recorrer una Recordset que has abierto de una base de datos, suponiendo que al recordset lo has llamado oRs, se puede usar un código parecido a
While not oRs.EOF
ORs. MoveNext
Wend
Ahora juntamos las dos partes del código para hacer lo que tu quieres:
While not oRs.EOF
Combo1. Additem oRs. Fields("nombredelcampo")
ORS. MoveNext()
Wend
Ten en cuenta que los nombres de los controles, del campo de la tabla, e incluso la forma de obtenerlo pueden variar en función de muchas cosas.
