difference de type dans une expression

salut tous j'ai encore le même type de problème que je ne comprends toujours pas. j'ai une table avec un champ monétaire une valeur 28,00€ je voudrais modifier la Valeur par 30,50€ avec une requette Update ,si je place un Edit sur ma form et ma requette update pas de probleme tous fonctionne je remplace juste le '.' par ',' .Maintenant si je remplace mon Edit par un DBLookupComboBox alimenté par une autre table et une valeur type 28,00€
quand je lance ma requette j'ai une erreur( différence de type dans une expresion) ??
et la pige pas pourquoi .
Merci de votre aide

On peut voir ta requête Update qui ne fonctionne pas ?

requête

Citation:

Envoyé par philnext

On peut voir ta requête Update qui ne fonctionne pas ?

oui bien sur

Code:

1
2
3
4
5
6
DataModule1.Query1.Close;
DataModule1.Query1.SQL.Clear;
DataModule1.Query1.SQL.Add('Update Amicalistes.DB set Paiement = '+ QuotedStr(NouvelleCotise.Text)
+',ModePAmi = '+ QuotedStr(ComboBox1.Text)
+' where IdAmicaliste ='+ QuotedStr(Id.caption)+'');
DataModule1.Query1.ExecSQL;

Pour les dev. BDD je te conseille de systématiquement écrire un fichier de log, sur exception de l'execSQL, avec la requête que tu stocke dans une string.

Du coup quand ça plante tu peux voir à quoi ressemble la requête en faute.

Citation:

Envoyé par philnext

Pour les dev. BDD je te conseille de systématiquement écrire un fichier de log, sur exception de l'execSQL, avec la requête que tu stocke dans une string.

Du coup quand ça plante tu peux voir à quoi ressemble la requête en faute.

excuse moi mais la je ne sais vraiment pas comment faire

Citation:
Envoyé par tarmo57
oui bien sur
Code:

1 2 3 4 5 6 DataModule1.Query1.Close; DataModule1.Query1.SQL.Clear; DataModule1.Query1.SQL.Add('Update Amicalistes.DB set Paiement = '+ QuotedStr(NouvelleCotise.Text) +',ModePAmi = '+ QuotedStr(ComboBox1.Text) +' where IdAmicaliste ='+ QuotedStr(Id.caption)+''); DataModule1.Query1.ExecSQL;
Paiement est de quel type dans la base des données? Si c'est de type Float ou real, je ne pense pas que ce soit nécessaire de faire un quotedstr. Aussi, est ce que NouvelleCotise contient le caractère "€"?

Citation:

Envoyé par tarmo57

excuse moi mais la je ne sais vraiment pas comment faire

et bien un truc dans le genre :
Code:

1 2 3 4 5 6 try DataModule1.Query1.ExecSQL; except DataModule1.Query1.SQL.saveToFile('trace.txt'); end;

@tarmo57

PLZZZZZZZZZZ utilise les parameters...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 With DataModule1.Query1 do Begin Close; SQL.Clear; SQL.Add('UpDate AMicalists Update Amicalistes.DB ') SQL.Add('Set Paiement = :xPaiement, ModePAmi = :xModePAmi '); SQL.Add('Where idAmicaliste = :xIdAmicaliste '); Parameters.Parambyname('xPaiement').Value := NouvelleCotise.Text; Parameters.Parambyname('xModePAmi').Value := ComboBox1.Text; Parameters.Parambyname('xIdAmicaliste').Value := Id.caption; Try Try ExecSQL; Except // Ta gestion d'erreur end; Finally Close; end; end;
Apres il faut voir le type de tes champs, par exemple si Paiement est Currency remplace :
Parameters.Parambyname('xPaiement').Value := NouvelleCotise.Text;

Par

Parameters.Parambyname('xPaiement').Value := StrToFloat(NouvelleCotise.Text);

Parameters.Parambyname('xPaiement').Value := StrToCurr();
Voir StrToCurr pour le format

Bye