Rellenar un Combobox con datos de una consulta

27/05/2009 - 00:21 por Gustavo Echenique | Informe spam
Hola Foro!

Estoy tratando de rellenar un combobox de 3 columnas con los datos de una
consulta realizada a un motor de bases de datos Informix.

La consulta se realiza perfectamente, ya que lo puedo comprobar mediante el
debug, pero la carga de datos en el ComboBox me arroja un error diciendo que
necesita un objeto.
El código de llenado es el siguiente:
While Not datos.EOF
Combo1.List(nFila, 0) = CStr(datos(0).Value)
Combo1.List(nFila, 1) = datos(1).Value
Combo1.List(nFila, 2) = datos(2).Value
datos.MoveNext
nFila = nFila + 1
Wend

En donde "datos" es el recordset que contiene los datos y obviamente
"Combo1" es el ComboBox en donde quiero que se inserten los datos.

Agradecería me marquen el error para así solucionarlo.

Desde ya, agradezco infinitamente su ayuda.

Saludos!

Gustavo Echenique
 

Leer las respuestas

#1 Gustavo Echenique
27/05/2009 - 01:42 | Informe spam
Hola Foro!

He estado probando con la opción "OPTION EXPLICIT" y cuando llegaba a la
parte de la asignación me decía que "Combo1" no estaba declarado.
Le agregué el número de hoja para calificarlo correctamente, quedando de
esta forma:
While Not datos.EOF
Hoja1!Combo1.List(nFila, 0) = CStr(datos(0).Value)
Hoja1!Combo1.List(nFila, 1) = datos(1).Value
Hoja1!Combo1.List(nFila, 2) = datos(2).Value
datos.MoveNext
nFila = nFila + 1
Wend

Ahí desapareció el error, pero me dice que "el objeto no admite esta
propiedad o método".

Saludos!

Gustavo Echenique

"Gustavo Echenique" escribió en el mensaje
news:
Hola Foro!

Estoy tratando de rellenar un combobox de 3 columnas con los datos de una
consulta realizada a un motor de bases de datos Informix.

La consulta se realiza perfectamente, ya que lo puedo comprobar mediante
el debug, pero la carga de datos en el ComboBox me arroja un error
diciendo que necesita un objeto.
El código de llenado es el siguiente:
While Not datos.EOF
Combo1.List(nFila, 0) = CStr(datos(0).Value)
Combo1.List(nFila, 1) = datos(1).Value
Combo1.List(nFila, 2) = datos(2).Value
datos.MoveNext
nFila = nFila + 1
Wend

En donde "datos" es el recordset que contiene los datos y obviamente
"Combo1" es el ComboBox en donde quiero que se inserten los datos.

Agradecería me marquen el error para así solucionarlo.

Desde ya, agradezco infinitamente su ayuda.

Saludos!

Gustavo Echenique


Preguntas similares