filtrer table paradox

Question

bonjour;
SOS, le code qui suit marche nickel Filtre :'Nom''' + recherche.Text + '*''';


 Table1.Filter := Filtre;
ça filtre les enregistrement de ma table etudiant (table1) et n'affiche que ceux qui commencent par la valeur de mon champ de recherche (recherche.Text).
 mais comment adapter ce code pour un filtrage du genre: contient et pas commence par ???
merci.

Grudziecki · Answer

http://delphi.about.com/od/beginners/l/blrtlPos.htm

impossibleok · Answer

bjr;
drole ta rep de bon debaras!!! ni salut ni temps perdu !!! mais bon !!!
 ou mettre le: Pos('recherche.Text',Nom)<>0 ???
merci.

Grudziecki · Answer

"Pos('recherche.Text',Nom)<>0"
Recherche.Text n'est pas la valeur, Recherche.Text est variable...

cs_cantador · Answer

bonjour,
voir prédicat LIKE
cantador

impossibleok · Answer

bjr;
cantador! comment peut on realiser un filtre avec LIKE ???
merci.

cs_cantador · Answer

hé, faudrait p'tet chercher un peu !
parce que tu sais LIKE c'est utilisé par tous les sgbd...

cantador

impossibleok · Answer

cantador, like pour un query c dans la poche, mais pour un filtre je n'ai que toi pour m'en sortir mec !

cs_cantador · Answer

un filtre = la clause WHERE d'un SQL

cantador

impossibleok · Answer

contador,
 Filtre := 'Nom LIKE recherche.Text '; 
 Table1.Filter := Filtre;
ça donne rien !!!!!!!!!!!!!!!!!!!!!!

cs_cantador · Answer

Sers toi du SQL...

ex sur la table country de la démo de Borland

mets un grid relié au Query

procedure TForm1.Button2Click(Sender: TObject);
begin
  with Query1.SQL do
  begin
    Query1.close;
    Clear;
    Add('SELECT Name  ');
    Add('FROM COUNTRY ');
    Add('WHERE UPPER(Name) LIKE :SAISIE ');


    Query1.ParamByName('SAISIE').Value := '%' + Uppercase(Edit1.Text) + '%';
    Query1.Open;
  end;
end;

Tapes la lettre 'o' dans l'edit, clique sur le bouton et tu verras la liste des pays dont le nom contient cette lettre.

cantador

cs_cantador · Answer

avec un filtre :

même table
ex: les noms des pays qui commencent par la lettre 'C' :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Filtered := false;  Query1.Filter :'Name ' + QuotedStr('C*');
  Query1.Filtered := true;
end;

cantador

impossibleok · Answer

ok!
et avec un filtre :
même table
ex: les noms des pays qui possedent la lettre 'C'  !!!

cs_cantador · Answer

Impossibleok à mon avis..
c'est pour ça que je te conseille d'utiliser le SQL.

cantador

impossibleok · Answer

est il possible de combiner avec un 'OR' dans un filtre?
genre: filtre:='champ ='x' OR champ='y'';????

cs_cantador · Answer

Query1.Filter := '(Name = ''Bolivia'') or (Name = ''Brazil'')';

cantador

solilog · Answer

Bonjour,
je viens après la bataille mais pourquoi pas ça:

table1.filtered:=true;

L'évènement FilterRecord de Table1:
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var lng : integer;
begin
  with dataset do
  begin
    lng := length(recherche.text);
    if copy( fieldbyname('NOM').asstring, 1, l) = recherche.text then
      accept:=true
    else
      accept:=false;
  end;
end;

et dans l'évènement OnChange de recherche :
procedure TForm1.RechercheChange(Sender: TObject);
begin
   table1.Refresh;
end;


Ca marche comme ça.
Salut
solilog

cavalier2400 · Answer

Bonsoir, plus classique serait, 
1. désactiver le filtre
2. par exemple Nom--> nom des villes
3. Test sur tr --> tr:=nom[1]< > d'un set d'interdit
4. Lancer le filtre tel que (nom like '+''''+tr.Caption+'%''')
   (Evitant les quotedstr,
5. Réactiver le filtre.

cs_cantador · Answer

[i]if copy( fieldbyname('NOM').asstring, 1, l) = recherche.text then 
accept:=true 
else 
accept:=false;/i 

accept :copy( fieldbyname('NOM').asstring, 1, l) recherche.text; 

cantador

Filtrer table paradox

18 réponses

Votre réponse

Discussions similaires