procedure TForm1.Button1Click(Sender: TObject); begin ADOQuery1.Close; with ADOQuery1.SQL do begin Clear; Add('SELECT * FROM Matable'); // là tu as tous les champs Add('WHERE (ChampEmploye =:param)'); ADOQuery1.FieldByName('param').Value := 'Nom Employé'; ADOQuery1.Open; end; end;