Programación General > Visual Basic 6.0 e inferiores

 Mandar 2 consultas recordset a un combobox

(1/1)

feivelfabiola:
Quisiera saber como poner 2 consultas de ADO recordset en un solo combobox, la base de datos es access 2007, seria algo asi:

numero_localidad   nombre_localidad
112                            el yunque
134                            el simbad
142                            las palmas
             etc.

Espero que me puedan orientar algo, darme ideas, igual yo cuando pueda contestare preguntas aqui o en otro foro, gracias de antemano por la ayuda.  :)

Elnonaso:

--- Cita de: "feivelfabiola" ---Quisiera saber como poner 2 consultas de ADO recordset en un solo combobox, la base de datos es access 2007, seria algo asi:

numero_localidad   nombre_localidad
112                            el yunque
134                            el simbad
142                            las palmas
             etc.

Espero que me puedan orientar algo, darme ideas, igual yo cuando pueda contestare preguntas aqui o en otro foro, gracias de antemano por la ayuda.  :)
--- Fin de la cita ---
Buen dia fevelfabiola, una solucion podria ser la siguiente:
Abres el recordset de la siguiente forma, yo voy a agregar algo que no se si lo tiene tu mdb, pienso que si
Dim rs As New ADODB.Recordaset
rs.Open "select idlocalidad, numero_localidad +' '+nombrelocalidad From LOCALIDADES Where numero_localidad+ ' '+nombre_localidad='" + cmblocalidad "' ORDER BY idlocalidad",cn, adOpenDynamic, adLockOptimistic, adCmdText
Donce cn es una funcion publica para conectarte con la base de datos, si la necesitas te la mando.
Ojo yo no estoy utilizando, como veras un DATAENVIROMENT, pues considero que de esta forma obtengo mayor elasticidad.
Luego agregas los campos
With cmblocalidad "nombre del combobox de ejemplo
    Do Until rs.EOF
        .AddItem rs("numero_localidad+ ' '+nombre_localidad")
        .ItemData(.NewIndex) = rs("idlocalidad")
        rs.MoveNext
    Loop
mas o menos asi, ajustalo, a mi me funciona bien
Saludos

Navegación

[0] Índice de Mensajes