To Be or Not To Be: Filtrar o no Filtrar esa es la cuestion

[[duilioisola]]

Una opción que me gusta un poco más es usar parámetros:
Te olvidas de esta manera de tener que dar formato a los campos (QuotedStr, DateTimeToStr, etc...

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Dia: String;
begin
 Dia:=DateTimeToStr(Now);
 with DM.IBQuery1 do
   begin
       if Active=True then Active:=False;
       UnPrepare;
       SQL.Clear;
       SQL.Add('SELECT DNI1, LETRA_NIF, APELLIDO_1, APELLIDO_2, NOMBRE, MATRICULA, CENTRO, OBJETO, DNI2, DIA_SALIDA, DIA_ENTRADA');
       SQL.Add('FROM EXTERNOS_DNI, MOV_EXTERNOS_DNI');
       SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA=?DIA_ENTRADA'); {Aqui no se si va ? o : delante del nombre del parametro}
       SQL.Add('ORDER BY DNI1');
       {No recuerdo si debe ir entre parentesis o entre corchetes}
       Params.ByName['DIA_ENTRADA'].AsDateTime := Dia;
       Prepare;
       if Active=False then Active:=True;
       Open;
   end;
end;

[gorsan]

El siguiente codigo (retocado minimamente respecto al que me has pasado) arroja cero registros y deberia haber alguno:

Código SQL [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Dia: String;
begin
 Dia:=DateTimeToStr(Now);
 with DM.IBQuery1 do
   begin
       if Active=True then Active:=False;
       UnPrepare;
       SQL.Clear;
       SQL.Add('SELECT DNI1, LETRA_NIF, APELLIDO_1, APELLIDO_2, NOMBRE, MATRICULA, CENTRO, OBJETO, DNI2, DIA_SALIDA, DIA_ENTRADA');
       SQL.Add('FROM EXTERNOS_DNI, MOV_EXTERNOS_DNI');
       SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA=?DIA_ENTRADA'); {en lugar de ? debe haber dos puntos}
       SQL.Add('ORDER BY DNI1');
       Params[0].AsString:=Dia;
       Prepare;
       if Active=False then Active:=True;
       Open;
   end;
end;

Creo que saber lo que pasa pero no como arreglarlo. La variable dia es un TDateTime convertido a cadena. Por tanto tiene el siguiente formato:
"01/01/2001 10:00:00" y claro, no coincide por el añadido de la hora. Lo suyo seria eliminar de alguna manera (?) el campo hora de la cadena. ¿Pero como?
Gracias de antemano.

[[Ivanzinho]]

Empezado por gorsan

El siguiente codigo (retocado minimamente respecto al que me has pasado) arroja cero registros y deberia haber alguno:

Código SQL [-]procedure TForm1.FormShow(Sender: TObject);
var
Dia: String;
begin Dia:=DateTimeToStr(Now); with DM.IBQuery1 do begin if Active=True then Active:=False;
UnPrepare;
SQL.Clear;
SQL.Add('SELECT DNI1, LETRA_NIF, APELLIDO_1, APELLIDO_2, NOMBRE, MATRICULA, CENTRO, OBJETO, DNI2, DIA_SALIDA, DIA_ENTRADA');
SQL.Add('FROM EXTERNOS_DNI, MOV_EXTERNOS_DNI');
SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA=?DIA_ENTRADA'); {en lugar de ? debe haber dos puntos}
SQL.Add('ORDER BY DNI1');
Params[0].AsString:=Dia;
Prepare;
if Active=False then Active:=True;
Open;
end;
end;


Creo que saber lo que pasa pero no como arreglarlo. La variable dia es un TDateTime convertido a cadena. Por tanto tiene el siguiente formato:
"01/01/2001 10:00:00" y claro, no coincide por el añadido de la hora. Lo suyo seria eliminar de alguna manera (?) el campo hora de la cadena. ¿Pero como?
Gracias de antemano.

Yo de ti lo almacenaría como un campo Date, pero para el caso que nos ocupa podría valerte los siguiente :

Código Delphi [-]
Dia := 'La_Fecha_Que_Sea%'
UnPrepare; 
SQL.Clear;SQL.Add('SELECT DNI1, LETRA_NIF, APELLIDO_1, APELLIDO_2, NOMBRE, MATRICULA, CENTRO, OBJETO, DNI2, DIA_SALIDA, DIA_ENTRADA');
SQL.Add('FROM EXTERNOS_DNI, MOV_EXTERNOS_DNI');
SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA like :DIA_ENTRADA'); 
SQL.Add('ORDER BY DNI1');
Params[0].AsString:=Dia;
Prepare;
if Active=False then 
   Active:=True;
Open;

Un saúdo

[[duilioisola]]

Lo malo de tratarlo como un string, son las conversiones. (dd/mm/yyyy, mm/dd/yyyy, etc.)

Puedes tratar de la siguiente manera:
Dia será del tipo TDateTime.
Trunc(Dia) devuelve la fecha sin hora.

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  Dia: TDateTime;
begin
   {Dia:=DateTimeToStr(Now);}
   with DM.IBQuery1 do
   begin
       if Active=True then Active:=False;
       UnPrepare;
       SQL.Clear;
       SQL.Add('SELECT DNI1, LETRA_NIF, APELLIDO_1, APELLIDO_2, NOMBRE, MATRICULA, CENTRO, OBJETO, DNI2, DIA_SALIDA, DIA_ENTRADA');
       SQL.Add('FROM EXTERNOS_DNI, MOV_EXTERNOS_DNI');
       SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA >= ESDE_ENTRADA AND DIA_ENTRADA < :HASTA_ENTRADA');
       SQL.Add('ORDER BY DNI1');
       Params[0].AsDateTime:=Trunc(Dia);
       Params[1].AsDateTime:=Trunc(Dia+1);
       Prepare;
       if Active=False then Active:=True;
       Open;
   end;
end;

[gorsan]

No entiendo bien el código que me pones:

Código Delphi [-]
SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA >= ESDE_ENTRADA AND DIA_ENTRADA < :HASTA_ENTRADA');

¿Podias ser mas explicito? Muchas gracias por tu tiempo.

[[Lepe]]

Estarás harto de usar procedimientos con parámetros de entrada ¿verdad? Por ejemplo cuando usas combo.Items.Add('un elemento más'), estas usando un parámetro de tipo texto que se lo das al método "Add". Pues eso mismo se hace aquí pero, con un TIBQuery.

En realidad, el código where debe aparecer así: (sin los emoticones jejeje):

Código Delphi [-]
SQL.Add('WHERE DNI1=DNI2 AND DIA_ENTRADA >= :DESDE_ENTRADA AND DIA_ENTRADA < :HASTA_ENTRADA');

Cuando antepones los dos puntos ":" a un nombre, éste se convierte en un parámetro de entrada, que después se asigna su valor con:

Código Delphi [-]
 Params[0].AsDateTime:=Trunc(Dia);
 Params[1].AsDateTime:=Trunc(Dia+1);

o bien:

Código Delphi [-]
 ParamByName('DESDE_ENTRADA').AsDateTime:=Trunc(Dia);
 ParamByName('hasta_entrada').AsDateTime:=Trunc(Dia+1);

Aquí se ha usado DESDE_ENTRADA y HASTA_ENTRADA, pero puedes poner el nombre que te venga en gana, siempre que no sea igual a una palabra reservada de SQL o nombre de un campo (eso ya es otra historia ).

¿Ventajas?
- Al usar parámetros el SQL queda compilado, las sucesivas ejecuciones son más rápidas, precisamente porque la expresion SQL no ha de evaluarse de nuevo.

- Delphi se encarga de las conversiones de fechas (por ejemplo), ten en cuenta que paradox, Firebird, Oracle, etc pueden usar configuraciones de fecha distintas dd/mm/yyyy o bien mm/dd/yyyy o bien yyyy/mm/dd.

Saludos

[[duilioisola]]

Una cosa más sobre la explicación que te han dado:

Si Dia = 03/10/2007 16:21
Trunc(Dia)=03/10/2007
Trunc(Dia+1)=04/10/2007

El WHERE del SQL hace que 03/10/2007 <= DIA_ENTRADA < 04/10/2007.
- O dicho de otra manera: que DIA_ENTRADA esté comprendido entre 03/10/2007 y 04/10/2007.
- O dicho de otra manera diferente: todas las horas del día 03/10/2007.

Nota:
- al poner >= 03/10/2007 tomará todo lo mayor que el 03/10/2007 y este incluido.
- al poner < 04/10/2007, tomará todo hasta el 04/10/2007 pero sin el 04/10/2007. O sea hasta el 03/10/2007 23:59:59