bonjour tt le monde
voici mon code (je ne trouve aucune erreur) ,mais il affiche le message là dessus :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
with SqlQuery1 do
    begin
      Close;
     with Sql do
      begin
        Clear;
        if (cree=false) then
        begin
        Add('INSERT INTO commande(numero) ');
        add('values ('' '+edit1.Text+' '' )');
        cree:=true;
        end;
Add('INSERT INTO lot(numero,designation,nom_dir,reference,quantite,');
add('prix_unitaire,prix_total,annee,numero_cmd)');
add('values ( '+edit4.Text);
add(','' '+edit5.text+' '' ');
add(','' '+ComboBox1.Text+' '' ');
add(','' '+edit6.Text+' ''');
add(','+edit7.Text);
add(','+edit8.Text);
add(','+edit9.Text);
add(','+annee.ComboBox1.Text);
add(','' '+edit1.Text+' '')');
 
    end;
 
       Try
        ExecSql;
      except
        on e: Exception do
          showmessage('  *** pb_insert '+ e.Message);
      end;
    end; // with SqlQuery1
 
end;
je vous remerci d'avance pour vos reponses