Enregistrer des données dans une table sql, via une application delphi, avec clé auto-incrément

Slt les amis. Je travaille sur un petit projet personnel où j'ai lié mon application delphi à sql server 2008. Cependan, j'ai du mal à enregistrer des données dans sql quand la clé primaire de ma table "Frais" est de type auto-incrément. J'utilise ADOCommande et ADOConnection. Quelqu'un pourrait m'aider?

Voici un extrait de mon code:

Code:

---

1 2 3 4 5 6 7 8 9

adoc1.CommandText := 'INSERT INTO frais VALUES(:idF, :libF, :tarF, echF)'; adoc1.Parameters.ParamValues['idF'] := edtCodeF.Text;//identifiant adoc1.Parameters.ParamValues['libF'] := edtLibF.Text; //Libellé frais adoc1.Parameters.ParamValues['tarF'] := strtoint(edtTarF.Text);//Tarif ou montant à payer adoc1.Parameters.ParamValues['echF'] := dtpEchF.Text;//Echéance adoc1.Execute;   showmessage('Succès!');

---

Bonjour,

si la colonne IDF est la colonne auto-incrémentée alors il ne faut pas la mettre dans le INSERT

Code:

---

1 2 3 4 5 6

adoc1.CommandText := 'INSERT INTO frais VALUES( :libF, :tarF, echF)'; adoc1.Parameters.ParamValues['libF'] := edtLibF.Text; //Libellé frais adoc1.Parameters.ParamValues['tarF'] := strtoint(edtTarF.Text);//Tarif ou montant à payer adoc1.Parameters.ParamValues['echF'] := dtpEchF.Text;//Echéance adoc1.Execute;

---

Si non, car vous n'êtes pas très explicite quant à l'erreur, je trouve étonnant que :
- l'échéance soit une string et non une date ( le format d'une colonne de type date est souvent spécifique à une SGBD, pour SQL Server YYYY-MM-DD) donc il y a là source d'erreur potentielle
- Il est étonnant que la colonne TarF puissent être un Tarif ou un Montant (selon votre commentaire), un Tarif je comprend que cela puisse être un code de type entier, peut être en référence à une table Tarif ? auquel cas il faut être sur que ce code existe bien dans la table, mais un montant .. Généralement une colonne montant est de type NUMERIC ou DECIMAL avec 2 chiffres après la virgule :calim2: sans parler du fait que StrtoInt est également une source d'erreur potentielle

Donc si vous nous indiquiez quelle erreur est levée par votre code ?

Citation:

---

Envoyé par SergioMaster

,

si la colonne IDF est la colonne auto-incrémentée alors il ne faut pas la mettre dans le INSERT

---

Mais dans ce cas, il faut lister les colonnes à insérer

Code:

---

adoc1.CommandText := 'INSERT INTO frais (LibF, tarF, EchF) VALUES( :libF, :tarF, :echF)'

---

NB1 : je suppose que les colonnes ont le nom correspondant à la variable utilisée
NB2 : pour autant que j'ai bien vu, il manque un : au paramètre echF

Cordialement

Citation:

---

Envoyé par acaumes

NB2 : pour autant que j'ai bien vu, il manque un : au paramètre echF

---

Bien vu :plusser:

Bonjour,

@baronmbk : Ce n'est pas le bouton « Créer une entrée Blog  » qu'il faut utiliser, c'est http://club.developpez.com/aidenouve...67repondre.png sous le dernier message. Je recopie ici ce que tu as écrit :

Citation:

---

Envoyé par baronmbk

Merci beaucoup pour votre aide. J'ai revu mon code en enlevant le champ de l'identifiant dans la requête sql et en ajoutant quelques petites corrections.

Code:

---

1 2 3 4 5 6 7

adoc1.CommandText := 'INSERT INTO frais(LibelléF, TarifF, EcheanceF) VALUES(:libF, :tarF, echF)'; adoc1.Parameters.ParamValues['libF'] := edtLibF.Text; //Libellé frais adoc1.Parameters.ParamValues['tarF'] := strtofloat(edtTarF.Text);//Tarif ou montant à payer adoc1.Parameters.ParamValues['echF'] := dtpEchF.Date;//Echéance adoc1.Execute;   showmessage('Succès!');

---

Maintenant je reçois l'erreur suivante: "Echec de la conversion de la date et/ou de l'heure à partir d'une chaîne de caractère"

---

Merci Winjerome pour la régularisation de mon message.

Bonjour,

finalement j'avais bien anticipé en vous indiquant que

Citation:

---

