1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
procedure TForm1.BoutonValiderClick(Sender: TObject);
//déclaration de variables et constantes locales
var
Nom: String;
Prenom: String;
begin
Nom:=Edit1.Text;
Prenom:=Edit2.Text;
Table1.Last;
//on ferme la requête par précaution
query1.close;
//On efface la requête pour en insérer une nouvelle
query1.SQL.Clear;
//On créer la nouvelle requête par chaine SQL
query1.SQL.Add('INSERT INTO test.Table (Nom, Prenom) VALUES ("'+Nom+'", "'+Prenom+'");');
//On active la requête
query1.open;
end; |
Partager