Buen dia..
Eh estado aplicando los códigos como me han dicho
Código Delphi
[-] private
procedure DateSearch(ADate: TDate; AQuery: TIBQuery);
public
end;
Código Delphi
[-]procedure TAgenda_de_turnos.DateSearch(ADate: TDate; AQuery: TIBQuery);
begin
DM.Q_agen_tur.Close;
DM.Q_agen_tur.SQL.Add('select * from AGENDAS_TURNOS where FECHA = :fecha');
DM.Q_agen_tur.ParamByName('fecha').AsDate := Date;
DM.Q_agen_tur.Open;
end;
Código Delphi
[-]procedure TAgenda_de_turnos.Buscar_fechaClick(Sender: TObject);
begin
DateSearch(fecha_turno.Date, DM.Q_agen_tur)
end;
Pero me salta el siguiente error, cuando presiono el boton (donde llamo al metodo
DateSearch)
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project Project_tesis.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error
SQL error code = -104
Token unknown - line 2, char 1
select'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
|
Necesito saber porque salta ese error, que estoy haciendo mal... Muchas gracias