- l'échéance soit une string et non une date ( le format d'une colonne de type date est souvent spécifique à une SGBD, pour SQL Server YYYY-MM-DD) donc il y a là source d'erreur potentielle

---

Et, une fois celle-ci éliminée, au vu de vos corrections, il est fort possible qu'une nouvelle erreur prendra le relais à cause de cette ligne-ci

Code:

---

adoc1.Parameters.ParamValues['tarF'] := strtofloat(edtTarF.Text);

---

Voilà pourquoi je type toujours le passage de mes valeurs, l'autre solution étant bien sûr de vérifier que les paramètres soit correctement déclarés dans le DFM bien sûr (ce qui pourrait bien être votre source d'erreur, vérifiez les types des paramètres de votre ADOQuery)
Cependant, comme vous semblez utiliser adoc1 comme requête "fourre-tout" il serait peut être plus judicieux d'utiliser un

Code:

---

Adoc1.Parameters.Params.Clear;

---

juste avant l'écriture de Adoc1.Command.text.

Code:

---

1 2 3

adoc1.Parameters.Params.ParamByName['libF'].asString := edtLibF.Text; //Libellé frais adoc1.Parameters.Params.ParamByName['tarF'].asFloat := strtofloat(edtTarF.Text);//Tarif ou montant à payer adoc1.Parameters.Params.ParamByName['echF'].asDateTime := dtpEchF.Date;//Echéance

---

P.S. N'étant pas un fan de ADO, et donc ne l'utilisant presque jamais , il se peut que mes syntaxes soient bancales

En fait, j'utilise ADOCommand que j'ai renommé adoc1 comme dans un tuto que j'ai trouvé sur youtube : https://www.youtube.com/watch?v=4C6NHr9BBe4&t=4s
Est-ce que la syntaxe ne serait pas un peu différente de ce que tu me proposes?

Toutefoise, j'essaie aussi avec ADOQuery

Tout en conservant ADOCommand, je constate que si je n'enregistre pas la date, il n'y a plus d'erreur. Donc mon gros problème demeure l'enregistrement de la date via le datetimepicker:

Code:

---

1 2 3 4 5 6 7 8 9 10

adoc1.CommandText := 'INSERT INTO frais(LibelléF, TarifF, EcheanceF) VALUES(:libF, :tarF, echF)'; adoc1.Parameters.ParamValues['libF'] := edtLibF.Text; //Libellé frais adoc1.Parameters.ParamValues['tarF'] := strtofloat(edtTarF.Text);//Tarif ou montant à payer {adoc1.Parameters.ParamValues['echF'] := dtpEchF.Date;//Echéance} adoc1.Execute; showmessage('Succès!');

---

Preuve que ADO et moi cela fait 2 je ne connaissais même pas ADOCommand :oops:
Oui,la syntaxe est différente quoique il serait à vérifier s'il n'est pas possible, malgré tout, de typer les paramètres.
Et, après avoir visionner une partie de la vidéo, j'ai vu que les paramètres étaient typés dans le dfm (6 mn 20 de la vidéo)
il faudrait vérifier si vos types (en particulier la date) sont corrects

Citation:

---

Envoyé par SergioMaster

Preuve que ADO et moi cela fait 2 je ne connaissais même pas ADOCommand :oops:
Oui,la syntaxe est différente quoique il serait à vérifier s'il n'est pas possible, malgré tout, de typer les paramètres.
Et, après avoir visionner une partie de la vidéo, j'ai vu que les paramètres étaient typés dans le dfm (6 mn 20 de la vidéo)
il faudrait vérifier si vos types (en particulier la date) sont corrects

---

J'ai compris le jeu. En fait les paramètres de ADOCommand ont une propriété datatype qui est censée prendre la valeur date mais pour quelque raison, ne l'accepte pas. J'ai finalement opté pour le type datetime dont j'ai fait correspondre l'équivalent dans sql server.

Voici ce que ça donne:

Code:

---

1 2 3 4 5 6 7 8 9

adoc1.CommandText := 'INSERT INTO frais(LibelléF, TarifF, EcheanceF) VALUES(:libF, :tarF, echF)'; adoc1.Parameters.ParamValues['libF'] := edtLibF.Text; //Libellé frais adoc1.Parameters.ParamValues['tarF'] := strtofloat(edtTarF.Text);//Tarif ou montant à payer adoc1.Parameters.ParamValues['echF'] := dtpEchF.DateTime;//Echéance   adoc1.Execute;   showmessage('Succès!');

---

Merci bcp pour votre aide.