Discussion :

[aimer_Delphi]

Bonsoir a tous et a toute,
pour filtrer un résultat dans un DBGRID liée a une raquette SQL (Composant IBQuery)
j'utilise ce code dans l’événement OnChange de mon Edit1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
      IF (edit1.text <> '')  then
      begin
            IBQuery1.close;
            IBQuery1.SQL.Clear;
            IBQuery1.SQL.Add('SELECT    CODEA, Designation');
            IBQuery1.SQL.Add('FROM  MaTableArticle');
            IBQuery1.SQL.Add('WHERE UPPER(Designation) LIKE  ''%' + UpperCase(edit1.Text) + '%''');
            IBQuery1.Active := true;
      end
      else
      begin
            IBQuery1.close;
            IBQuery1.SQL.Clear;
            IBQuery1.SQL.Add('SELECT    CODEA, Designation');
            IBQuery1.SQL.Add('FROM  MaTableArticle');
            IBQuery1.Active := true;
      end ;

jusqu’à présent ça marche très bien .

j'ai ajouter un champs calculer a mon IBQuery1 , et je souhaite filtrer mon resultat sur ce champs calculer c'st a dire au lieu du champs designation je veux utilisé ce champs calculer, avec le même principe précédent , mais je trouve pas un moyen pour l'utiliser dans l’événement OnChange de mon Edit1 ....

[SergioMaster]

Bonjour,

il faut utiliser l'évènement OnFilterRecord;

par exemple : obtenir toutes les lignes dont le champ calculé est supérieur à 100

Code :

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

1
2
3
4
5
 
procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept:=Dataset['champcalcule']>100;
end;

cela peut aussi bien sur s'appliquer à ton code précédent

Code :

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

Accept:=Pos(Edit1.Text,uppercase(DataSet['designation']))>-1; // ou AnsiContainsText(Uppercase(Dataset['Designation']),edit1.text)

l'inconvénient de cette méthode ? on rapatrie toutes les lignes de la table, pour les tester, au contraire d'une requête avec la clause where

[aimer_Delphi]

bonjour ,
Merci beaucoup Sergio pour la repense ,
mais le filter ne marche pas dans l'evenement OnEdit1Change !!

[SergioMaster]

bonjour ,
Merci beaucoup Sergio pour la reponse ,
mais le filter ne marche pas dans l'evenement OnEdit1Change !!

il suffit de mettre le code

Code :

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

1
2
3
 
IBQuery.Active:=False;
IBQuery.Active:=True;

dans le onEditChange
à moins que un IBQuery.Refresh suffise

[aimer_Delphi]

Merci beaucoup Sergio ,
la deuxième proposition çà marche très très bien , seulement il faut ajouter les guillemets ;

Code :

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

 Accept:=  AnsiContainsText(Uppercase(Dataset['Designation']),edit1.text)

encore une fois Merci .