Ver Mensaje Individual
  #4  
Antiguo 01-06-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Esta vez no te entendi bien

Podes copiarnos el codigo completo para ver como filtras?

Yo tuve ciertos "problemas" a la hora de usar fechas, concretamente con ADO + MS SQL Server 2005 y 2008; eso por usar TDate desde Delphi y tipo Fecha en el campo de la bd. Desde entonces siempre almaceno Fecha/Hora y desde Delphi utilizo TDateTime, indicando explicitamente la Hora. En tu caso por ejemplo el valor completo seria 01-01-2000 00:00:00 (por ejemplo)

Sobre todo en los desde/hasta, termine haciendo esto:

Código Delphi [-]
procedure ListaVentas: TDataSet;
var
  Desde, Hasta: TDateTime
begin
  // alternativa 1
  Desde := DateTimePicker1.DateTime - TimeOf(DateTimePicker1.DateTime);
  // alternativa 2, mas sana y legible a mi parecer
  Hasta := DateTimePicker2.DateTime;
  Hasta := EncodeDateTime(YearOf(Hasta), MonthOf(Hasta), DayOf(Hasta), 0, 0, 0, 0);
  with TADOQuery.Create(NIL) do
  begin
    Connection := DataModule.MainConnection;
    SQL.Text := ' SELECT * From Ventas WHERE Fecha BETWEEN :FDesde AND :FHasta ';
    with Parameters do
    begin
      ParamByName('FDesde').DataType := ftDateTime;
      ParamByName('FHasta ').DataType := ftDateTime; 

      ParamByName('FDesde').Value:= Desde;
      ParamByName('FHasta ').Value:= Hasta; 
    end;
    Open;   
  end; 
end;

A ver si te sirve!

Última edición por AgustinOrtu fecha: 01-06-2015 a las 05:25:31.
Responder Con Cita