Problème de filtre sur une table

j'ai une table qui contient un numero de quittance, et je veux filtrer cette table par ce numero de quittance en utilisant la propriete Filter de l'inspecteur d'objet, j'ai met dans l'evenement onChance d'un Edit le programe suivant :

Citation:

---

tquittous.Filter:='numquit like '+QuotedStr(Edit1.Text)+'%';
tquittous.Filtered:=true;

---

mais le probleme c'est que ca ne marche pas.

aide SVP.

Tu ne dis pas exactement en qui "ça ne marche pas", mais il y a en tous cas un petit problème : ton QuotedStr met une quote entre le texte et le % ! Donc plutôt :

Code:

---

QuotedStr(Edit1.Text + '%')

---

;
Roland

Le probleme ne se regle pas , toujour y a un message d'erreur qui dit : Impossible d'ouvrir le filtre

Quels sont les composants que tu utilises pour récupérer les données de la BDD ?

j'utilise pour ca ADOTable. et j'utilise aussi edit comme parametre du filtre, lorsque je tape 1 dans le champ Edit je doit avoir tous les quittances qui start par le numero 1, et lorsque je continue de tapez les chiffres j'aurais que les numero de quittance qui contient la partie composée, par exemple lorsque je continue de tapez le numero 2 apres le 1 j'aurais que les numero de quittance qui debutent par 12, ainsi de suite.
Merci.

Salut,

Tu peux faire ca :

Code:

---

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

procedure TForm1.Edit1Change(Sender: TObject); var Filtre:string; begin   if tquittous.Filtered=True then tquittous.Filtered:=false; Filtre:=Concat(numquit=','''',edit1.Text,'*',''''); tquittous.Filter:=Filtre;   If Edit1.Text='' then quittous.Filtered:=False Else tquittous.Filtered:=True; end;

---

Je ne pense pas que l'opérateur Like soit autorisé dans la propriété filter.

Sinon, tu peux :
-Un composant requête
-L'événement OnFilterRecord
-Construire un filtre comme indiqué dans l'aide pour TDataSet.FilterOptions

a+

Citation:

---

Envoyé par freud

Salut,

Tu peux faire ca :

Code:

---

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

procedure TForm1.Edit1Change(Sender: TObject); var Filtre:string; begin   if tquittous.Filtered=True then tquittous.Filtered:=false; Filtre:=Concat(numquit=','''',edit1.Text,'*',''''); tquittous.Filter:=Filtre;   If Edit1.Text='' then quittous.Filtered:=False Else tquittous.Filtered:=True; end;

---

---

Pourquoi faire simple quand on peut faire compliquer ...

Code:

---

1 2 3 4 5 6 7

tquittous.Filtered:=false; If Edit1.Text <> '' then begin tquittous.Filter:= 'numquit=' + QuotedStr(edit1.text + '%'); tquittous.Filtered:=True; end;

---

@Bilal_ini: ton champ numquit est il un champ numérique ou alphanumérique dans ta table ?

Bonsoir,

je relance le sujet car je me retrouve pratiquement dans la meme situation,

Dans mon code je fait appel a une procédure

Code:

---

fun_filtre(8,dat,'dates like ');

---

la procédure en question est comme suit :

Code:

---

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

procedure Fun_filtre(i:integer;text:tedit;champ:string); begin if text.text<>'' then begin filtres[1,i]:=champ; filtres[2,i]:=quotedstr('%'+text.Text+'%') end else begin filtres[1,i]:=''; filtres[2,i]:=''; end; end;

---

Puis j'execute la procedure finale

Code:

---

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

procedure TUserdrwing.Image1Click(Sender: TObject); var i: Integer;filtr:string; begin main.Drawing.Filtered:=false; for i := 1 to 13 do begin filtr:=filtr+filtres[1,i]+filtres[2,i]; if ((filtres[1,i+1]<>''))and(filtr<>'') then filtr:=filtr+' and '; end; main.Drawing.Filter:=filtr; main.Drawing.Filtered:=true; end;

---

avant de mettre like j'avais mis le symbole " = " sa fonctionnais bien mais maintenant que j'ai mis like sa m'affiche le message d'erreur : "impossible d'ouvrir le filtre"

le type de donnée dans la BDD est de type date.

En attente,

Merci :)

Bonjour,

je ne comprends pas cette manie de toujours vouloir utiliser des filtres au lieu d'utiliser des requêtes mais bon, s'il y a peu d'enregistrements et si le SGBD est optimisé pour ce genre de chose cela peut encore être justifié.
Votre problème est que vous pensez, à tort, que tout peut se gérer comme des chaines de caractères (like) ce qui n'est pas le cas d'une date donc : oubliez l'opérateur like pour toute colonne non alpha numérique.
Si vous voulez utiliser une partie de date ce n'est pas avec la propriété filter que vous pourrez le faire :no: mais avec l'évènement OnFilterRecord


exemple : // toutes les lignes du mois de juillet même si je ne recommande pas ce genre d'écriture !

Code:

---

1 2 3 4

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept := formatDateTime('mm/yyyy',DataSet['ladate'].asDateTime)='07/2019'; end;

---

// déjà mieux

Code:

---

1 2 3 4 5 6

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); var aa,mm,jj : word; begin Decodedate(DataSet['ladate'].asDateTime,aa,mm,jj) Accept := (aa=2019) and (mm=7); end;

---