Consulta con hora en access

[[ElDioni]]

Buenos días a todos,
he estado buscando por los foros pero no he encontrado algo que me solucione el problema, os cuento, he puesto una consulta de sql

Código Delphi [-]
Adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr(adoquery2.FieldByName('Usuario').AsString) + ' AND leido=false AND (fechaprog<=#'+datetostr(date)+'# AND horaprog<=#'+timetostr(time)+'#)';

Esto me dice que "el objeto parameter está mal definido bla,bla bla", sucede porque la hora lleva en su cadena los dos puntos ( y lo considera un parametro, entonces voy y pongo la hora como parametro y se lo paso desde fuera, me queda así.

Código Delphi [-]
adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr(adoquery2.FieldByName('Usuario').AsString) + ' AND leido=false AND (fechaprog<=#'+datetostr(date)+'# AND horaprog<=#:hora#)';
adoquery1.Parameters.ParamByName('Hora').Value:=time;

Pero entonces me dice que le parametro hora no existe y supongo que es porque considera que el parametro se llama :hora#, me coge la almohadilla como nombre del parametro, pero en access tengo que pasarle las fechas y las horas con almohadillas.

¿Que otra cosa puede probar?, ¿se os ocurre algo?, gracias de antemano y espero que se me haya entendido.

Un saludo.

[[Caral]]

Hola

Código Delphi [-]
adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr(adoquery2.FieldByName('Usuario').AsString) +
' AND leido = false AND fechaprog <= #'+datetostr(date)+
'# AND horaprog<= :hora';
adoquery1.Parameters.ParamByName('Hora').Value:=time;

Saludos

[[ElDioni]]

Gracias por responder tan rápido Caral, pero el problema es que si en la hora no le meto las almohadillas, como en la fecha, access no me toma bien la consulta.

En la solución que me pones le quitas las almohadillas que te comento:

Código Delphi [-]
adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr(adoquery2.FieldByName('Usuario').AsString) +
' AND leido = false AND fechaprog <= #'+datetostr(date)+
'# AND horaprog<= :hora';
adoquery1.Parameters.ParamByName('Hora').Value:=time;

Pero yo debería dejarlo así:

Código Delphi [-]
adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr(adoquery2.FieldByName('Usuario').AsString) +
' AND leido = false AND fechaprog <= #'+datetostr(date)+
'# AND horaprog<=#:hora#';
adoquery1.Parameters.ParamByName('Hora').Value:=time;

Y de esta forma, como te comentaba un poco más arriba, me dice que el parametro hora not found (supongo yo que es porque toma el parametro como si fuera :hora#)
Gracias de todas formas por tu ayuda, a ver si se te ocurre algo porque estoy bantante perdido.
Un saludo.

[Faust]

Ya me había ocurrido antes y creo que si:

Código Delphi [-]
... + '# AND horaprog<=#:hora#';

Así es, si :hora es un parámetro, lo estás poniendo dentro de un string, lo digo por las comillas.

Porqué no lo haces de esta forma como lo hiciste en el campo anterior???

Código Delphi [-]
... AND fechaprog <= #'+datetostr(date)+

Creo que de alguna manera están interviniendo negativamente las almohadillas en combinación con los dos puntos de tu parámetro, quizás te funcione mejor así.

Código Delphi [-]
... + '# AND horaprog<=#' + DateToStr(TimeHoraProg) + '#';

Saludos

[[ElDioni]]

Hola Faust, gracias a ti también por responder tan rápido,
el caso es que como lo tenía al principio, que era con TimeToStr(time), me suelta el error de "objeto parameter mal definido" y creo que es porque al ser una hora me considera a partir de los dos puntos el parametro (12:16) el parametro sería :16 (o por lo menos creo yo que pasa esto). Si pongo, como me comentas, datetostr(time) me pone, en lugar de una hora, la fecha del 31/12/1899, por lo que tampoco puedo solucionarlo de esta forma, sigo probando cosas, ¿no se podría hacer un cast al valor de SQL y al de delphi para que en vez de una hora comparara un número?, no se, como os digo sigo probando.
Un saludo.

[[Caral]]

Hola

Código Delphi [-]
var
Hora1: TTime;
begin
Hora1: Now;
ShortDateFormat := '#yyyy/mm/dd#';
adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr(adoquery2.FieldByName('Usuario').AsString) +
' AND leido = false AND fechaprog <= '+datetostr(date)+
' AND horaprog<= :hora';
adoquery1.Parameters.ParamByName('Hora').Value:= FormatDateTime('hh:mm:ss',Hora1);
End;

Saludos

[Faust]

Empezado por ElDioni

...Si pongo, como me comentas, datetostr(time) me pone, en lugar de una hora, la fecha del 31/12/1899...

Ay perdón, ahora si la cagu*... ja ja ja tienes razón es TimeToStr... yo recuerdo que hace unos tres años solucioné esto... pero no me acuerdo como deja pienso un poco.