Discussion :

[NABIL74]

salut à toutes et à tous,

j'ai un problème d'insertion d'enregistrement dans ma base de donnée :

Code :

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

1
2
3
Table1.FieldByName('Code_client').asInteger:=Strtoint(Edit1.text);
...
Table1.post;

Quand je saisie le "Code_client" dans le "Edit1" , je n'ai pas de problème mais quand je fais un post sans le saisir, c'est à dire le "Edit1" est vide, j'obtiens un joli message d'erreur :"impossible de convertir String en Double..."

je suis preneur à toutes idée.

Merci.

A+

NABIL74

[freud]

Salut,

C'est logique qu'il ne peut pas convertir un vide en integer ou en double.
Et es-ce que c'est logique de créer un client sans son code ? qui est peut-être considérer comme clé d'enregistrement ?

Avant de poster vers la BDD assurez-vous que vos données sont cohérentes en plaçant des tests et en nommant vos controles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Begin
 
  If EdCodeClient.Text=' ' Then 
  Begin
  ShowMessage ('Veuillez saisir le code client');
  Exit;
  End;
 
  Table1.FieldByName('Code_client').asInteger:=Strtoint(EdCodeClient.text);
 ...
  Table1.post;
  End;
End;

Et si le code du client n'est que numérique puisque vous utilisez le StrToInt, forcez la saisie en numérique dans l'événement OnKeyPress du TEdit pour eviter tout problème :

Code :

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

1
2
 
 if Key in ['a'..'z'] + ['A'..'Z'] then Key := #0 ;

[NABIL74]

Salut,

C'est logique qu'il ne peut pas convertir un vide en integer ou en double.
Et es-ce que c'est logique de créer un client sans son code ? qui est peut-être considérer comme clé d'enregistrement ?

Avant de poster vers la BDD assurez-vous que vos données sont cohérentes en plaçant des tests et en nommant vos controles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Begin
 
  If EdCodeClient.Text=' ' Then 
  Begin
  ShowMessage ('Veuillez saisir le code client');
  Exit;
  End;
 
  Table1.FieldByName('Code_client').asInteger:=Strtoint(EdCodeClient.text);
 ...
  Table1.post;
  End;
End;

salut,
@ freud,merci de ta réponse .

j'ai donné un exemple d'affectation d'un nom de champ de type integer à un TEdit. le "Code_client" est là pour vous expliquez mon problème seulement.
dans mon cas, je dispose d'un champ : "N°_armoire" de type Integer .
y a t-il une convertion à faire afin de pouvoir poster l'enregistrement sans saisir le "N°_armoire" ?

A+

NABIL74

[freud]

Si votre champ n'est pas un champ de saisie alors utiliser le type AutoInc ou un générateur dans la BDD et donc pas de conversion à faire. Mais vous devriez mentionner le type de base de données que vous utilisez..

[NABIL74]

non non freud, mon champ est un champ de saisie, mais l'utilisateur du soft est libre de saisir ce champ "N°_armoire".

mon SGBD: Paradox. mais je ne vois pas la relation avec mon SGBD care ce problème peut-être rencontrer avec d'autres SGBD.

A+

NABIL74

[freud]

afin de pouvoir poster l'enregistrement sans saisir le "N°_armoire" ?

ben là, on comprend que vous ne voulez pas saisir le numéro.

Donc, si il est libre de saisir ça veut dire qu'il y a des cas oû il ne le saisie pas. alors c'est au programme de le faire au moment du post. Donc en mode de saisie proposez lui un numéro que vous récupérerez depuis une table et, avant le post, faite le test de l'existence de ce numéro dans la BDD au cas oû il aurait saisie un numéro existant déjà. Et pour eviter la conversion, forcez la saisie en numérique avec le code du OnKeyPress ou utilisez un controle numérique de la JVCL.

[b_reda31]

mon champ est un champ de saisie, mais l'utilisateur du soft est libre de saisir ce champ "N°_armoire".

Etant donnée que vous permettez la saisie du vide pour le champ Num_Armoire, vous pouvez par exemple faire le test avant l'insertion

