antp Super Administrateur Champion des excuses bidons | Code :
- with Query1 do
- begin
- Close;
- SQL.Text = 'INSERT INTO Adherents (IdAdherent, Nom, Prenom, AnneeStage) VALUES '
- + Format('(%s, %s, %s, %s)', [Edit3.Text, QuotedStr(Edit2.Text), QuotedStr(Edit1.Text), Edit4.Text]);
- ExecSQL;
- end;
|
Pas besoin de faire un Open après, c'est soit ExecSQL soit Open (ExecSQL pour les requètes ne renvoyant pas de résultats, Open pour les autres) Message édité par antp le 05-09-2002 à 09:45:02 ---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
|