Sobre el uso de ParamByName

[salvica]

Empezado por ContraVeneno

¿y si utilizas "between" no funciona?

Código Delphi [-]with unQuery do begin .. SQL.Add('Where Fecha between :FechaAyer and :FechaManana'); ... ParamByName('FechaManana').AsDateTime := MI_FECHA+1; ParamByName('FechaAyer').AsDateTime := MI_FECHA-1; ...

Hola ContraVeneno, el problema no es la fecha, sino que debe recoger solo desde las 21:00:00 de ayer hasta las 00:00:00 de mañana (era parte de la condición del ejemplo)

Saludos
salvica

[ContraVeneno]

Empezado por salvica

Hola ContraVeneno, el problema no es la fecha, sino que debe recoger solo desde las 21:00:00 de ayer hasta las 00:00:00 de mañana (era parte de la condición del ejemplo)

Saludos
salvica

ya, vaya:

Código Delphi [-]
Var FechaAyer, FechaManana: TDateTime;
 ...
 FechaAyer := EncodeDateTime(YearOf(Fecha-1), MonthOf(Fecha-1), DayOf(Fecha-1), 21, 00, 00);
...
 SQL.Add('Where Fecha between :FechaAyer and :FechaManana');
 ParamByName('FechaAyer').AsDateTime := FechaAyer
 ...

[[Lepe]]

...pero en la hora 0:00:00 ya ha cambiado la fecha, es una lata andar con fecha de hoy, de mañana, etc...

No te vale algo así: fecha = :fecha and (hora between :hora1 and hora2)
En hora1 le pasas 21:00 (formato time), y en hora2 le pasas 23:59:59.999

Así usas un parámetro de fechas menos.


Saludos

[salvica]

Perdonar la tardanza, estaba probando lo anterior

Código SQL [-]
       SQL.Add( ' WHERE fecha BETWEEN :FechaAyer AND :FechaManana' );
       SQL.Add( '   AND DATE_FORMAT(hora, "%i:%s")="00:00"' );
       SQL.Add( ' ORDER BY clave' );
       ParamByName('FechaAyer').AsDateTime   := EncodeDateTime(YearOf(FECHA-1), MonthOf(FECHA-1), DayOf(FECHA-1), 23, 0, 0, 0);
       ParamByName('FechaManana').AsDateTime := EncodeDateTime(YearOf(FECHA+1), MonthOf(FECHA+1), DayOf(FECHA+1),  0, 0, 0, 0);

No funciona , me coge los tres días enteros

[ContraVeneno]

mmmkelas, pues entonces no entendí lo que estas buscando... déjame darle otra leída.

[salvica]

Mira contraveneno, tengo unas tablas que contienen datos recogidos de unos sensores, por lo que vienen en formato Fecha, Hora, Valor y Calidad, por eso lo de consultar en unas horas determinadas. Parece ser que con el ParamByName se resuelve (o lo he reuelto) así:

Código SQL [-]
       SQL.Add( ' WHERE (    (fecha = :FechaAyer   AND HOUR(hora)=21)' );
       SQL.Add( '         OR (fecha = :FechaHoy)' );
       SQL.Add( '         OR (fecha = :FechaManana AND HOUR(hora)= 0)' );
       SQL.Add( '       ) AND DATE_FORMAT(hora, "%i:%s")="00:00"' );
       SQL.Add( ' ORDER BY clave' );
       ParamByName('FechaAyer').AsDateTime   := Trunc(FECHA_PRESION-1);
       ParamByName('FechaHoy').AsDateTime    := Trunc(FECHA_PRESION);
       ParamByName('FechaManana').AsDateTime := Trunc(FECHA_PRESION+1);

La parte DATE_FORMAT(hora, "%i:%s")="00:00"' ) es la que me deja cojer los valores de las "horas en punto"

Gracias a todos
Salvica

[[Lepe]]

Editaaaaaado otra vez:

Pues entre tu última repuesta y esto, creo que vamos volando

Sí que hay que darle vueltas al tema jeje.

Código Delphi [-]
 SQL.Add( ' WHERE ( ');
  SQL.Add( '         ((fecha between :FechaAyer and :FechaAyer + 1)  AND (Hour(hora) between 21 and 23))' ); //ayer y hoy entre las 21 y 23
  SQL.Add( '         OR ((fecha between :FechaAyer +1 and FechaAyer +2) AND (HOUR(hora)= 0))' ); // hoy y mañana a las 0:00
  SQL.Add( '       )');
 SQL.Add( ' AND (DATE_FORMAT(hora, "%i:%s")="00:00")');
 SQL.Add( ' ORDER BY psensor.clave' );
   ParamByName('FechaAyer').AsDate := trunc(MI_FECHA);

Saludos