Ordenar por un campo de una tabla que es de tipo date

[[eduarcol]]

pues si puedes utilizar esto:

Código SQL [-]
Select * from reserva order by FechaIni

[mancurnino]

he puesto esto:

ModuloDatos.Query_OrdenarReservas.SQL.Add('Select * ');
ModuloDatos.Query_OrdenarReservas.SQL.Add('From ' + ModuloDatos.T_Reserva.TableName);

ModuloDatos.Query_OrdenarReservas.SQL.Add('Order By ' + ModuloDatos.T_ReservaFechaIni.FieldName);

y debajo de esto tengo el codigo de antes:

while not ModuloDatos.T_Reserva.Eof do begin
ListBox_Reservas.Items.Add(
....
....

nose si sería este el proceso, el query se supone q te modifica la base de datos? pq al añadir elementos al listbox los cojo de ModuloDatos, y el query es una consulta, y el resultao se warda en el query no? no tendria q añadir en el listbox dsd el query en vez desde modulodatos? es que no se como iria esto.

[*Caro*]

Hola mancurnino, sería mejor que hicieras la consulta directamente sin tener que sacar el nombre de la tabla y el campo desde tu Table T_Reserva y tienes que recorrer tu Query y no tu Table. Mientras no hagas un insert, update... tu query no te modificara tu Base de Datos, solo recuperaras los registros que tu le indiques en tu consulta.

Código Delphi [-]
ModuloDatos.Query_OrdenarReservas.SQL.Add('Select * ');
ModuloDatos.Query_OrdenarReservas.SQL.Add('From NombreTabla'); 
ModuloDatos.Query_OrdenarReservas.SQL.Add('Order By FechaIni');
 
while not ModuloDatos.Query_OrdenarReservas.Eof do
 begin
  ListBox_Reservas.Items.Add(DateToStr(ModuloDatos.Query_OrdenarReservas.AsDateTime) + ' ' 
+ DateToStr(ModuloDatos.Query_OrdenarReservas.AsDateTime));
....

Saluditos

[mancurnino]

es que cuando añado al list box no me sale nada de eso que me pones de:

ModuloDatos.Query_OrdenarReservas.AsDateTime

Solo puedo acceder al codigo que le he metido (selex * from...) pero no al resultado, nose, lo que quiero sería algo asi como

ModuloDatos.Query_OrdenarReservas.FechaIni.AsString + ModuloDatos.Query_OrdenarReservas.FechaFin.AsString

que son las fechas que he obtenido y como ya estan ordenadas, las pongo como string y las añado al listbox, pero digamos que no puedo acceder a el resultado del query, o nose como se hace bien

[[eduarcol]]

es que debes colocar el nombre de tus objetos, pero asi como lo tiene Caro deberia funcionar

Ojo solo debes cambiar el nombre de los objetos

[mancurnino]

he puesto:

Código SQL [-]
 
ModuloDatos.Query_OrdenarReservas.SQL.Add('Select ' + ModuloDatos.T_ReservaFechaIni.FieldName + ', ' +  ModuloDatos.T_ReservaFechaFin.FieldName);
ModuloDatos.Query_OrdenarReservas.SQL.Add('From ' + ModuloDatos.T_Reserva.DatabaseName);
ModuloDatos.Query_OrdenarReservas.SQL.Add('Order By ' + ModuloDatos.T_ReservaFechaIni.FieldName);
while not ModuloDatos.Query_OrdenarReservas.Eof do begin
  ListBox_Reservas.Items.Add(DateToStr(ModuloDatos.Query_OrdenarReservas));
  ModuloDatos.Query_OrdenarReservas.Next;
end;

pero en ListBox_Reservas.Items.Add(DateToStr(ModuloDatos.Query_OrdenarReservas)) no puedo poner .AsDateTime

[[eduarcol]]

ModuloDatos.Query_OrdenarReservas

Y tu tienes los campos persistentes, porq ese es el nombre del query no veo el campo por ningun lado.

seria

Código Delphi [-]
ModuloDatos.Query_OrdenarReservas.FieldbyName('Campo').AsDateTime