IBQuery et Filter

Bonjour à tous,

J'ai un datamodule avec un IBQuery qui effectue un ordre SELECT sur plusieurs champs avec un ORDER BY sur un champ T_PAT_NOM et une fiche avec un DBGRid qui affiche le résultat de IBQuery

Comme cette requete renvoie plus de 200 noms je voudrais filtrer le résultat en utilisant l'évènement onChange d'un TEdit. Mais rien ne marche.
J'utilise D7 + Firebird 2.0

Voici le code de l'événement onChange que j'ai trouvé sur le forum mais pas d'effet.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TF_GESTION_DOSSIER.Edit1Change(Sender: TObject); begin if (Length(Edit1.Text) > 0) then begin DM_2.Q_DOS_1.Filter := 'T_PAT_NOM = ' + QuotedStr (Edit1.Text + '*') ; DM_2.Q_DOS_1.Filtered := True; end else begin DM_2.Q_DOS_1.Filtered := False; end; end;

---

J'ai essayé par l'évènement Onfilter de l'IBQuery avec le code suivant mais la DBGrid se vide

Code:

---

Accept := DataSet['T_PAT_NOM'] = F_GESTION_DOSSIER.Edit1.Text;

---

Ou est l'erreur ?

D'avance merci

Mirmillon

Salut

Avec la propriété filter:

Code:

---

1 2	DM_2.Q_DOS_1.Filter := 'T_PAT_NOM LIKE ' + QuotedStr (Edit1.Text + '%') ;

---

Ou dans l'evènement OnFilterRecord, il faut que tu compare les 1° caractères du champ avec la contenu du TEdit.
Dans ton exemple cela donne a peut près cette condition 'EXEMPLE' = 'EX'. Pas bon. :aie:

@+ Claudius

Bonjour,

Merci pour ta réponse. Pour Filter ça ne marche toujours pas, il s'agit d'une requete sur deux tables.


Et le OnFilterRecord j'avoue ne pas comprendre.

Mirmillon

Salut

Essaye ceci dans OnFilterRecord:

Code:

---

1 2 3 4 5 6 7

var S: string; begin S := Copy(DataSet.FieldByName('T_PAT_NOM').AsString, 1, Length(Edit1.Text)); Accept := CompareText(Edit1.Text, S) = 0; end;

---

@+

Claudius,

Merci pour ton aide. La piste est bonne ça filtre mais uniquement sur la première lettre ce qui est déjà pas mal. Je vais étudier le code pour filtrer sur plusieurs lettres.

Merci encore.

Mirmillon

Citation:

---

Envoyé par Mirmillon

a piste est bonne ça filtre mais uniquement sur la première lettre ce qui est déjà pas mal.

---

Le code que je t'ai proposé est censé filtrer sur la ou les lettres saisies dans le TEdit.

Bonjour,

Par contre pour que le code fonctionne correctment, il faut laisser la propriété filtered à False sur le IBQuery et la mettre à True par l'événement OnChange du Edit1 sinon ça se plante.

Mirmillon

J'ai fait un test tout à l'heure et implémenté le OnChange ainsi:

Code:

---

1 2 3 4 5 6 7

begin with DataSet1 do begin Filtered := Edit1.Text <> ''; First; end;

---

Et cela fonctionne correctement.
D'un autre côté utiliser les composants IBX avec FB2 ce n'est pas forcément recommandé.

@+

bonjour Claudius,

Je viens d'essayer ton nouveau code ça marche impeccable MAIS si je supprime le code précédent de OnFilterRecord ça ne marche plus bizarre bizarre.....
Voici le code de onchange qui marche et qui filtre sur le T_PAT_NOM probablement grace à le OnFilterRecord mais T-PAT_NOM est le premier champ de la requete. Par contre la propriété Filtered de Q_DOS_1 reste dans ce cas à False !!! j'ai vraiment dit bizarre

Code:

---

1 2 3 4 5

with DM_2.Q_DOS_1 do begin Filtered := Edit1.Text <> ''; First; end;

---

Mirmillon

Salut

Citation:

---

Envoyé par Mirmillon

Je viens d'essayer ton nouveau code ça marche impeccable MAIS si je supprime le code précédent de OnFilterRecord ça ne marche plus bizarre bizarre.....

---

Bon récapitulons !
On active/désactive un filtre sur un DataSet avec sa propriété Filtered.
Ca c'est tout bête. :mrgreen:

Ensuite deux méthodes:

1. Soit on définit la propriété Filter qui agit comme une clause Where
2. Soit on implémente l'event OnFilterRecord qui est appelé pour chaque enregsitrement du DataSet

Donc si tu supprimes l'implémentation de OnFilterRecord... :aie:

pour résumer le code:
Sur le OnChange du TEdit:

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Edit1OnChange(Sender: TObject); begin with DM_2.Q_DOS_1 do begin Filtered := Edit1.Text <> ''; First; end; end;

---

Sur le OnFilterRecord de Q_DOS_1:

Code:

---

1 2 3 4 5 6 7 8

procedure TDM_2.Q_DOS_1FilterRecord(DataSet: TDataSet; var Accept: Boolean); var S: string; begin S := Copy(DataSet.FieldByName('T_PAT_NOM').AsString, 1, Length(Edit1.Text)); Accept := CompareText(Edit1.Text, S) = 0; end;

---

Bien entendu la propriété Filter n'est pas renseignée.

@+ Claudius

Claudius,

Merci encore de m'avoir aidé.

Mirmillon