With Query1 Do If Active Then Close; DataBaseName:=L_ALiasVersMaTable; SQL.Text:='SELECT * FROM '+LeNomDeMaTable; Open; End;
stat.Close; stat.SQL.Clear; stat.SQL.add ('SELECT DATE_DU, DATE_RECUE, :var3."DATE", DEST, COM, TYPE_CONC, AG, EXTRACT (MONTH FROM DATE_DU)'); stat.SQL.add('FROM '+ag'); stat.SQL.add('WHERE (AG=:var1) AND (EXTRACT(MONTH FROM DATE_DU)=:var2)'); stat.ParamByName('var2').AsFloat:=mois; stat.Active := true;