Filtro por fecha

[Jason_zakio]

Todo bien compañeros!

Uso Firebirt
Campos (id, fecha, total)
Ocupo su gran ayuda! Tengo un formulario y necesito filtrar por fecha ejemplo(15/10/08) pero no logro como hacerlo, porfavor se los pido con mi corazón expliquemento con detalle para entenderlo bien.
Explico como lo tengo y de esta manera no me funciona!
Ten un componente DataTimePicke
En el evento OnChange tengo este código:

Cuando trato de filtrar la fecha no la filtra sino que pone el Dbgrid en vacio.. porfavor es urgente se los ruego expliquemenlo! MIllones de gracias!!!!



Código Delphi [-]
procedure TFrmCierreDiario.F_ActualChange(Sender: TObject);
var
filtrando : string;
begin

if not Modulo.IBTransaction1.InTransaction then
Modulo.IBTransaction1.StartTransaction;
with Modulo.IBFactutas do begin
Close;
SelectSQL.Clear;

SelectSQL.Add('SELECT id, fecha, total');
SelectSQL.Add('FROM Facturas');
SelectSQL.Add('WHERE UPPER(Fecha) LIKE ''' + DatetoStr(f_actual.Date) +'%''');
SelectSQL.Add('ORDER BY id');

Open;
end;
end;

[*Caro*]

Hola jason_zakio, cuando haces consultas por fechas en firebird debes pasarle en fomato mm/dd/yyyy.

Código Delphi [-]
.................
SelectSQL.Add('WHERE Fecha = ''' + FormatDateTime('mm/dd/yyyy',f_actual.Date)+''');
.................

o también puedes utilizar parametros, busca en el foro.

Saluditos

[Jason_zakio]

No se porque no me funciona trate de esta manera y nada que funciona:


Código Delphi [-]
SelectSQL.Add('SELECT id, fecha, total');
SelectSQL.Add('FROM Facturas');
SelectSQL.Add('WHERE UPPER(Fecha) LIKE ''' + FormatDateTime('dd/mm/yyyy',f_actual.Date) +'%''');
SelectSQL.Add('ORDER BY id');




alguna ayuda que me guie se los agradesco, xq cuando digito la informacion en el TDataTime trata de filtrar pero al final limpia el Dbgrit como si no encontrara ningun dato... por ejemplo hay una factura con la fecha 16/05/2008 y en el TDataTime busco esta misma fecha pero no me tira ningun resultado... estoy frustrado xq intento y nada... porfavor ayudenme

[Gallosuarez]

Jason:

Primero, como dices que existe una una factura con la fecha 16/05/2008 (dd/mm/aa), entoces prueba tu query así:

Código Delphi [-]
SelectSQL.Add('where Fecha = cast(''' + '05/16/08' + ''' as date)');

Si es que ahora ya te filtró correctamente, entonces prueba el siguiente código:

Código Delphi [-]
 
SelectSQL.Add('where Fecha = cast(''' + FormatDateTime('mm/dd/yy', f_actual.Date) + ''' as date)');

Ojo: acuerdate que el formato debe de ser 'mm/dd/yy'

Saludos,
Gerardo Suárez Trejo

P.D. No creo que te sirvan de algo los operadores UPPER y LIKE cuando trabajas con fechas. Tal vez te te sirvan los operadores BETWEEN y AND. Otra cosa que es muy importante: el campo Fecha debe de ser de tipo DATE no de tipo TIMESTAMP, sino tendras que poner algo asi: ... cast(Fecha as date) = cast(....