Busqueda por fecha IBquery
 

hola amigos, necesito que me echen una mano con un codigo que me esta aproblemando

Utilizo delphi 2006 conectado a firebird 2.0. Tengo una tabla llamada Registros, dentro de la cual existe un campo llamado Fecha. Este tiene formato DATE (EJ: 18-10-2007)

En un TForm tengo 2 TCalendar y un TIBQuery... Necesito hacer una consulta a la tabla registros, donde pregunto por coincidencias con respecto al campo Fecha.

Ahora bien.... la consulta se hace con respento a los dias seleccionados en los TCalendar... es decir, desde que dia (Calendar1) hasta que fecha Calendar2).

Lo tengo funcionando de la siguiente manera....

Código Delphi [-]
ibquery1.Close;
ibquery1.SQL.clear;
ibquery1.sql.add('Select * from Registros');
ibquery1.sql.Add('where dia = :fecha');
ibquery1.parambyname('fecha').asdatetime:=calendar1.CalendarDate;
 
J:=(daysbetween(calendar1.calendardate,calendar2.calendardate));
for I := 1 to J do    // dia
begin
ibquery1.sql.add('OR dia = :fecha'+inttostr(I));
ibquery1.parambyname('fecha'+inttostr(I)).asdatetime:=calendar1.CalendarDate+I;
end;
 
ibquery1.open;

... funciona bien, hasta que tengo que hacer una consulta que va desde 2 meses distintos, es decir desde (calendar1) 28-08-2007, hasta (calendar2) 5-10-2007.

Ahora bien, ni siquiera he pensado en cuando tenga que hacer una consulta que involucre distintos años....

Alguien me puede ayudar con alun codigo que me solucione mi problema....

muchas gracias por su tiempo

saludos

Antes de tratar de darte una respuesta quiero que me aclares algo...

¿Tu quieres que la consulta te devuelva la informacion que esta en la fecha seleccionada del Calendario1 y tambien la del Calendario2 o quieres que te devuelva toda la información que esta entre la fecha seleccionada del calendario1 y el calendario2?

Osea, ¿Cual de los dos siguientes ejemplos quieres obtener?:

1. Todos los registros del 28-08-2007 y de 05-10-2007.

o

2. Todos los registros que estan entre 28-08-2007 y 05-10-2007.

perdon si no fui claro... pero necesito una respuesta para la segunda opcion...

Por Ejemplo:

"Todos los registros que estan entre 28-08-2007 y 05-10-2007."

Gracias

Creo que te estás complicando la vida de una manera exagerada !! :o

Código Delphi [-]
ibquery1.SQL.clear;
ibquery1.SQL.Add('Select * from Registros');
ibquery1.SQL.Add('where dia between :fecha1 and :fecha2');
ibquery1.ParamByName('fecha1').AsDateTime := Calendar1.CalendarDate;
ibquery1.ParamByName('fecha2').AsDateTime := Calendar2.CalendarDate;
ibquery1.Prepare;
ibquery1.Open;

;)

Lo que dice gluglu es cierto, si eso es lo que necesitas no tienes que complicarte tanto la vida, con hacer lo que él dice bastara ;).