Discussion :

[dirty_boy]

Salut a tous,

voila j'ai une base de données paradox7 dans laquelle se trouve un champ où des mots clés sont entrés ( plusieurs mots dans le même champ ).
Je dois filtrer les entrées de ma base en fonction de mot entrés par l'utilisateur. Le problème c'est que le filtre ne prend en compte que le premier mot de mon champs et pas les suivants.

Un morceau de code est plus parlant que des mots:

Code :

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

1
2
3
4
 
 
Table.Filter := 'Commentaire =''' + Edit_Filter.Text + '*'''; // Mise en place du filtre agissant sur le champ  "Commentaire de ma bdd"
Table.Filtered := true; // Activation du filtre

Si quelqu'un peut me dire comment faire pour que le filtre soit étendu sur les autres mots sachant qu'il me sera très difficile d'agir sur la structure de ma bdd.

Cordialement.

[e-ric]

Salut

En lieu et place de la propriété Filter, emploie l'événement OnFilterRecord (+F1), c'est plus souple et cela te permettra de faire des calculs plus sophistiqués.

cdlt

e-ric

[dirty_boy]

Merci de ta réponse e-ric,

il est vrai que OnFilterRecord est apparement plus souple mais ca ne regle pas mon problème. A savoir trouver une chaine de caractère même si elle ne se trouve pas en début de champ.

encore merci.

cordialement.

[e-ric]

Eh bien alors !!

Il suffit de rechercher le mot clé à l'aide d'un appel à la fonction Pos dans la valeur de ton commentaire, c'est simple mais cela devrait suffire, non ?

cdlt

e-ric

[Rayek]

Code :

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

1
2
 
Table.Filter := 'Commentaire =*''' + Edit_Filter.Text + '*''';

Avec * en plus devant l'edit_filter ca devrait fonctionner, ca te permettra d'avoir toutes les lignes contenant le mot définit par Edit_filter

[dirty_boy]

Premier test de ce matin me donne une erreur pour ta solution Malatar. en fait il y avait une erreur de syntaxe pour que la chaine soit correcte.

Code :

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

1
2
3
 
 
Table.Filter := 'Commentaire =''*' + Edit_Filter.Text + '*''';

mais même ainsi ca ne marche pas. Je pense que le caractère '*' ne sert de générique que pour les caractères suivants et pas les précédents, mais merci quand même.

Je vais essayer le OnFilterRecord avec la fonction Pos à l'intérieure.

Cordialement.

[Rayek]

Moi ca fonctionne parfaitement chez moi, mais bon , j'ai pas le meme type de base de données (MYSQL) et surement pas le meme type de composants (MyDAC)

Code :

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

1
2
3
4
 
Table.Filtered := false;
Table.Filter := 'Commentaire =' +  QuotedStr('*' + Edit_Filter.Text + '*'); 
Table.Filtered := true;

Essaie comme ci dessus, c'est plus propre avec un quotedstr.

Sinon dans les Filtersoptions de ta table, tu as pensé à mettre foCaseInsensitive à true ?

[dirty_boy]

non désolé ca ne marche pas plus. Mais je ne perd pas espoir.

Cordialement.

[dirty_boy]

ALLELUïA!!!!

Ca marche!!!

En fait je n'avais pas eu le temps de tester le OnFilter Record avec la Fonction Pos() mais je viens de tester et ça fonctionne.


Encore merci à toi e-ric ainsi qu'à Malatar.

cordialement.