avec un query procedure TForm1.SpeedButton1Click(Sender: TObject); begin with Query1 do begin if active then Close; Open; Append; Champ1.text := Edit1.txt; Champ2.text := Edit2.txt; Post; --- end; end; en sql procedure TForm1.SpeedButton1Click(Sender: TObject); begin with Query1.SQL do begin Clear; Add('INSERT INTO "nom de table" ("colonne 1", "colonne 2", ...) '; Add('VALUES ("valeur 1", "valeur 2", ...) '; ExecSQL; end; end; on peut aussi utiliser des paramètres...