Discussion :

[unja2010]

Bonjour
J'ai besoin d'un peu d'aide sur la création d'un filtre sur un champ entier
j'utilise base de données d'access lié a adotable

le filtrage avec un champ de Les chaînes de caractères ne posent aucun problème, mais le problem est concernant un champ entier
le problème est le suivant: le type de filtre est une chaîne de caractères
j'utilise ce code

Code :

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

1
2
3
4
5
6
7
8
 
if edit1.Text <>'' then
begin
ADOTable1.Filter :='id like '+ quotedstr(edit1.Text +'*');
ADOTable1.Filtered :=true;
end
else
ADOTable1.Filtered :=false;

c'est mon Projet pour télécharger
http://www.mediafire.com/?sm13ba9g8ifm3bm

[Ph. B.]

Bonjour,

Bonjour
J'ai besoin d'un peu d'aide sur la création d'un filtre sur un champ entier
j'utilise base de données d'access lié a adotable

le filtrage avec un champ de Les chaînes de caractères ne posent aucun problème, mais le problem est concernant un champ entier
le problème est le suivant: le type de filtre est une chaîne de caractères
j'utilise ce code

Code :

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

1
2
3
4
5
6
7
8
 
if edit1.Text <>'' then
begin
ADOTable1.Filter :='id like '+ quotedstr(edit1.Text +'*');
ADOTable1.Filtered :=true;
end
else
ADOTable1.Filtered :=false;

c'est mon Projet pour télécharger
http://www.mediafire.com/?sm13ba9g8ifm3bm

L'opérateur LIKE ne peut s'utiliser que sur des données de type alphanumérique, mais pas numérique : Opérateur Like.

Restent 2 possibilités

1. Utiliser les opérateurs de comparaison propres aux nombres, par exemple :
   (Et en s'assurant que Edit1.Text contient bien un nombre)
   

   Code :

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

   1
   2
   ADOTable1.Filter := 'id >= ' + Edit1.Text;
   ADOTable1.Filter := 'id <= ' + Edit1.Text;

2. Transformer les données numériques en alphanumériques pour y appliquer l'opérateur LIKE. Mais il faut passer par une requête SQL et un TADOQuery :
   

   Code :

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

   1
   2
   ADOQuery1.SQL := 'SELECT * FROM MaTable'#13#10 +
     'WHERE CAST(MaColonneNumerique as VARCHAR(16)) LIKE '1*';

   * est le joker propre à Access alors que % est celui de la norme SQL, de même pour ? par rapport à _

[unja2010]

merci