Título del mensaje: Ayuda con el ComboBox

Hola, estoy trabajando con vb y mysql... y quiero desplegar los datos de una tabla en un combobox, en el cual tengo el siguiente código pero no me desplega ningún dato, podrían decirme si tengo algún error.

Gracias.

Código:

Dim SQL as String Set Rst_Combo = New ADODB.Recordset Rst_Combo.Open "SELECT nombre_area FROM area, BD, adOpenStatic, AdLockOptimistic" .open SQL, C_CADENA With Rst_Combo While Not Rst_Combo.EOF       Combo1.Clear       Combo1.AddItem = Rst_Combo.Fields(1).Value       RstCombo.MoveNext Wend Rst_Combo.Close End With

[ EDITADO POR TESIS PARA PONER ETIQUETA CODE ]

Título del mensaje: Re: Ayuda con el ComboBox

Hola Alejendro, saca fuera del bucle While esto:

Código:

Combo1.Clear

Que lo que hace es limpiar el contenido del combo.
Ponlo antes del While.


Saludos.

Título del mensaje: Re: Ayuda con el ComboBox

Gracias, voy a intentarlo.

Título del mensaje: Ayuda con el ComboBox

Hola de nuevo!!, gracias a su aportacion anterior solucione como desplegar datos en un combo box, pero ahora me surge otra duda...
Como almaceno los datos de este Combo a la base de datos.??
Tengo la siguiente sintaxis:

Código:

Set rs = New ADODB.Recordset     rs.Open "Select * from equipos", mc, adOpenStatic, adLockOptimistic     rs.AddNew     rs!nombre_equipo = Text2.Text     rs!marca = Text3.Text     rs!num_serie = Text4.Text     rs!modelo = Text5.Text     rs!semana1 = Combo1.Text()     rs!semana2 = Combo2.Text()     rs!semana3 = Combo3.Text()     rs!semana4 = Combo4.Text()         rs.Update     rs.Close

Gracias por su ayuda..

Título del mensaje: Re: Ayuda con el ComboBox

De la manera que nos muestras, solo cargará un registro en la BD. Tendrás que hacer un bucle que cuente los items que tiene el combo y esas son las vueltas que tiene que dar el bucle.

Saludos.