• Domingo 28 de Abril de 2024, 23:35

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Elnonaso

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: Mandar 2 consultas recordset a un combobox
« en: Domingo 10 de Enero de 2010, 15:29 »
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.  :)
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

2
Visual Basic 6.0 e inferiores / Re: Como ordenar un datacombo?
« en: Domingo 10 de Enero de 2010, 15:04 »
Cita de: "feivelfabiola"
Espero que me puedan orientar, es que se que se puede extraer toda una columna de una tabla access con este control pero no se si se pueden ordenar estos valores, gracias de antemano por su ayuda.
Te paso un ejemplo para ordenar:

Dim T As New ADODB.Recordset
T.Open "SELECT campos separados por coma FROM table WHERE idcampo='" + objeto + "' ORDER BY campo que deseas ordenar",  ....
En este caso genere el uid y la conexion dsn en una funciòn publica igualada a la variable cn
entonces  la parate final quedaria algo asi:
,cn,Ad....,ad....., si deseas que tome toda la instruccion SQL o algo asi, terminas con adCmdText.
Espero sirva
Saludos

Páginas: [1]