Foros del web, para los que viven de bits

vpino · 13-jun-2006, 17:02

Hola gente del foro. de nuevo piediendo ayuda, que tal que no existiera este foro.

estoy haciendo una consulta la cual carga los datos en un combobox, pero el problema es que tengo que hacer clic en el combo para ver los datos y lo que quiero es que me muestre el primer registro de la consulta sin necesidad de hacer clic dentro del combo.

Call Conexion
rsbuscar(0).Open "SELECT DISTINCT nivel,nombregrupo From partesdelequipo ORDER BY nivel", cnn, adOpenStatic, adLockOptimistic
While Not rsbuscar(0).EOF
grupop.AddItem rsbuscar(0)("nombregrupo") rsbuscar(0).MoveNext
Wend
Call cerrarcnn

agradezco cualquier colaboracion.

Insomnia · 14-jun-2006, 04:25

Hola

Para que el primer elemento del combo aparezca seleccionado, y por tando en el texto del combo:

Combo1.ListIndex=0

--Saludos--

elsaky · 14-jun-2006, 05:51

proba con esto

Call Conexion
rsbuscar(0).Open "SELECT DISTINCT nivel,nombregrupo From partesdelequipo ORDER BY nivel", cnn, adOpenStatic, adLockOptimistic
grupop.Text rsbuscar(0)("nombregrupo")
While Not rsbuscar(0).EOF
grupop.AddItem rsbuscar(0)("nombregrupo") rsbuscar(0).MoveNext
Wend
Call cerrarcnn

espero que te sirva
saludos

vpino · 14-jun-2006, 08:23

estuvo perfecta la respuesta, era lo que necesitaba. muchisisimas gracias por la ayuda.

13-jun-2006, 17:02	#1 (permalink)
vpino Fecha de Ingreso: diciembre-2004 Ubicación: colombia Mensajes: 229	como mostrar el primer dato en combobox Hola gente del foro. de nuevo piediendo ayuda, que tal que no existiera este foro. estoy haciendo una consulta la cual carga los datos en un combobox, pero el problema es que tengo que hacer clic en el combo para ver los datos y lo que quiero es que me muestre el primer registro de la consulta sin necesidad de hacer clic dentro del combo. Call Conexion rsbuscar(0).Open "SELECT DISTINCT nivel,nombregrupo From partesdelequipo ORDER BY nivel", cnn, adOpenStatic, adLockOptimistic While Not rsbuscar(0).EOF grupop.AddItem rsbuscar(0)("nombregrupo") rsbuscar(0).MoveNext Wend Call cerrarcnn agradezco cualquier colaboracion.

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

14-jun-2006, 04:25	#2 (permalink)
Insomnia Fecha de Ingreso: noviembre-2005 Mensajes: 448	Hola Para que el primer elemento del combo aparezca seleccionado, y por tando en el texto del combo: Combo1.ListIndex=0 --Saludos--

14-jun-2006, 05:51	#3 (permalink)
elsaky Fecha de Ingreso: junio-2006 Ubicación: Buenos Aires, Argentina Mensajes: 49	proba con esto Call Conexion rsbuscar(0).Open "SELECT DISTINCT nivel,nombregrupo From partesdelequipo ORDER BY nivel", cnn, adOpenStatic, adLockOptimistic grupop.Text rsbuscar(0)("nombregrupo") While Not rsbuscar(0).EOF grupop.AddItem rsbuscar(0)("nombregrupo") rsbuscar(0).MoveNext Wend Call cerrarcnn espero que te sirva saludos

14-jun-2006, 08:23	#4 (permalink)
vpino Fecha de Ingreso: diciembre-2004 Ubicación: colombia Mensajes: 229	estuvo perfecta la respuesta, era lo que necesitaba. muchisisimas gracias por la ayuda.