Error en consulta sql con parametro
 

Hola compañeros, tengo la siguiente consulta sql:

Código Delphi [-]

  hr:=TimeToStr(time());
  hrs:=copy(hr,1,2);
  min:=copy(hr,4,2);
  mer:=copy(hr,10,4);
  minu:=StrToInt(min);
  min:=IntToStr(minu);
  hor:=hrs+':'+min+' '+mer;

with QueryRec do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select Hora, Evento');
 SQL.Add('From Recordatorios');
 SQL.Add('Where Hora < ho');
 SQL.Add('Order By Hora asc');
 Parameters.ParamByName('ho').Value:=hor;
 Open;
end; //with

Aquí el caso es que le mando como parametro hor que contiene la hora actual despreciando los segundos, y me marca error precisamente en ese parametro.. :confused:

Saludos y espero me puedan ayudar a identificar el problema..

En la consulta SQL, debes poner dos puntos antes del parámetro

Código SQL [-]
Where Hora < :ho

// Saludos

Mmm ya le puse los dos puntos, pero me sigue marcando error: QueryRec:Parameter 'ho' not found

Hola Lizette,
¿Que motor de base de datos utilizas?

¿Que tipo de dato es el campo Hora?
Esto te lo pregunto por el código que expones antes de armar la consulta. Hay una ensalada de variables y al final haces conversiones a mi modo de ver innecesarias.

Si estás empleando los componentes ADO, lo cual parece ser así debido a la propiedad Parameters (característica de los ADO) es recomendable que se le indique el tipo de datos y no simplemente el valor:

Parameters.ParamByName().Value := ...
Parameters.ParamByName().DataType := ...

Quizá algo de ésto tenga que ver con que no encuentra al parámetro... ¿Seguro/a que estableciste los dos puntos antes y no después?

EDITO:
¿La propiedad ParamCheck está en true o en false? Si es False... prueba en ponerla a true.

Saludos,

Hola Delphius,

Uso como motor de bd MySQL, el campo hora, es varchar (string), el parametro es string.

Mmmm y el valor Parameters.ParamByName().DataType := ' ' que valores acepta??

Los dos puntos ya le cale, a ponerselos antes y despues y me da el mismo error.

La propiedad ParamCheck está en true..

La verdad no se en que este el error, ya que al parecer la consulta es correcta.

Iba a decirte que antes de pasar a armar la consulta que mostraras el valor de hor con un showMessage() para ver si el formato generado es el esperado por el motor para el campo... pero si dices que es string no creo que sea el problema.

Aunque tengo mis reservas sobre si es mejor contar con un formato string para almacenar una hora...

No es por ser malo pero con un F1 eso se resuelve fácilmente. De la ayuda de Delphi:

Entonces, ¿que valores acepta? cualquiera de esa lista;)... yo optaría por un ftstring;).

Pues si los dos puntos están bien ubicados no debería ser problema... ya me dejas sin ideas...

A ver... ¿podrías mostrar con un showMessage() la consulta generada antes de ejecutarla?

Quizá hay por allí algún caracter escurridizo o que se quiere colar en la fiesta... tal vez si le tomamos una "fotito" se asoma y se deja ver (los coleros siempren se prenden para la foto:D)

Saludos,

Bien gracias por la ayuda ;) revisare bien eso..

Saludos

Como con la consulta no pude, no me quedo más que buscar opciones jeje, a lo cual hice lo siguiente:

Código Delphi [-]

  fecha:=DateToStr(date());
  dia:=(copy(fecha,1,2));
  mes:=(copy(fecha,4,2));
  ano:=(copy(fecha,7,4));
  ff:=ano+'-'+mes+'-'+dia;

 ADOTable1.Open;
 while ADOTable1.Eof<>True do
 begin
  if(ADOTable1.FieldValues['Fecha']=ff)then
  begin
    hora:=StrToTime(ADOTable1.FieldValues['Hora']);
    hr:=TimeToStr(time());
    hrs:=copy(hr,1,2);
    min:=copy(hr,4,2);
    mer:=copy(hr,10,4);
    minu:=StrToInt(min);
    min:=IntToStr(minu);
    hor:=StrToTime(hrs+':'+min+' '+mer);

    if(hora< hor)then
    begin
    RichEdit1.Lines.Add(ADOTable1.FieldValues['Hora']);
    RichEdit1.Lines.Add(ADOTable1.FieldValues['Evento']);
    ADOTable1.Edit;
    ADOTable1.Delete;
    ADOTable1.Refresh;
    end
    else
     ADOTable1.Next;
   end
   else
    ADOTable1.Next;
  end;
  BitAceptar.SetFocus;

El cual me muestra los datos en un RichEdit :rolleyes:, mmm aunque no en una tablita pero en fin.. jeje :D

Saludos