Discussion :

[zanoubya]

Bonjour à tous;
J'ai un champ de type float(8) dans la table de ma base de données sql server, je mappe sur cette table avec un adoQuery donc je reçois un field de type TFloatField, donc quand je tape une valeur pour ce champ dans le form j'obtiens une valeur avec comme valeur de flottant une virgule (1,5 par exemple ) ce qui pose alors un conflit avec la base de donnée en effet ce champ doit avoir une valeur avec un point (1.5).

J'ai essayé de résoudre ce problème en mettant: DecimalSeparator := '.' ;
Mais y a t-il un autre moyen plus pertinent pour ce faire?


Merci d'avance

[tarmo57]

salut Zanoubya le plus simple , je joue sur l'événement OnKeyPress de mon Edit.text quanq tu y entre une somme que tu appuis sur la touche (,) ou (.) tu auras toujours le point (.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TCotisation.MontantKeyPress(Sender: TObject; var Key: Char);
begin
  if Key='.' then Key := ','; //ici tu remplaces . par virgule tu peux inversé
 
//ici si tu ne veux que des chiffres dans ton Edit.text 
    if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then
  Key := #0;
  if Key = DecimalSeparator then
    if Pos(DecimalSeparator, Montant.Text) <> 0 then
      Key := #0;
//fin que des chiffres
end;

voila j'espère t'avoir aider car tu es le premier à qui je peux donné un coup de main

[ShaiLeTroll]

Tu utilise un TEdit ou TDBEdit ?
Comme provoque tu la mise à jour ? Append\Edit\Post ou SQL INSERT\UPDATE ?
Normalement les composants DB gère cela naturellement, il n'y a que dans le cas de SQL manuel que l'on a ce genre d'erreur,
Voir les Requêtes paramètrées qui évite le problème de conversion manuelle aussi !

[zanoubya]

Bonjour;
J'utilise un DBEdit et l'adoquery est en mode update.
C'est pour ca je trouve ce comportement un peu bizarre car adoquery s'occupe de toutes ces contraintes

[kanzarih]

Essaye avec cette variable globale :

Code :

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

1
2
 
DecimalSeparator := '.' ;

[ShaiLeTroll]

ton champ est bien lié à un FloatField (et non StringField), c'est assez problématique.
La conversion , en . doit être gérée que si l'on fait manuellement ses requêtes ...
J'avoue ne pas aimer Edit\Post, je préfère controler les SQL qui passe

As-tu modifié DisplayFormat ou autre élément ?

Essaye de Gérer le BeforePost pour vérifier ton élément, j'ai des souvenirs avec ADO et Oracle d'avoir du manuellement forcé des format de date ... et l'erreur était impensable genre "erreur durant opérations en plusieurs étapes"

Modifier la constante DecimalSeparator, c'est juste dangereux !
Cela peut entrainer plein d'autres problèmes ...

[zanoubya]

Bonjour;
voilà c'est bien géré Merci