Discussion :

[LandGreen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SergioMaster]

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 SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

toujours écrit à la volée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[LandGreen]

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

[ShaiLeTroll]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[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

[LandGreen]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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))])

[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

[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')