Consulta con hora en access

[[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

[[ElDioni]]

Hola Caral, lo que ocurre es que con la fecha no tengo ningún problema, si quito la parte de "horaprog" la consulta funciona correctamente, ahora, al añadir "horaprog", que es un campo que está guardado en access en formato fecha/hora del tipo de hora larga, si no le pongo las almohadillas no me da ningún error, pero tampoco me devuelve ningún registro y tengo registros que cumplen la condición, y al ponerle las almohadillas me da el error que antes te comentaba, si pongo directamente la consulta, con sus almohadillas correspondientes, en access la consulta funciona correctamente y me saca los registros que tiene que sacar, el valor que le tengo que pasar para hacer la comparación a "HoraProg" tiene que quedar así: #12:10#, por ejemplo.
¿No se si se me explico bien?.
Un saludo.

[[Caral]]

Hola

Código Delphi [-]
var
Hora1: TTime;
begin
Hora1: Now;
ShortDateFormat := '#yyyy/mm/dd#';
ShortTimeFormat := '#hh:mm:ss#';
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:= Hora1;
End;

No se, cualquier cosa nos pasas el programa y la bd y lo revisamos a ver cual es el error.
Saludos

[[ElDioni]]

Os paso el trozo de código de la discordia y la tabla a la que le hago la consulta.

Código Delphi [-]
adoquery4.Close; 
adoquery4.SQL.Text:='SELECT * FROM log WHERE destinatario=' + quotedstr('Dioni') + ' AND leido=false AND (fechaprog <=#' + datetostr(date) + '# AND horaprog<=#' + timetostr(time) + '#)'; 
adoquery4.ExecSQL; 
adoquery4.Open; 
if adoquery4.IsEmpty then   
  begin     
    showmessage('Vacio');   
  end 
else   
  begin     
    showmessage(adoquery4.FieldByName('mensaje').AsString);   
end;

Un saludo

[[ElDioni]]

Señores me tengo que marchar, hasta mañana no me pondré de nuevo con este tema, lo digo por que no podré responderles si escriben alguna solución, no quiero que crean que nos le hago caso. Mañana les contaré si se me ocurrió algo.
Un saludo y gracias.

[[Caral]]

Hola
Asi me funciona perfectamente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShortDateFormat := '#dd/mm/yyyy#';
  ShortTimeFormat := '#hh:mm:ss#';
  adoquery1.Close;
  adoquery1.SQL.Text:='SELECT * FROM log WHERE destinatario =' +Quotedstr('Dioni') +
  ' AND leido = false AND fechaprog <= :dia'+
  ' AND horaprog <= :hora';
  adoquery1.Parameters[0].Value:= Date;
  adoquery1.Parameters[1].Value:= Time;
  adoquery1.Open;
  if adoquery1.IsEmpty then
  begin showmessage('Vacio');
  end
  else begin showmessage(adoquery1.FieldByName('mensaje').AsString); end
end;

Saludos

[[ElDioni]]

Como os comentaba ayer he vuelto con el asunto esta mañana, muchas gracias a los dos por vuestro tiempo y vuestras propuestas, al final con la opción de Faust me funciona perfecto, al final se queda así:

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

He tenido que modificar la consulta porque ayer a las 13:00 si me sacaba los mensajes que tenían la fecha de ayer y las 12:00 en la hora, pero hoy a las 8:00 de la mañana, de la forma en que lo tenía puesto, no me sacaba los mensajes, aparte de eso todo genial.
He probado también tu opción Caral y me sigue apareciendo el mensaje de vacío, no se si tendrá que ver con la versión de access que yo tengo que es la 97 , de todas formas gracias de nuevo a los dos.
Un saludo.