Foros Club Delphi - Estructuracion del Codigo en SQL!!

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Estructuracion del Codigo en SQL!! (https://www.clubdelphi.com/foros/showthread.php?t=18811)

Estructuracion del Codigo en SQL!!

Buen dia Foristas:

Me encontre con unos problemas , espero me puedan ayudar Gracias.
Uso Paradox 7 y Delphi 5.0 , necesito hacer una consulta de rango de fechas
y estructure un codigo que se ejecuta al pulsar un boton, pero tengo errores me dice que:

Invalid File Name.
Fecha1
Alguien me puede ayudar a modificar mi codigo, no he podido hacerlo
Este es mi Codigo:

Código:

procedure TFCotiReport.RzBitBtn2Click(Sender: TObject);

   Var

          Fecha1,Fecha2:TDate; 

 begin

  Fecha1:= DateTimePicker1.Date;

  Fecha2:= DateTimePicker2.Date;

   DM3.wQueryReport.Sql.Clear;

   DM3.wQueryReport.Sql.Add('SELECT No_Presupuesto, Cod_Cliente, 

   Cliente, Obra, Fecha, FechaVenc');

   DM3.wQueryReport.Sql.Add('FROM "TPresupuestos.DB" Tpresupuestos');

   DM3.wQueryReport.Sql.Add 

         ('Where FechaVenc >= Fecha1 And FechaVenc <= Fecha2 ');

   DM3.wQueryReport.Open;

 end;

Saludos espero de su gran ayuda

Gracias una vez mas
Jmedina

Hola,
debes pasar los valores de Fecha1 y Fecha2 como parámetros a esa query:

Código Delphi [-]procedure TFCotiReport.RzBitBtn2Click(Sender: TObject);
begin
  DM3.wQueryReport.Sql.Clear;
  DM3.wQueryReport.Sql.Add('SELECT No_Presupuesto, Cod_Cliente, 
Cliente, Obra, Fecha, FechaVenc');
  DM3.wQueryReport.Sql.Add('FROM "TPresupuestos.DB" Tpresupuestos');
  DM3.wQueryReport.Sql.Add('Where FechaVenc >= :Fecha1 And FechaVenc <= :Fecha2 ');
  DM3.wQueryReport.ParamByName('Fecha1').AsDateTime := DateTimePicker1.Date;
  DM3.wQueryReport.ParamByName('Fecha2').AsDateTime := DateTimePicker2.Date;
  DM3.wQueryReport.Open;
end;

Si no quieres tener encuenta la hora, minutos y segundos de los DateTimePicker:

Código Delphi [-]  DM3.wQueryReport.ParamByName('Fecha1').AsDateTime := Trunc(DateTimePicker1.Date);
  DM3.wQueryReport.ParamByName('Fecha2').AsDateTime := Trunc(DateTimePicker2.Date);

gracias ya funciono , espero no tener que molestar otra vez

Saludos