Sujet Précédent Sujet Suivant

TTable: filtre spécial

cs_juan Messages postés 10 Date d'inscription mardi 17 octobre 2000 Statut Membre Dernière intervention 22 mai 2002 - 31 mars 2002 à 11:53
nn2009 Messages postés 14 Date d'inscription dimanche 31 mai 2009 Statut Membre Dernière intervention 14 novembre 2011 - 5 juin 2009 à 11:09
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

Réponse 1 / 2
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
31 mars 2002 à 12:10
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.
0
Réponse 2 / 2
nn2009 Messages postés 14 Date d'inscription dimanche 31 mai 2009 Statut Membre Dernière intervention 14 novembre 2011 1
5 juin 2009 à 11:09
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 ! ?
0
Rejoignez-nous