7 respuestas en este tema

[JandoK]

Como se podrian concatenar dos campos uno tipo FECHA  y otro tipo HORA dentro de la
clausula  WHERE de una consulta ???

El detalle es este, quiero sacar en una consulta, los registros de una tabla que se generaron
en un cierto horario.
En un principio, los periodos eran HORAS de un mismo dia, por ejemplo, de las  06:00:00  a  las 14:00:00
del dia 15-07-2009 .... ahi no habia problemas,

Consulta original :

delphi

Consulta.SQL.Text := 'SELECT Telefono, Domicilio, HServicio, Fecha  '+
                              'FROM tslocaleshist '+
                              ' WHERE  ((HServicio BETWEEN '+ QuotedStr(FormatDateTime('hh:nn:ss',DTPHoraI.Time)) +' AND ' + QuotedStr(FormatDateTime('hh:nn:ss',DTPHoraF.Time))+ ') and (Fecha = ' + QuotedStr(FormatDateTime('yyyy-mm-dd',DTPFechaI.Date))+' ) order by Fecha, HServicio';
     

Pero ahora, cambiaron los horarios de trabajo, y empiezan en la noche de un dia y terminan en la mañana del dia siguiente...

como se podria hacer la consulta ???

esto fue lo primero que se me ocurrio...

delphi

     Consulta.SQL.Text := 'SELECT Telefono, Domicilio, Halcon, HServicio, Fecha  FROM tslocaleshist '+
                 ' WHERE  ((HServicio >= '+ QuotedStr(FormatDateTime('hh:nn:ss',DTPHoraI.Time)) +' AND Fecha >= ' +QuotedStr(FormatDateTime('yyyy-mm-dd',DTPFechaI.Date)) +') AND (HServicio <='+ QuotedStr(FormatDateTime('hh:nn:ss',DTPHoraF.Time))+ ' and Fecha <= ' + QuotedStr(FormatDateTime('yyyy-mm-dd',DTPFechaF.Date)) + ')) order by Fecha, HServicio';

pero no funciona.. nunca se cumplen las condiciones ...

asi que lo que intento ahora es comparar con la hora y fecha  juntas

es decir algo como ....

delphi

     Consulta.SQL.Text := 'SELECT Telefono, Domicilio, Halcon, HServicio, Fecha  FROM tslocaleshist '+
  'WHERE (campo_fecha+campo_hora) BETWEEN fechainicio AND fechafin ';
 //  donde fechainicio y fechafin  estarian en formato  yyyy-mm-dd hh:nn:ss
 //  y la idea de concatenar los campos es que se tomen con ese mismo formato

espero me haya dado a entender...

gracias...

salu2!!!!!!!

[enecumene]

Pues se me ocurre que deberí­a de utilizar parámetros:

delphi

Consulta.SQL.Text := 'SELECT Telefono, Domicilio, HServicio, Fecha  '+
                              'FROM tslocaleshist '+
                              ' WHERE  HServicio BETWEEN :Hinicio  AND  :HFinal and Fecha = :FechaI order by Fecha, HServicio';
 
Consulta.ParamByname('Hinicio').Value := FormatDateTime('hh:nn:ss',DTPHoraI.Time);
Consulta.ParamByName('HFinal').Value := FormatDateTime('hh:nn:ss',DTPHoraF.Time);
Consulta.ParamByName('FechaI').Value := FormatDateTime('yyyy-mm-dd',DTPFechaI.Date);

Lo hice de memoria puede que haya que arreglar algo :$

Saludos.

[enecumene]

Espera, que me faltó la concatenación :

delphi

Consulta.SQL.Text := 'SELECT Telefono, Domicilio, HServicio, Fecha  '+
                              'FROM tslocaleshist '+
                              ' WHERE  HServicio BETWEEN :Hinicio  AND  :HFinal order by Fecha, HServicio';
 
Consulta.ParamByname('Hinicio').Value := FormatDateTime('yyyy-mm-dd',DTPFechaI.Date)+' '+FormatDateTime('hh:nn:ss',DTPHoraI.Time);
Consulta.ParamByName('HFinal').Value := FormatDateTime('yyyy-mm-dd',DTPFechaF.Date)+' '+FormatDateTime('hh:nn:ss',DTPHoraF.Time);

Creo que así­ va mejor

[felipe]

No funcionará algo así­  ??

sql

SELECT Telefono, Domicilio, Halcon, HServicio, Fecha  
FROM tslocaleshist WHERE (campo_fecha|''|campo_hora) BETWEEN fechaincio AND fechafin

[JandoK]

Espera, que me faltó la concatenación :

delphi

Consulta.SQL.Text := 'SELECT Telefono, Domicilio, HServicio, Fecha  '+
                              'FROM tslocaleshist '+
                              ' WHERE  HServicio BETWEEN :Hinicio  AND  :HFinal order by Fecha, HServicio';
 
Consulta.ParamByname('Hinicio').Value := FormatDateTime('yyyy-mm-dd',DTPFechaI.Date)+' '+FormatDateTime('hh:nn:ss',DTPHoraI.Time);
Consulta.ParamByName('HFinal').Value := FormatDateTime('yyyy-mm-dd',DTPFechaF.Date)+' '+FormatDateTime('hh:nn:ss',DTPHoraF.Time);

Creo que así­ va mejor

el detalle es que yo quiero concatenar los campos HServicio y Fecha, que son los campos
de la tabla con el valor dela  HORA  y Fecha, respectivamente.

y lo que tu pones para concatenar, es precisamente, los parametros o valores de comparacion ...

pero GRACIAS ... 

salu2!!!!!!!

[JandoK]

No funcionará algo así­  ??

sql

SELECT Telefono, Domicilio, Halcon, HServicio, Fecha  
FROM tslocaleshist WHERE (campo_fecha|''|campo_hora) BETWEEN fechaincio AND fechafin

en estos momentos hago la prueba ....

gracias... ahorita regreso con la respuesta ... 

salu2!!!!!!!

[JandoK]

listo ...  si funciono amigo felipe con algunos ajustes... 

aplicando la respuesta de felipe  y  enecumene con lo de los parametros ...

el resultado quedo algo mas o menos asi... :

delphi

  Consulta.SQL.Text := 'SELECT Telefono, Domicilio, Halcon, HServicio, Fecha '+
                           'FROM tslocaleshist '+
                           'WHERE (Fecha||' '||Hservicio) BETWEEN :fechainicio AND :fechafin ' +
                           'ORDER BY Fecha, HServicio ';
 
  Consulta.ParamByName('fechainicio').Value := FormatDateTime('yyyy-mm-dd',DTPFechaI.Date)+' '+FormatDateTime('hh:nn:ss',DTPHoraI.Time);
  Consulta.ParamByName('fechafin').Value := FormatDateTime('yyyy-mm-dd',DTPFechaF.Date)+' '+FormatDateTime('hh:nn:ss',DTPHoraF.Time);

gracias de nuevo ....

salu2!!!!!!!

  por eso me gusta DA, siempre solucionan nuestros problemas

[felipe]

Que bueno que lo solucionaste, es verdad se me olvido el doble || ...

  por eso me gusta DA, siempre solucionan nuestros problemas

Que bien 

Saludos!