Code :

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

1
2
3
4
5
6
7
8
9
 
if (Edit1='') then
Table1.FieldByName('Code_Armoire').asString:=''
else
Table1.FieldByName('Code_Armoire').asInteger:=StrToInt(Edit1.Text);
 
...
Table1.Post;
//En supposant que le Edit contienne soit un entier soit une chaine vide.

[Rayek]

Plus simplement

Code :

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

1
2
 
Table1.FieldByName('Code_Armoire').asInteger:=StrToIntDef(Edit1.Text,0);

Voir l'aide pour StrToIntDef

[NABIL74]

Bonjour à toutes et à tous,
@ freud,
merci pour toutes vos réponses.
Je ne veux pas proposer à l'utilisateur un numéro déjà saisie dans le TEdit au moment de la conception dans ma fiche.

@ b_reda31,

Code :

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

1
2
3
4
5
6
7
8
if (Edit1='') then
Table1.FieldByName('Code_Armoire').asString:=''
else
Table1.FieldByName('Code_Armoire').asInteger:=StrToInt(Edit1.Text);
 
...
Table1.Post;
//En supposant que le Edit contienne soit un entier soit une chaine vide.

je testerai ça ce soir Inchallah.Mais je doute que ça marcherais parceque mon type de champ est Integer et non un String. à tester.

@ Rayek,
Je t'esterais ça se soir et je vous tiendrais au courant.

A+

NABIL74

[NABIL74]

Code :

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

Table1.FieldByName('Code_Armoire').asInteger:=StrToIntDef(Edit1.Text,0);

Ok ça marche!
En laissant la valeur du TEdit vide, je peux poster l'enregistrement. Le TEdit alors prend la valeur 0.

Pour moi ce tag est résolu.
Merci à tous d'être penché sur mon cas.

NABIL74

[ShaiLeTroll]

Une Variante pour éviter un zéro parasite !
Dans certains métiers, le zéro c'est donnée pertinente, différente d'un vide qui indique l'absence de donnée !

Code :

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

1
2
3
4
5
6
7
var
  NewCode: Integer;
...
if TryStrToInt(Edit1.Text, NewCode)
 Table1.FieldByName('Code_Armoire').AsInteger = NewCode
else
 Table1.FieldByName('Code_Armoire').Clear();

Après, remarque à la con comme j'aime, il existe le TDBEdit qui fait tout ça tout seul (contrôle de la frappe, gestion d'un masque et connecté directement sur Table1)

[b_reda31]

Code :

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

Table1.FieldByName('Code_Armoire').asInteger:=StrToIntDef(Edit1.Text,0);

Ok ça marche!
En laissant la valeur du TEdit vide, je peux poster l'enregistrement. Le TEdit alors prend la valeur 0.

Ici vous ne différenciez pas entre "Erreur de Saisie" et "Saisie Vide". Pour ces deux cas vous aurez un 0 comme valeur. En gros si l'user saisi accidentellement un caractère au milieu du N°Armoire, il ne s’en rendra pas compte. Donc il vaudra mieux ajouter aussi un contrôle de saisi comme vous le suggère Freud.

[NABIL74]

Une Variante pour éviter un zéro parasite !
Dans certains métiers, le zéro c'est donnée pertinente, différente d'un vide qui indique l'absence de donnée !

Code :

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

1
2
3
4
5
6
7
var
  NewCode: Integer;
...
if TryStrToInt(Edit1.Text, NewCode)
 Table1.FieldByName('Code_Armoire').AsInteger = NewCode
else
 Table1.FieldByName('Code_Armoire').Clear();

Après, remarque à la con comme j'aime, il existe le TDBEdit qui fait tout ça tout seul (contrôle de la frappe, gestion d'un masque et connecté directement sur Table1)

Bonjour à toutes et à tous,
Oui , le TDBedit fait l'affaire, mais dans mon cas, j'ai besoin de travailler avec un TEdit pour poster l'enregistrement.
merci à tous.

NABIL74