Discussion :

[saint.gilles]

Bonjour à tous,
je cherche à filtrer une IBTable.

Code :

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

1
2
3
MaTable.FilterOptions:=[];
MaTable.Filter:='NOMCLIENT = '+QuotedStr(Recherche.Text);
MaTable.Filtered:=true;

Fonctionne très bien, mais...

Code :

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

1
2
3
MaTable.FilterOptions:=[foCaseInsensitive];
MaTable.Filter:='NOMCLIENT = '+QuotedStr(Recherche.Text);
MaTable.Filtered:=true;

... plante (fonctionnalité non supportée).

J'ai vu dans la doc qu'une erreur était déclenchée sur les tables unidirectionnelles.
Ce n'est pas le cas de la mienne.

Auriez-vous une solution ?
J'ai cherché sur google mais je n'ai rien trouvé.

Cordialement
Philippe

[cantador]

Bonjour saint.gilles,

essaie comme ceci:

Code :

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

1
2
3
4
5
 
  MaTable.Filtered := False;
  MaTable.FilterOptions := [];
  MaTable.Filter := 'NOMCLIENT LIKE ''%' + QuotedStr(Recherche.Text) + '%''';
  MaTable.Filtered := True;

puis :

Code :

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

1
2
3
4
5
 
  MaTable.Filtered := False;
  MaTable.FilterOptions := [foCaseInsensitive];
  MaTable.Filter := 'NOMCLIENT LIKE ''%' + QuotedStr(Recherche.Text) + '%''';
  MaTable.Filtered := True;

et dis-moi le résultat.
@+

[saint.gilles]

Bonjour,
merci pour ta réponse.

Pour la 1/ erreur SQL
Pour la 2/ "Fonctionnalité non supportée".

Amicalement
Philippe

[cantador]

désolé, mais je t'avais répondu, mais la réponse a disparu !
aussi, je recommence..

je fais le test avec un Tiboquery et Firebird 2.5

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IBOQuery1.Close;
  IBOQuery1.Filtered := False;
  IBOQuery1.FilterOptions := [foCaseInsensitive];
  IBOQuery1.Filter := 'NOM = ' + QuotedStr(Recherche.Text);
  IBOQuery1.Filtered := True;
  IBOQuery1.Open;   }
end;

qui filtre les enregistrements dont le contenu du champ NOM correspondant exactement au texte tapé dans Recherche, sans tenir compte de la casse.
résultat :




Puis, un autre test :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IBOQuery1.Close;
  IBOQuery1.Filtered := False;
  IBOQuery1.FilterOptions := [foCaseInsensitive];
  IBOQuery1.Filter := 'NOM LIKE ''%' + Recherche.Text + '%''';
  IBOQuery1.Filtered := True;
  IBOQuery1.Open;
end;

qui filtre les enregistrements dont le contenu du champ NOM contient le texte tapé dans Recherche, sans tenir compte de la casse.

résultat :


convaincu ?

me dire si ça te convient
@+