Consulta con fechas en firebird error!!!

[manueltp]

MUCHAS GRACIAS POR SU AYUDA , YA LO HICE Y SI ME DA LA CONSULTA

SE LOS AGRADEZCO ...
AHORA LA DUDA SERIA Y AL MOMENTO DE HACER LA CONSUTLA EN DELPHI
COMO DEBO ESPECIFICAR LOS CARACTERES O CON QUE FUNCION LA DEBO DE HACER ......

TENGO ESTE CODIGO ::

Código Delphi [-]
procedure TFFechas.Button1Click(Sender: TObject);
begin
      //ShortDateFormat := 'mm/dd/yyyy';
      try
         FReporte:=TFReporte.Create(self);
         FReporte.QryReporte1.SQL.Add('SELECT FECHA, NOMBRE, MEDICO, PRIMERAVEZ, PARTICULAR, ASEGURADORA ');
         FReporte.QryReporte1.SQL.Add('FROM PACIENTES ');
         FReporte.QryReporte1.SQL.Add('WHERE  FECHA >= '+ DateToStr(DTP1.Date)+' AND  FECHA <= '+ DateToStr(DTP2.Date)+' ORDER BY FECHA');
         FReporte.QryReporte1.Open;
         ShortDateFormat := 'mm/dd/yyyy';
         //QRPlaGen.Titulo.text := 'Hojas de Pago de Planillas';
         FReporte.RVP1.ExecuteReport(ReporteF1);
      finally
         FReporte.RVP1.Destroy;
      end;
end;

aver si esta bien o no
se los agradeceria.

[brandolin]

yo normalmente hago lo siguiente...

Código Delphi [-]
try
         FReporte:=TFReporte.Create(self);
         FReporte.QryReporte1.SQL.Add('SELECT FECHA, NOMBRE, MEDICO, PRIMERAVEZ, PARTICULAR, ASEGURADORA ');
         FReporte.QryReporte1.SQL.Add('FROM PACIENTES ');
         FReporte.QryReporte1.SQL.Add(format('WHERE  FECHA >= ''%s'' AND  FECHA <= ''%s'' ORDER BY FECHA', [DateToStr(DTP1.Date), DateToStr(DTP2.Date)]));
         FReporte.QryReporte1.Open;
         ShortDateFormat := 'mm/dd/yyyy';
         //QRPlaGen.Titulo.text := 'Hojas de Pago de Planillas';
         FReporte.RVP1.ExecuteReport(ReporteF1);
      finally
         FReporte.RVP1.Destroy;
      end;

solo introduzco la funcion format y me da mas claridad en la sentencia...

[manueltp]

muchas gracias ....
otra cosa mas:

pero el DataTimePicker tomaria la fecha como : dd/mm/aaaa
y como mm/dd/aaaa
no me daria error con la fecha de nuevo?????

[[Delphius]]

¿Y porqué no usar parámetros y BETWEEN?

Código SQL [-]
Select tus_campos
from tu_tabla
where campo_fecha BETWEEN :fecha1 AND fecha2

Saludos,

[*Caro*]

Hola de nuevo, tienes que darle el formato a la fecha de tu DateTimePicker ya que te devolvera como dd/mm/yyyy, puedes utilizar también FormatDate y como te dije también puedes utilizar el Between en tu consulta.

Código Delphi [-]
procedure TFFechas.Button1Click(Sender: TObject);
begin
     try
         FReporte:=TFReporte.Create(self);         
         FReporte.QryReporte1.SQL.Add('SELECT FECHA, NOMBRE, MEDICO, PRIMERAVEZ, PARTICULAR, ASEGURADORA ');
         FReporte.QryReporte1.SQL.Add('FROM PACIENTES ');
         FReporte.QryReporte1.SQL.Add('WHERE FECHA BETWEEN '+QuotedStr(FormatDateTime('mm/dd/yyyy',DTP1.Date))+
         ' AND  '+ QuotedStr(FormatDateTime('mm/dd/yyyy',DTP2.Date))+' ORDER BY FECHA');
         FReporte.QryReporte1.Open;

         FReporte.RVP1.ExecuteReport(ReporteF1);
      finally
         FReporte.RVP1.Destroy;
      end;
end;

O utilizar parametros como te dice Delphius.

Código Delphi [-]
FReporte.QryReporte1.SQL.Add('SELECT FECHA, NOMBRE, MEDICO, PRIMERAVEZ, PARTICULAR, ASEGURADORA ');
         FReporte.QryReporte1.SQL.Add('FROM PACIENTES ');
         FReporte.QryReporte1.SQL.Add('WHERE FECHA BETWEEN :FECHAINI AND :FECHAFIN ORDER BY FECHA');
         FReporte.QryReporte1.ParamByName('FECHAINI').AsDate:=DTP1.Date;
         FReporte.QryReporte1.ParamByName('FECHAFIN').AsDate:=DTP2.Date;
         FReporte.QryReporte1.Open;

Saluditos

[manueltp]

muchas gracis por su ayuda .....
los implementare asi como me aconsejan ...
gracias
cualquier cosa escribo para su ayuda...
gracias

[MARLON1]

Empezado por Delphius

¿Y porqué no usar parámetros y BETWEEN?


Código SQL [-]Select tus_campos
from tu_tabla
where campo_fecha BETWEEN :fecha1 AND fecha2




Saludos,

Que tal Delphius:

Estoy utilizando el ejemplo que mencionas, pero me marca un error, "operacion no apicable" tendras alguna idea de por que me aparece el error, muchas gracias de antemano. Utilizo delphi 10.

Código SQL [-]
  QUERY1.Close;
   QUERY1.SQL.Clear;
   QUERY1.SQL.Add('SELECT * FROM REPDIARIO WHERE repfecha between :inicio and :final');
   query1.ParamByName('inicio').AsDate:=DateTimePicker1.Date;
   query1.ParamByName('final').AsDate:=DateTimePicker2.Date;
   QUERY1.Open;