Filtrer ADOQuery TEdit

Version imprimable

27/05/2020, 21h12
LandGreen

Filtrer ADOQuery TEdit
Bonjour à tous,

quelqu'un pourra m'aider concernant mon problème du filter,
j'ai un ADOQUERY (AQ_Pr) pointé vers un DBGrid et un TEdit, et je veux améliorer la méthode de recherche de la manière suivante :

exemple: j'ai une liste de produits :

AZZER EHDJE DK 2145587
AZZER EHDJE DK 2145212
AZZER EHDJE DK 2145477
AZZER EHDJE DK 2145852
AZZER EHDJE DK 2145745
....
120 ligne

Dans mon TEdit je dois saisir : "AZZER*77" pour retourner l'article N°3 : AZZER EHDJE DK 2145477
je peux aussi saisir : "AZZ*77" pour avoir le même résultat "AZZER*77"
le principe ici et de remplacer les mots dont je me souviens pas par '*'

voici mon ancien code :

dans l’événement OnChange de mon Tedit :
Code:

1 2 3 4 F_DM.AQ_Pr.Filtered:=false; if TEdit .Text ='' then exit; F_DM.AQ_Pr.Filter := 'Nom LIKE ('+''''+'*'+TEdit .Text+'*'+''''+')'; F_DM.AQ_Pr.filtered := True;
merci à tous

Bonjour,

Quelle version de Delphi (mais ici ce n'est pas trop important)
Quel SGBD ? Dépendant de celui-ci des expressions régulières peuvent être possible
par exemple Firebird permet d'utiliser

Code:

SELECT * FROM TABLE WHERE NOM SIMILAR TO 'AZZER.*77'

Sinon pourquoi ne pas passer par l'événement OnFilterRecord plutôt que par Filter:=

:alerte: écrit à la volée, peut être dépendant de la version de Delphi
Code:

1 2 3 4 5 procedure TForm1.ADOQuery1FilterRecord(Dataset : TDataset; var Accept : Boolean); begin Accept:=Dataset['NOM'].StartsWith('AZZER') AND Dataset['NOM'].EndsWith('77') end;
Évidemment, il y a l'écueil du datamodule à contourner mais rien qu'une variable globale ne puisse gérer. Par exemple

:alerte: toujours écrit à la volée
Code:

1 2 3 4 5 6 7 8 9 10 public filtre : String; procedure F_DM.AQ_PrFilterRecord(Dataset : TDataset; var Accept : Boolean); var F : Array of String; begin F:=Filtre.Split('*'); if F[0]<>'' then Accept:=Dataset['NOM'].StartsWith(F[0]); // sensible à la casse if F[1]<>'' then Accept:=Accept AND Dataset['NOM'].EndsWith(F[0]); // sensible à la casse end;
du coup l'ancien code deviendrait
Code:

1 2 3 4 F_DM.AQ_Pr.Filtered:=false; if TEdit .Text ='' then exit; F_DM.Filtre := TEdit .Text; F_DM.AQ_Pr.filtered := True;

28/05/2020, 15h05
LandGreen

Filtrer ADOQuery

Bonjour SergioMaster;

j'utilise Delphi 7 et Comme SGBD Access 2007 ;
je reformule mon problème : le code de filtrage que j'utilise marche parfaitement quand il s’agit de faire une recherche normale (ie) : en tapant dans le champ Edit quelques caractères , l'application filtre immédiatement la liste pour n'afficher que les éléments qui contiennent ces caractères de recherche, or Il se trouve dans certains cas que la dite liste est longue ex:

joint spie roulement diam 1
joint spie roulement diam 10
joint spie roulement diam 15
joint spie roulement diam 20
...
joint spie roulement diam 1500
...
joint spie roulement diam 2500

dans ce cas le critère de sélection qui me permet un accès direct a l'enregistrement ' joint spie roulement diam 1500 ' c'est par exemple le dernier chiffre 1500.
il suffit donc de taper ' joi*1500' et l'application ne filtre que cet enregistrement .

salutations et remerciements

En fait, votre filtre est toujours en recherche partielle avec un LIKE, c'est * le joker en ACCESS par % ?
Donc ajouter un joker en plein milieu comme "*abc*edf*", va savoir si c'est géré correctement par ACCESS,
un truc du genre en découpant
Code:

1 2 3 4 5 6 7 8 9 10 F_DM.AQ_Pr.Filtered:=false; if Edit1 .Text ='' then exit; K := Pos('*', Edit1 .Text); if K > 0 then F_DM.AQ_Pr.Filter := Format('Nom LIKE (''%s*'') AND Nom LIKE (''*%s'')', [Copy(Edit1 .Text, 1, K-1), Copy(Edit1 .Text, K+1)]) // ce qui commence par et fini par else F_DM.AQ_Pr.Filter := Format('Nom LIKE (''%s*'')', [Edit1 .Text]); // uniquement ce qui comment par // F_DM.AQ_Pr.Filter := Format('Nom LIKE (''*%s*'')', [Edit1 .Text]); // tout ce qui contient ??? F_DM.AQ_Pr.filtered := True;

28/05/2020, 15h55
SergioMaster

Oui, aussi ;)

