TTable: filtre spécial

Signaler
Messages postés
10
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
22 mai 2002
-
Messages postés
14
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
14 novembre 2011
-
bjour tous,
je voudrais filtrer une base en ne retenant pour 1 champ que les enregistrements qui contiennent une certaine séquence (et pas juste qui commencent par cette séquence).
La syntaxe '*truc*' ne marche pas comme en SQL '%truc%' marcherait... comment faire ce genre de filtre sur une TTable et pas un TQuery ?
merci d'avance
Juan

2 réponses

Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Utiliser l'évènement OnFilterRecord :
var
n : integer;
begin
n := Edit1.Text.Length; Accept :Copy(DataSet.FieldByName('UnChamp').AsString, 1, n) Edit1.Text;

Dans cet exemple, on filtre la table en n'affichant que les enregistrements dont le champ commence par les caractères spécifiés dans Edit1 et sans tenir compte de la casse.

May Delphi be with you.
Messages postés
14
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
14 novembre 2011
1
bjr delphiProg
voila je veux filtrer ma table sur un entier mais en utilisant l'événement OnChangeEdit et sans passer par l'événement OnFilterRecord, mon code est :
begin
Adotable1.Filtered:=false;
if edit1.Text =''then exit;
AdoTable1.Filter := 'inttostr(Code_Patient) LIKE ('+''''+edit1.Text+'%'+''''+')';
AdoTable1.filtered := True;
end;
le code patient est un entier, j'ai beau cherché une formule magique pour filtrer ma table sur un entier,hélas je penses que c'est pas posible avec delphi ! ?