Discussion :

[MANU_2]

Dans une table paradox, j'ai des champs de type alphanumérique qui peuvent être vide.
Lors de l'affichage de ces champs, ceux qui sont me génère une erreur : "Conversion de type variant incorrect".

Comment faire pour ne pas avoir cette erreur ?

Merci

[qi130]

poster dans le forum Delphi et bases de données

[Manopower]

quelle procédure utilises-tu pour lire ces champs ?

Code :

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

1
2
Dataset.fieldbyname('num').asvariant ?
Dataset.fieldbyname('num').asvalue ?

le plus propre (à mon goût) est d'adapter

si ton champ est une chaine :

Code :

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

Dataset.fieldbyname('num').asString; //Renvoie '' si le champ est null

si c'est un entier

Code :

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

Dataset.fieldbyname('num').asInteger; //Plante si le champ est null

tu peux aussi vérifier si ton champ est null

Code :

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

1
2
If not Dataset.fieldbyname('num').isnull then
  //reste du code

[MANU_2]

quelle procédure utilises-tu pour lire ces champs ?

Code :

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

1
2
Dataset.fieldbyname('num').asvariant ?
Dataset.fieldbyname('num').asvalue ?

le plus propre (à mon goût) est d'adapter

si ton champ est une chaine :

Code :

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

Dataset.fieldbyname('num').asString; //Renvoie '' si le champ est null

si c'est un entier

Code :

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

Dataset.fieldbyname('num').asInteger; //Plante si le champ est null

tu peux aussi vérifier si ton champ est null

Code :

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

1
2
If not Dataset.fieldbyname('num').isnull then
  //reste du code

J'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
     BD.SQL.Add (tmp);
     BD.Open;
 
    if BD.RecordCount > 0
    then
    begin
         BD.First;
         nom_pers.Text       := BD['nom'];          // marche
         prenom_pers.Text    := BD['prenom'];   // marche
         tel_pers.Text       := BD['telephone'];    // ne marche pas car vide
...

[Manopower]

un

Code :

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

telpere.text := BD.fieldbyname('telephone').asstring;

devrait résoudre ton problème.

car en effet le code que tu utilises pour remplir tes champs convertit tout en variant. Comme tu sais quels champs tu appelles, autant utiliser un asString, en plus ça se trouve ça doit être mieux au niveau des performances.

Tiens nous au courant !