Erreur lors d'un INSERT sur une table dans Firebird via dbExpress

J'ai créé une base de donnée en me servant du tutoriel: "Delphi 2010: Connexion à Firebird via dbExpress". Cela fonctionne très bien pour faire des recherches, par contre j'essaie d'insérer des données et j'obtiens l'erreur: "Le projet a déclenché la classe d'exception TDBXError avec le message "Column Unknown VA2 at line 2, column 48". Voici le code pour l'insertion:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

clientdataset3.Active := false; sqlquery3.close;   sqlquery3.SQL.Clear;   sqlquery3.SQL.Add('Insert into CERTIFICAT_RECEVABLE (C_REC_CLE,C_REC_NUMJOB,C_REC_NUMFACTURE,C_REC_CLIENT,C_REC_MONTANT,C_REC_DATE_PAIEMENT,C_REC_FINALISER,C_REC_DATE_ENTREE)'); sqlquery3.SQL.Add('values (GEN_ID(GEN_CERTIFICAT_RECEVABLE_ID,1),:va2 ,:va3,:va4,:va5,NULL,0,:va8)');   sqlquery3.ParamByName('va2').AsString := copy(REC_NUMJOB.Text,0,10); sqlquery3.ParamByName('va3').AsString := copy(REC_NUMFACTURE.Text,0,10); sqlquery3.ParamByName('va4').AsString := REC_CLIENT.Items[REC_CLIENT.ItemIndex]; sqlquery3.ParamByName('va5').AsCurrency := strtofloat(REC_MONTANT.Text); sqlquery3.ParamByName('va8').AsString := '29.03.2012';   sqlquery3.ExecSQL(true); clientdataset3.Active := true;

---

J'utilise aussi SQLQuery DBExpress mais sur Sybase

Tu passe "True" au paramètre ExecDirect dans ExecSQL ?
Avec les requêtes paramètrées, il faut justement un Prepare !

c'est écrit dans la documentation

Citation:

---

ExecDirect indique que la requête ne doit pas être préparée avant son exécution. La valeur true peut être attribuée à ce paramètre si la requête ne comporte aucun paramètre. Si la valeur false lui est attribuée, la requête sera préparée avant son exécutio

---

Perso, je ne passe pas de valeur, donc False par défaut !

Merci pour la réponse. J'ai essayé aussi cette version, i.e. enlevé le true et ne rien mettre ou mettre false, puis j'obtiens alors : "Le projet a déclenché la classe d'exeption EDatabaseError avec le message 'SQLQuery3: Curseur non renvoyé par Query'." Par contre, malgré l'erreur, l'opération a été effectuée sur la base de donnée.

L'erreur "Curseur non renvoyé par Query" correspond probablement à clientdataset3.Active := true;.
Je suppose que sqlquery3 est lié par un TDataSetProvider à clientdataset3, tu dois relancer un SELECT dans sqlquery3 pour que cela fonctionne !

Tu devrais éviter d'utiliser la même Query à la fois pour un SELECT et pour un INSERT surtout si le Query est couplé avec un TDataSetProvider ou un DataSource et un DBGrid

Ok, oui tu as tout compris pour la liaison. Avec ton aide j'ai modifier le code et tout semble bien fonctionner. Merci beaucoup.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

sqlquery4.close;   sqlquery4.SQL.Clear;   sqlquery4.SQL.Add('Insert into CERTIFICAT_RECEVABLE (C_REC_CLE,C_REC_NUMJOB,C_REC_NUMFACTURE,C_REC_CLIENT,C_REC_MONTANT,C_REC_DATE_PAIEMENT,C_REC_FINALISER,C_REC_DATE_ENTREE)'); sqlquery4.SQL.Add('values (GEN_ID(GEN_CERTIFICAT_RECEVABLE_ID,1),:va2 ,:va3,:va4,:va5,NULL,0,:va8)');   sqlquery4.ParamByName('va2').AsString := copy(REC_NUMJOB.Text,0,10); sqlquery4.ParamByName('va3').AsString := copy(REC_NUMFACTURE.Text,0,10); sqlquery4.ParamByName('va4').AsString := REC_CLIENT.Items[REC_CLIENT.ItemIndex]; sqlquery4.ParamByName('va5').AsCurrency := strtofloat(REC_MONTANT.Text); sqlquery4.ParamByName('va8').AsString := '29.03.2012';   sqlquery4.ExecSQL();   clientdataset3.Active := false; sqlquery3.close; sqlquery3.SQL.Clear; sqlquery3.SQL.Add('SELECT * from CERTIFICAT_RECEVABLE'); sqlquery3.SQL.Add('ORDER BY C_REC_CLE');   sqlquery3.open; clientdataset3.Active := true;

---