Ver Mensaje Individual
  #9  
Antiguo 21-04-2008
mancurnino mancurnino is offline
Miembro
 
Registrado: feb 2008
Posts: 65
Reputación: 17
mancurnino Va por buen camino
vale, ya está, gracias a todos jejeje.me quedo así:

Código SQL [-]
ModuloDatos.Query_OrdenarReservas.SQL.Clear;
ModuloDatos.Query_OrdenarReservas.SQL.Add('Select ' + ModuloDatos.T_ReservaFechaIni.FieldName + ', ' + ModuloDatos.T_ReservaFechaFin.FieldName);
ModuloDatos.Query_OrdenarReservas.SQL.Add('From ' + ModuloDatos.T_Reserva.TableName);
ModuloDatos.Query_OrdenarReservas.SQL.Add('Order By ' + ModuloDatos.T_ReservaFechaIni.FieldName);

Código Delphi [-]
ModuloDatos.Query_OrdenarReservas.Open;
while not ModuloDatos.Query_OrdenarReservas.Eof do begin
  ListBox_Reservas.Items.Add(DateToStr(ModuloDatos.Query_OrdenarReservas.FieldByName('FechaIni').AsDat  eTime) + ' - ' 
  + DateToStr(ModuloDatos.Query_OrdenarReservas.FieldByName('FechaFin').AsDateTime));
  ModuloDatos.Query_OrdenarReservas.Next;
end;

Última edición por mancurnino fecha: 21-04-2008 a las 23:18:49.
Responder Con Cita