Discussion :

[baronmbk]

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 :

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

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!');

[SergioMaster]

Bonjour,

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

Code :

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

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 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 ?

[acaumes]

,

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 :

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

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

[SergioMaster]

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

Bien vu

[Invité]

Bonjour,

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

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 :

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

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"

[baronmbk]

Merci Winjerome pour la régularisation de mon message.