Filtrar por fecha dinamicamente sql y delphi7

[[maeyanes]]

Hola...

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

En dado caso, sería algo así:

Código Delphi [-]
// Declaración del tipo TMyForm:
type
  TMyForm = class(TForm)
    // Componentes agregados al formulario y eventos del mismo...
  private
    // Como solo se va a usar en este formulario lo declaramos en la sección private
    procedure DateSearch(ADate: TDate; AQuery: TQuery);
  end;

implementation

procedure TMyForm.DateSearch(ADate: TDate; AQuery: TQuery);
begin
  AQuery.Close;
  AQuery.SQL.Text := 'select * from Tabla where Fecha = :Fecha';
  AQuery.ParamByName('Fecha').AsDate := ADate;
  AQuery.Open
end;

end.

Saludos...

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

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