Hola...
El error te está indicando que el token
select es desconocido, esto te sucede por que estás usando el método
Add cada vez que usas el método, entonces lo que te hace es agregar una línea más. Esto es:
Código:
1era vez que usas el método DateSearch:
DM.Q_agen_tur.SQL.Strings[0] := 'select * from AGENDAS_TURNOS where FECHA = :fecha'
2da vez que usas el método DateSearch:
DM.Q_agen_tur.SQL.Strings[0] := 'select * from AGENDAS_TURNOS where FECHA = :fecha'
DM.Q_agen_tur.SQL.Strings[1] := 'select * from AGENDAS_TURNOS where FECHA = :fecha'
Esto genera una consulta SQL de este tipo:
Código SQL
[-]select * from AGENDAS_TURNOS where FECHA = :fecha
select * from AGENDAS_TURNOS where FECHA = :fecha
Si te fijas, el código origina que yo puse usa la propiedad
Text:
Código Delphi
[-]
AQuery.SQL.Text := 'select * from Tabla where Fecha = :Fecha';
Otro detalle que noto es que haces uso del componente
Q_agen_tur directamente en el código del método, lo cual no debería ser ya que para eso está el parámetro
AQuery.
Saludos...