la commande sql ne se termine pas correctement

**jean sami** · 17/09/2008, 08h53

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

**Cl@udius** · 17/09/2008, 09h11

Salut

Utilises des QuotedStr pour construire ton SQL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Add('INSERT INTO lot(numero,designation,nom_dir,reference,quantite,');
Add('prix_unitaire,prix_total,annee,numero_cmd)');
Add('values ( ' + edit4.Text + ',');
Add(QuotedStr(edit5.text)+ ',');
Add(QuotedStr(ComboBox1.Text + ',');
Add(QuotedStr(edit6.Text + ',');
Add(edit7.Text + ',');
Add(edit8.Text + ',');
Add(edit9.Text + ',');
Add(annee.ComboBox1.Text + ',');
Add(QuotedStr(edit1.Text) + ')');

QuotedStr délimite la chaine avec des apostrophes et double également les apostrophes contenues dans la chaine. Ce qui pourrait se produire pour le champ désignation par exemple.

Une autre solution est d'utiliser une requête paramétrée.

Un conseil: évite de nommer tes contrôles Edit1, Edit2, ComboBox1... Donne des noms plus explicites, cela facilite la lecture du code ainsi que sa maintenance.

@+ Claudius

**SergioMaster** · 17/09/2008, 09h29

j'ai l'impression que la requete n° 1 (INSERT INTO COMMANDE) n'est pas effacée

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
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;
// ICI JE RAJOUTERAIS UN CLEAR;

        Add('INSERT INTO lot(numero,designation,nom_dir,reference,quantite,');
//............

**Yurck** · 17/09/2008, 09h46

Comme le dit SergioMaster tu as deux commande dans un query
il faut les exécuter une à une car un query n'est pas un exécuterur de script mais de requête.

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
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;
        // ICI UN EXECSQL;
        execsql;
        // ICI JE RAJOUTERAIS UN CLEAR;
        clear;
        end;
        // Ensuite tu peux enchaîner sur ta seconde requête
        Add('INSERT INTO lot(numero,designation,nom_dir,reference,quantite,');
//............

**jean sami** · 17/09/2008, 10h21

merci tous pour vos reponses

vous avez raison, maintenant il marche

**Franck SORIANO** · 17/09/2008, 13h28

Envoyé par Yurck

Comme le dit SergioMaster tu as deux commande dans un query
il faut les exécuter une à une car un query n'est pas un exécuterur de script mais de requête.

Ca dépend du SGBD qui est derrière. Avec SQL Server et ADO, tu peux parfaitement mettre plusieurs statements dans une même requête.
C'est même recommandé car dans ce cas, tu gagnes en performance (le batch est envoyé au serveur en une seule fois) et toutes les commandes s'exécutent automatiquement dans une seule et unique transaction.

**jean sami** · 17/09/2008, 14h21

je rencontre maintenant le même problème, pourtant j'ai fait clear,voici le code

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
36
37
38
39
40
41
42
43
44
45
46
47
48
if(cree=true) then
 begin
  with SqlQuery1 do
    begin
      Close;
      with Sql do
      begin
        Clear;
Add('update commande');
add('set designation='' '+edit2.text+' '' ');
add(',nom_dir ='' '+ComboBox1.Text+' '' ');
add(',type ='' '+Combobox2.Text+' ''');
if edit3.Text='' then  add(',dates=NULL ')
else add(',dates='' '+edit3.Text+' '' ');
add(',etat='+inttostr(a));
add(',annee='+annee.ComboBox1.Text);
add('set nombre_lot='+inttostr(nbrlot));
add('where numero='' '+edit1.Text+' '' and annee='+annee.ComboBox1.Text);
  end;//with sql
  execsql;
  cree:=false;
      end;//with sqlquery1
      end //if cree=true
else
 begin
 with SqlQuery1 do
    begin
      Close;
      with Sql do
      begin
        Clear;
 
Add('INSERT INTO commande(numero,designation,dates,type,etat,nom_dir,montant,quantite,annee,nombre_lot');
Add('VALUES ('''+edit1.Text+'''');
add(','' '+edit2.text+' '' ');
if edit3.Text='' then  add(',dates=NULL ')
else add(','' '+edit3.Text+' '' ');
add(','' '+Combobox2.Text+' ''');
add(','+inttostr(a));
add(','' '+ComboBox1.Text+' '' ');
add(','+edit10.Text);
add(','+edit11.Text);
add(','+annee.ComboBox1.Text);
add(','+inttostr(nbrlot)+')');
  end;  //with sql
  execsql;
      end; //with sqlquery1
      end; //if cree=false

**jean sami** · 17/09/2008, 16h46

rebonjour
j'ai rencontré ce problème, et je ne sais pas où est l'erreur, malgré j'ai utilisé "clear', voici le code

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
36
37
38
39
40
41
42
43
44
45
46
47
48
if(cree=true) then
 begin
  with SqlQuery1 do
    begin
      Close;
      with Sql do
      begin
        Clear;
Add('update commande');
add('set designation='' '+edit2.text+' '' ');
add(',nom_dir ='' '+ComboBox1.Text+' '' ');
add(',type ='' '+Combobox2.Text+' ''');
if edit3.Text='' then  add(',dates=NULL ')
else add(',dates='' '+edit3.Text+' '' ');
add(',etat='+inttostr(a));
add(',annee='+annee.ComboBox1.Text);
add('set nombre_lot='+inttostr(nbrlot));
add('where numero='' '+edit1.Text+' '' and annee='+annee.ComboBox1.Text);
  end;//with sql
  execsql;
  cree:=false;
      end;//with sqlquery1
      end //if cree=true
else
 begin
 with SqlQuery1 do
    begin
      Close;
      with Sql do
      begin
        Clear;
 
Add('INSERT INTO commande(numero,designation,dates,type,etat,nom_dir,montant,quantite,annee,nombre_lot');
Add('VALUES ('''+edit1.Text+'''');
add(','' '+edit2.text+' '' ');
if edit3.Text='' then  add(',dates=NULL ')
else add(','' '+edit3.Text+' '' ');
add(','' '+Combobox2.Text+' ''');
add(','+inttostr(a));
add(','' '+ComboBox1.Text+' '' ');
add(','+edit10.Text);
add(','+edit11.Text);
add(','+annee.ComboBox1.Text);
add(','+inttostr(nbrlot)+')');
  end;  //with sql
  execsql;
      end; //with sqlquery1
      end; //if cree=false

et merci d'avance

**qi130** · 17/09/2008, 16h50

Tu aurais au moins pu localiser le pb .... c'est l'update ou l'insert ?

Ensuite, dans le sql d'update, tu as 2 fois l'ordre SET.

Enfin, au lieu de farcir le code avec des quotes, utilise QuotedStr, ou mieux encore des paramètres. ce sera plus clair !

**jean sami** · 17/09/2008, 17h39

pardon

j'ai pas fait attention
merci

**Yurck** · 18/09/2008, 10h12

Envoyé par Franck SORIANO

Ca dépend du SGBD qui est derrière. Avec SQL Server et ADO, tu peux parfaitement mettre plusieurs statements dans une même requête.

Dans un TADOQuery ou un TADOCommand?
sans mettre un begin end ?

**Franck SORIANO** · 18/09/2008, 13h50

Dans un TADOQuery ou un TADOCommand?

La plupart du temps, je fais directement un Execute à partir de la connexion (et de la vrai connexion ADO, pas de l'encapsulation dbGO).

Mais en fait, je ne me suis jamais posé de questions. Je l'ai toujours fait et ça n'a jamais posé de problèmes. Je le fais surtout pour grouper une série d'insert dans un seul batch.

sans mettre un begin end ?

Le begin end c'est pour grouper des instructions Oracle non ?
Je ne le fait pas pour SQL Server.