Filtrar por fecha dinamicamente sql y delphi7

[ecfisa]

Empezado por maeyanes

yo creo que más bien se refiere a donde coloca el código del método y no desde donde hace la llamada al método...

No había pensado en eso, pero es muy posible...

Saludos.

[Vales08]

Muchas gracias por sus respuestas... En realidad tiene razon maeyanes pero igual no estaba de mas la explicacin de ecfisa...
Yo quería saber donde iba el código del método, porque no soy muy ducha en esto y nunca había utilizado un método..
Pero ya me sacaron la duda..

Muchas gracias..

[Vales08]

Buen dia..
Eh estado aplicando los códigos como me han dicho

Código Delphi [-]
  private
    { Private declarations }
    procedure DateSearch(ADate: TDate; AQuery: TIBQuery);
  public
    { Public declarations }
  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)

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

[[oscarac]]

estas seguro (a) que el parametro (el valor) se llama Date?
no deberia ser ADate??

[Vales08]

Me fije bien y en esta codigo, solamente me toma Date..

Código Delphi [-]
procedure TAgenda_de_turnos.Buscar_fechaClick(Sender: TObject);
begin
  DateSearch(fecha_turno.Date, DM.Q_agen_tur);
end;

Pero a este codigo si cambie Date por ADate.. Yo le habia puesto Date, porque a ADate no me lo tomaba..

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 := ADate;  //aqui modifique
  DM.Q_agen_tur.Open;
end;

Pero el error me sigue saltando de igual manera y en el mismo lugar..

[[oscarac]]

antes de esta linea

Código Delphi [-]
DM.Q_agen_tur.SQL.Add('select * from AGENDAS_TURNOS where FECHA = :fecha');

agregale por siacaso

Código Delphi [-]
 
DM.Q_agen_tur.SQL.clear;

[Vales08]

Claro me falto esa linea de codigo, ahora no me salta mas el error..
El problema ahora es que no me busca, me muestra la grilla vacia...

Tiene algo que ver la forma en que yo cargue las fechas..???
Porque yo a las fechas no las cargaba con el datetimepicker, directamente las cargada desde un dbedit, conectado al campo FECHA de la tabla AGENDA_TURNOS..
El campo FECHA, tiene la propiedad EditMask a la cual yo le puse Date, para que tome el formato '__/__/__'.

No se la verdad porque no me busca..

[[maeyanes]]

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:

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