Discussion :

[Ric1983]

J'aimerais connaître le type de donnée d'un certain champ pour pouvoir valider une valeur en regardant si le type de donnée de cette valeur que je veux importer dans la base de donnée soit le bon type de données.

Quel méthode serait la plus simple.

Merci de me répondre

[Giovanny Temgoua]

En utilisant la propriété EditMask du composant (DBEdit par exemple) qui est relié à un champ de la table, tu peux forcer la saisie des données sous un format bien précis (cherche l'aide sur EditMask).

Par ailleurs, si tu lis tes informations depuis un TEdit (par exemple) et que tu veuilles faire une vérification de type avant de poster, cà risque d'être pénible et surtout lent (trop de test)...

[Ric1983]

Je dois importer des données d'un fichier Texte pour le mettre dans un TopGrid, pour ensuite le mettre dans la base de donnée.

Si une certaine donnée du fichier Texte est de type Integer qui irait dans une colonne du TopGrid et que cette colonne envoie sa valeur dans un champ de type String dans la base de donnée.

Je veux que le programme dise à l'utilisateur qu'une des données de la ligne contient une erreur et que les données de cette ligne ne soit pas transféré dans le TopGrid.

C'est mon problème plus en détail.

[Giovanny Temgoua]

A ce moment tu vas passer par une série de test. Les données étant probablement toutes lues sous forme de chaîne de caractères, il te faudra essayer d'effectuer la conversion vers le type correspondant à la base.

Exemple : string <---> entier / flottant
Pour cela il te faut utiliser la fonction val (un code d'erreur différent de 0 est renvoyé si la chaîne ne correspond pas à un entier/flottant).

Pour la convertion vers les autres types (Date principalement) il te faudra chercher dans les unités StrUtils ou DateUtils...

[nek_kro_kvlt]

moi j'ai eu besoin de différentier string et integer, et j'ai utiliser cette méthode, ça peut te servir:

Code :

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

1
2
3
4
5
 
 if tablegenerale.FieldByName(cmbfiltres.Text).DataType = ftinteger then
                 Filter := '['+cmbfiltres.Text + '] = ' + EdFiltre.Text //int
                 else
                  Filter := '['+cmbfiltres.Text + '] = ''' + EdFiltre.Text+ ''''//string

ou cmbfiltres.Text est le nom du champs et EdFiltre.Text la valeur recherchée