Discussion :

[b_reda31]

Bonjour à vous tous,
Je pense un peu m'être mal exprimer dans l'intitulé de ce post mais je n'ai pas trouvé mieux .Je m'explique :
Je dispose d'une table paradox,et je voudrai réaliser un filtre sur cette table de la manière suivante:
L'utilisateur introduira qu'une partie du mot à rechercher et filtrer (Par rapport à un champ précis)...Je sais je sais ce n'est toujours pas clair.Y a pas mieux qu'un bon exemple pour bien m'expliquer la chose :
Si l'utilisateur introduit la valeur 1408 (pour le champ Numéro par exemple),je voudrai que le résultat du filtre donne tous les enregistrements dont le champ Numéro contient la sous-chaine 1408 .(ex: 23140836 sera dans la table filtrée).



La première solution qui me vient à la tête est d'appliquer le filtre
manuellement en implémentant une fonction qui teste l'appartenance d'une sous-chaine à une chaine:

Code :

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

Appart(string :sschaine,string :chaine):boolean

Ensuite faire appel à cette fonction pour tout les enregistrements de la table.Si le résultat est TRUE alors insérer l'enregistrement pointé dans une deuxième table....


Ca me parait un peu trop lourd tous ça!!( et ça impliquerai l'utilisation d'une deuxième table)
Y aurait il un moyen plus simple?


PS:J'utilise des tables Paradox et la propriété Filter.

[Franck SORIANO]

Tu as l'événement OnFilterRecord pour filtrer les enregistrements de façon quelconque :
- Tu définis la propriété Filtered à true pour que le filtre s'applique.
- Sur l'événement OnFilterRecord, tu codes la condition pour que l'enregistrement soit conservé :

Code :

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

1
2
3
4
5
 
procedure TForm2.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := pos(sschaine, DataSet.FieldByName('Numero').asString) > 0;
end;

Chaque fois que le DataSet doit se positionner sur un enregistrement (Open, Next, Locate, FindKey...) il va commencé par vérifier si l'enregistrement n'est pas filtré. Si c'est le cas, il ignore l'enregistrement comme s'il n'existait pas.
Mais ça veut bien dire que le test est fait à chaque déplacement du curseur. Selon les cas, ça peut affecter les performances...

Sinon, tu as l'opérateur LIKE mais je ne suis pas sûr que Paradox l'acceptera sur une propriété Filter. Moi c'est ce que j'utilise, mais c'est sur des composants spécifiques.

[b_reda31]

Vous m'avez épargné un long bout de code
grace à l'événement OnFilterRecord et aussi la fonction Pos que j'allais implémenter alors qu'elle existe dèja

Merci à vous Franck SORIANO.

[freud]

Bonsoir,

Normalement on peut utiliser l'opérateur LIKE :

Code :

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

1
2
3
4
5
 
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('SELECT * From article where numero LIKE "%'+Edit1.Text +'%"');
query1.OPen;