combobox

[andresnovat]

buenas tardes soy nuevo de este foro! y quería ver si me podían colaborar y ademas aprender de ustedes...
estoy asiendo un programa en visual basic 6 el cual tiene una conexión con una base de datos de visual foxpro 9
este programa q estoy desarrollando tiene la función de registrarme las huellas de los empleados en cierto campo de una tabla.
pero el problema q tengo es q cuando ponga en funcionamiento el programa. en un combobox me cargue todos los id disponibles q posee dicha tabla con la cual tiene la conexión pero solo me muestra el primer id q esta en la tabla y no me muestra nada mas les agradesco si me pueden colaborar...
e intentado de varias formas y no e podido :molesto:

[Malenko]

Y que consultas usas para cargar los datos?

P.D.: Como tengo puesto en la firma, no respondo consultas por privado. Gracias

[andresnovat]

q pena como asta ayer ingrese en esta pagina entonces no se pregunta

Set oconn = New ADODB.Connection
oconn.Open "Driver=Microsoft Visual FoxPro Driver; " + _
"SourceType=DBc;SourceDB=C:\fixsystech2\datos1.dbc ;BackgroundFetch=No;"
Set rs = oconn.Execute("select all id_empleado from Actividad_program")

y aca le muestro la conexion y la consulta

[gnzsoloyo]

Muestra al menos el código del proceso que carga los datos al ComboBox...

¿Validaste que la consulta devuelva más de un registro?

q pena como asta ayer ingrese en esta pagina entonces no se pregunta

La verdad no entiendo bien la observación... ¿Dices que no sabes preguntar, o diciendo que no vas a preguntar?
Trata de tomarte el tiempo de expresar las cosas con claridad. Ayuda a poder ayudarte.

PD: Yo tampoco respondo consultas por MP, y siendo tu primer post, no se ve muy bien que bombardees a los Moderadores y Colaboradores con MPs para que te asistan. Parece un acto de desesperación.

[andresnovat]

que pena x la molestia, como dije antes soy nuevo en esto de los foros.
el problema q tengo es q no se como hacer para el programa cuando lo ponga en funcionamiento me cargue directamente en un combobox todos los registros q tenga en el campo q voy a seleccionar.
y pues el código para q me cargue los datos en el combobox lo puse en el form_load()
e intente de esta forma y no pude

With Combo1
Combo1.Clear
For Each tFiel In rs.Fields
Combo1.AddItem id
Next
Combo1 = ""
End With

les agradezco si me pueden colaborar

[a18327]

Prueba con este código

Código:

With Combo1
Combo1.Clear
While Not rs.EOF 'Mientras no sea el Final del Recordset
    Combo1.AddItem rs("id_empleado") 'Agrega el valor de la columna "id_empleado" al combo
    rs.MoveNext 'Se mueve a la siguiente fila del recordset
Wend
Combo1 = ""
End With

Este código recorre todas las filas del recordset y va agregando el valor de la columna "id_empleado" al combo.

[andresnovat]

ya intente como eme indico a18327 pero no funciono me salio un error q dice
"end with sin with"
no funciona

[a18327]

Quita en With y el End With y dejalo así

Código:

Combo1.Clear
While Not rs.EOF 'Mientras no sea el Final del Recordset
    Combo1.AddItem rs("id_empleado") 'Agrega el valor de la columna "id_empleado" al combo
    rs.MoveNext 'Se mueve a la siguiente fila del recordset
Wend
Combo1 = ""

[andresnovat]

gracias al8327 ya me funciona...

y como puedo hacer para q cuando me este cargando los datos en el combobox no me inserte datos repetidos???

[a18327]

Lo puedes hacer desde la consulta, es decir cambiando

Código:

Set rs = oconn.Execute("select all id_empleado from Actividad_program")

por

Código:

Set rs = oconn.Execute("select distinct id_empleado from Actividad_program")