Transfert d'un numérique avec chiffres apres la virgule

**Chonchon** · 15/01/2008, 10h18

Bonjour

j'ai un petit problème pour insérer un enregistrement contenant un champ numérique.

celui-ci est déclaré en numérqiue dans la base.
lors de la creation je saisie dans un champ text le montant par exemple 12,456

lors de la validation pour la creation je fais
Prix_w : real;

Code :

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

1
2
3
4
5
 
       Req := 'INSERT INTO Produits';
    Req := Req + (' (id_Produit,cl_produit,Qte_Unite,Prix,id_Categorie)');
    Req := Req + (' VALUES('+QuotedStr(IntToStr(prochain_numero))','+QuotedStr(Edt_clair.text)+',');
   Req := Req + (''+QuotedStr(Edt_Qte.text)+','+QuotedStr(floattostr(prix_w))+','+inttostr(icateg)+')');

Code :

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

1
2
3
4
5
6
Req := 'INSERT INTO Produits';
     //  Req := Req + (' (id_Produit,cl_produit,Qte_Unite,Prix,id_Categorie)');
         Req := Req + (' (id_Produit,cl_produit,Qte_Unite,id_Categorie)');
         Req := Req + (' VALUES('+QuotedStr(IntToStr(prochain_numero))+','+QuotedStr(Edt_clair.text)+',');
     //  Req := Req + (''+QuotedStr(Edt_Qte.text)+','+QuotedStr(floattostr(prix_w))+','+inttostr(icateg)+')');
         Req := Req + (''+QuotedStr(Edt_Qte.text)+','+inttostr(icateg)+')');

ici l'erreur a l'exécution

Différence de type dans une expression

Merci de votre aide
A+

**Chonchon** · 15/01/2008, 10h20

Je précise table paradox et je suis en delphi 5
merci

**Cl@udius** · 15/01/2008, 10h46

Salut

C'est simplement un problème de séparateur décimal. Ta table Paradox attend un point (.) alors que tu lui envois une virgule (,).

Si prix_w est un TEdit comme je le suppose, il te suffit de substituer la virgule par un point au moment de la saisie.

@+ Claudius

**Chonchon** · 15/01/2008, 11h14

BONJOUR
Merci de votre réponse je viens de tester mais là j'ai une autre erreur

12.45 n'est pas une valeur en virgule flotante correcte
A+

**Cl@udius** · 15/01/2008, 11h22

prix_w est bien un TEdit ?

Si oui, inutile d'utiliser FloatToStr car le TEdit te renvoie un texte.
Inutile également d'utiliser QuotedStr, puisque les valeurs numériques ne sont pas transmises entres quotes.

@+ Claudius

**Chonchon** · 15/01/2008, 14h31

prix_w est déclaré real;
priw_w := strtofloat(edt_prix.text);

**Cl@udius** · 15/01/2008, 15h40

Salut

Essaye quelque chose comme cela:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
 
procedure TForm1.edt_prixKeyPress(Sender: TObject; var Key: Char);
begin
  // Forcer le séparateur décimal en usage
  if Key in [',', '.'] then Key := DecimalSeparator;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  prix_w: Currency;
  SaveDecSep: Char;
  Req: string;
begin
  if not TryStrToCurr(edt_prix.Text, prix_w) then
    ShowMessage('Montant saisi incorrect !')
  else begin
    SaveDecSep := DecimalSeparator;
    DecimalSeparator := '.';
 
    try
      Req := 'INSERT INTO Produits ';
      Req := Req + ('(id_Produit, cl_produit, Qte_Unite, Prix, id_Categorie) ');
      Req := Req + ('VALUES('+ IntToStr(prochain_numero) + ','+
                               QuotedStr(Edt_clair.text)+ ',' +
                               QuotedStr(Edt_Qte.text)+ ',' +
                               FloatToStr(prix_w))+ ',' +
                               IntToStr(icateg)+')');
      // ...  Exécuter requête
    finally
      DecimalSeparator := SaveDecSep;
    end;
  end;
end;

@+