les deux méthodes ne sont pas forcément antinomiques, il suffit d'affecter ou non l'évènement onFilterRecord
Je ne suis pas un fervent de Filter (ni de ADO ni d'Access) et préfère nettement une bonne requête,

avec un bon SGBD, un Delphi récent et Firedac :ptdr:

Citation:
Envoyé par ShaiLeTroll
Code:

1 2 3 4 5 6 7 8 9 10 F_DM.AQ_Pr.Filtered:=false; if Edit1 .Text ='' then exit; K := Pos('*', Edit1 .Text); if K > 0 then F_DM.AQ_Pr.Filter := Format('Nom LIKE (''%s*'') AND Nom LIKE (''*%s'')', [Copy(Edit1 .Text, 1, K-1), Copy(Edit1 .Text, K+1)]) // ce qui commence par et fini par else F_DM.AQ_Pr.Filter := Format('Nom LIKE (''%s*'')', [Edit1 .Text]); // uniquement ce qui comment par // F_DM.AQ_Pr.Filter := Format('Nom LIKE (''*%s*'')', [Edit1 .Text]); // tout ce qui contient ??? F_DM.AQ_Pr.filtered := True;
merci ShaileTroll pour la reponse,

apparition du message d'erreur suivant

[Erreur] U_Prod.pas(141): Pas assez de paramètres originaux

a la ligne

F_DM.AQ_Pr.Filter := Format('Nom LIKE (''%s*'') AND Nom LIKE (''*%s'')', [Copy(Edit1 .Text, 1, K-1), Copy(Edit1 .Text, K+1)]) // ce qui commence par et fini par

salutations

28/05/2020, 16h30
SergioMaster

En D7 Copy nécessite la longueur ;) la version où il n'y a plus besoin c'est plus tard (D2009 je crois)

Code:

F_DM.AQ_Pr.Filter := Format('Nom LIKE (''%s*'') AND Nom LIKE (''*%s'')', [Copy(Edit1 .Text, 1, K-1), Copy(Edit1 .Text, K+1,Length(Edit1.text))])

perso j'aurais tenté le coup avec des quotedStr

Code:

F_DM.AQ_Pr.Filter := Format('Nom LIKE (%s) AND Nom LIKE (''*%s'')', [QuotedStr(Copy(Edit1 .Text, 1, K-1)+'*'), QuotedStr('*'+Copy(Edit1 .Text, K+1,Length(Edit1.text))])
28/05/2020, 17h11
ShaiLeTroll

@LandGreen
Oui, j'ai eu la flemme de calculer la longueur qui change selon si l'on veut le séparateur inclut ou pas, ça se joue toujours à +1/-1 près, ça doit être Copy(Edit1.Text, K+1, Length(Edit1.text) - K) .
Dans un vrai code, je le fais même si l'on peut l'omettre, lorsque l'on doit modifier par la suite le code, c'est plus simple

@SergioMaster
j'ai pensé au QuotedStr mais déjà le passage au format était un grand pas mais oui gérer un libelle comme "capture d'écran" n'est pas à négliger
28/05/2020, 17h40
LandGreen

Merci ShaiLeTroll et SergioMaster pour vos réponses

Le message d'erreur suivant apparaît lors de la saisie dans le champ Edit du caractère * : ( 'Les arguments sont de types incorrectes, en dehors des limites autorisées ou en conflit les uns avec les autres')