Filtre *texte_recherché*

Question

Bonjour,

Je souhaite appliquer un filtre *texte_recherché* (n'importe où dans le champ) en utilisant la propriété Filter mais çà ne marche pas. Je n'ai réussi à faire fonctionner que texte_recherché* (ie commence par).

Merci
Renaud

cs_zmc · Answer

et en français ca donne quoi :o) ?

nonobiker · Answer

C'est marrant, quand j'ai tappé le texte je savais que c'était pas super clair. Pourtant j'ai fais des efforts !

Champ d'une table
  valeur 1 - Lundi
  valeur 2 - Mardi
  valeur 3 - Mercredi

Si je saisi dans une zone 'un' je veux que le filtre me remonte l'enregistrement Lundi.

J'espère que c'est plus clair

Renaud

cs_zmc · Answer

lol je comprend toujours pas, enfin bon d'autres personne comprendrons surement ;o)

a+

cs_Delphiprog · Answer

Une technique simple pour celà : les patterns.
Supposons qu'un contrôle de type TEdit contienne le modèle de chaîne à rechercher (ex : *un*).
Tu mets la propriété Filtered à True de ta table :

Table1.Filtered := True;

Ensuite, tu écris un gestionnaire d'évènements OnFilterRecord sur Table1 :

uses Masks; //ne pas oublier !

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := MatchesMask(DataSet.FieldByName('Jour').AsString, Edit1.Text);
end;

Bien que la fonction MatchesMask soit ainsi déclarée :

function MatchesMask(const Filename, Mask: string): Boolean;

il n'y a, en aucun cas, l'obligation de ne l'utiliser qu'avec des fichiers. Les caractères génériques * et ? sont les mêmes que ceux utilisés par le DOS.

Autre technique, utiliser une requête SQL :

Select * from MaTable where Jour like "%un%"

La chaine %un% pouvant être passée en paramètre variable ou la requête pouvant être construite dans le code.
Personnellement, j'opterais pour une requête SQL, un peu plus rapide que l'utilisation de l'évènement OnFilterRecord d'un composant TTable.
May Delphi be with you

nonobiker · Answer

En fait j'avais fait une requête qui fonctionnait (même syntaxe que celle que tu donnes) mais je ne peux pas mettre à jour les données ensuite => message d'erreur

Renaud

cs_Delphiprog · Answer

Si l'ensemble de données renvoyé par ta requête ne peut pas être mis à jour simplement, tu n'as qu'à utiliser un composant TUpdateSql.
May Delphi be with you

Filtre texte_recherché

6 réponses

Votre réponse

Discussions similaires