Discussion :

[tarmo57]

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

[philnext]

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

[tarmo57]

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

oui bien sur

Code :

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

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;

[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.

[tarmo57]

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

[mayloshi]

oui bien sur

Code :

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

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

[philnext]

excuse moi mais la je ne sais vraiment pas comment faire

et bien un truc dans le genre :

Code :

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

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

[BuzzLeclaire]

@tarmo57

PLZZZZZZZZZZ utilise les parameters...

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