Cambiar SelectSQL en ejecución

[Tomás]

Hola a todos:

En una tabla de InterBase quiero cambiar la propiedad SelectSQL de un DataSet pero "en ejecución" y no se como de escribre este código.

Tengo seleccionado todo

Select * from PARTE

Y en un momento dado quiero filtrar para que quede:

Select * from PARTE
where MES = 'variableconnumeromes'

para hacer un report y luego volverlo a dejar como estaba

Select * from PARTE

¿ Qué código hay que escribir ?

Muchas gracias. Tomás.

[vecino]

Hola:

Es tan sencillo como cerrar el dataset, asignar lo que quieras y volver a abrirlo.

ibDataset1.Close;
ibDataset1.SelectSQL.Text := 'Select ... where ... ';
ibDataset1.Open;

Saludos.

[jhonny]

Empecemos por el principio:

1. Propiedad SelectSQL? R// Asumo de que te refieres a que estas haciendo un Select en la propiedad SQL de un TQuery.

Si es asi... entonces lo puedes cambiar de la siguiente manera en tiempo de ejecucion:

Supongamos que quieres cambiar el SQL en el Evento OnClick de un Boton llamado "Boton1" y que el TQuery se llama "Query1" y que la variable con numero del mes (a la cual le haces referencia en tu segundo SQL) se llama "mes".

procedure TForm1.Boton1Click(Sender :TObject);
begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('Select * from PARTE where MES= :variableconnumeromes');
    Query1.Close;
    Query1.ParamByName('variableconnumeromes').AsInteger:=mes;
    Query1.Open; //esta linea es por si quieres abrir el Query en este momento
end;

Bueno eso es todo, Suerte

P.D. Caramba veo que Vecino se me ha adelantado por una milesima de segundo

[__cadetill]

ya que dices que es para hacer un report (un listado), yo lanzaria una Query por separado

 
var Q : TIBQuery
begin
    Q := TIBQuery.Create;
    try
        Q.Database := IBDataBase1;
        Q.SQL.Text := 'Select * from PARTE ' +
                               ' where MES = ' variableconnumeromes;
        Q.Open;
        // Lanzar Listado
    finally
        FreeAndNil(Q);
    end;
end;

Espero te sirva

[Tomás]

Gracias Vecino por tu ayuda, efectivamente funciona como me has indicado. Con estas líneas:
DecodeDate(DTPDesde.Date,AA,MM,DD);
IBDSParte.Close;
IBDSParte.SelectSQL.Text := 'Select * from PARTE where MES = ' + IntToStr(MM);
IBDSParte.Open;

Gracias Jhonny. No es un TQuery, es un TIBDataSet, y una de sus propiedades es SelectSQL. De todas maneras he probado con tus indicaciones y así también funciona:
DecodeDate(DTPDesde.Date,AA,MM,DD);
IBDSParte.Close;
IBDSParte.SelectSQL.Clear;
IBDSParte.sELECTSQL.Add('Select * from PARTE where MES= ' + IntToStr(MM));
IBDSParte.Open;

Gracias de nuevo a los dos. Tomás.

[Tomás]

Gracias Cadetill, aunque ya lo he resuelto, me viene bien saberlo para otra ocación que lo necesite, porque soy principiante en Delphi.

Un saludo. Tomás.