Ordenar por fecha - VB-MUNDO

Insomnia17 · #1 (**permalink**) 28-04-2005, 15:41:01

Hola

En un formulario de una aplicación tengo los siguientes datos:Curso, Persona, Fecha y Hora. En la tabla Curso-Persona guardo solo los códigos de curso y persona, pero para que en el formulario aparezcan los nombres los tengo relacionados.

Todo funciona bien pero no puedo ordenar los registros por fecha. El código que utilizo en el FormLoad es el siguiente:

Código:

    'Cargar ADODC
    Data1.ConnectionString = proveedor
    comando = "select * from curso order by nomcurso"
    Data1.CommandType = adCmdUnknown
    Data1.RecordSource = comando
    Data1.Refresh
    
    'Cargar ADODC
    Data2.ConnectionString = proveedor
    comando = "select idpersona, nombre & ' ' &+apellido as completo from persona order by nombre"
    Data2.CommandType = adCmdUnknown
    Data2.RecordSource = comando
    Data2.Refresh
    
    'Cargar ADODC
    Data3.ConnectionString = proveedor
    comando = "Select idcur, idper, finicio, horas from cursopersona order by FInicio"
    Data3.CommandType = adCmdUnknown
    Data3.RecordSource = "cursopersona"
    Data3.Refresh

El data3 es el que utilizo para moverme por los registros de Curso-Persona, y los otros dos son para relacionar con las tablas curso y persona. En la select del Data3 incluyo Order by FInicio.

Cual es el problema?, por que no ordena los registros por la fecha?

--Gracias--

LOBO_SUELTO_ · #2 (**permalink**) 28-04-2005, 19:45:42

hola el codigo sería:

Código:

'Cargar ADODC 
    Data1.ConnectionString = proveedor 
    comando = "select * from curso order by nomcurso" 
    Data1.CommandType = adCmdUnknown 
    Data1.RecordSource = comando 
    Data1.Refresh 
    
    'Cargar ADODC 
    Data2.ConnectionString = proveedor 
    comando = "select idpersona, nombre & ' ' &+apellido as completo from persona order by nombre" 
    Data2.CommandType = adCmdUnknown 
    Data2.RecordSource = comando 
    Data2.Refresh 
    
    'Cargar ADODC 
    Data3.ConnectionString = proveedor 
    comando = "Select idcur, idper, finicio, horas from cursopersona order by FInicio" 
    Data3.CommandType = adCmdUnknown 
    Data3.RecordSource = comando 'ACA ESTABA EL ERROR 
    Data3.Refresh

TAMBIÉN TE RECOMIENTO POR UN TEMA DE RENDIMIENTO QUE USES CommandType = adCmdText, y que trates de migrar a ado por código o DE, ya que cada adodc crea una conexión nueva y baja el rendimiento.
Espero haberte ayudado.
LOBO_SUELTO_

Insomnia17 · #3 (**permalink**) 29-04-2005, 07:36:03

Gracias, gracias, gracias,... :smt005

Te puedo decir que había revisado el código varias veces (la verdad es que me había concentrado tanto en mirar la select que parece que no veía nada mas).

Gracias también por el consejo, lo tendré muy en cuenta.

--Saludos--