champs vides dans une table paradox - Divers - Programmation
MarshPosté le 11-02-2006 à 07:33:47
Bonjour,
J'utilise une table paradox. Je fait une application courante avec cette table, Ajouter un client, Modifier, et Rechercher. J'utilise des edit pour les caractéristiques. Lors de l'ajout d'un nouveau client, il accepte toutes les donnés mêmes si je rentre des caractéristiques vides. Le problème survient lorsque je fais une recherche d'un client pour lequel je n'ai pas rempli tous les champs ( ca marche bien pour ceux à qui j'ai complété tous les champs) --> il m'indique impossible de convertir un null en string ci dessous le code. Quelqu'un sait comment faire pour récupérer une entrée même si elle a des champs vide. merci pour la réponse if(table1.Locate('NumFour',Reponse,[loCaseInsensitive])=true) then
begin edit1.Text:=table1.fieldbyname('NumFour').Value; edit2.Text:=table1.fieldbyname('Nom').Value; edit3.Text:=table1.fieldbyname('PersonneContact').Value; edit4.Text:=table1.fieldbyname('Adresse').Value; edit5.Text:=table1.fieldbyname('CP').Value; edit6.Text:=table1.fieldbyname('Localite').Value;
Marsh Posté le 11-02-2006 à 07:33:47
Bonjour,
J'utilise une table paradox. Je fait une application courante avec cette table, Ajouter un client, Modifier, et Rechercher. J'utilise des edit pour les caractéristiques.
Lors de l'ajout d'un nouveau client, il accepte toutes les donnés mêmes si je rentre des caractéristiques vides. Le problème survient lorsque je fais une recherche d'un client pour lequel je n'ai pas rempli tous les champs ( ca marche bien pour ceux à qui j'ai complété tous les champs) --> il m'indique impossible de convertir un null en string ci dessous le code. Quelqu'un sait comment faire pour récupérer une entrée même si elle a des champs vide. merci pour la réponse
if(table1.Locate('NumFour',Reponse,[loCaseInsensitive])=true)
then
begin
edit1.Text:=table1.fieldbyname('NumFour').Value;
edit2.Text:=table1.fieldbyname('Nom').Value;
edit3.Text:=table1.fieldbyname('PersonneContact').Value;
edit4.Text:=table1.fieldbyname('Adresse').Value;
edit5.Text:=table1.fieldbyname('CP').Value;
edit6.Text:=table1.fieldbyname('Localite').Value;