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