Discussion :

[ABBAN270]

Salut a tous
Recherche par Query ma fait des probleme alors jai décider de la faire par Filter
Pourquoi cette fontion ne fait pas la recherche comme la fonction "Like"
elle cherche seulement le debut de Nom
comment la modifer pour quelle cherche Le contenue (Debut ou milieu ou fin) de Nom ?

Code :

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

DBGrid1.DataSource.DataSet.Filter:= ('[Nom]=' + QuotedStr(Edit1.Text+'*'));

Merci davance.

[NABIL74]

Salut a tous
Recherche par Query ma fait des probleme alors jai décider de la faire par Filter
Pourquoi cette fontion ne fait pas la recherche comme la fonction "Like"
elle cherche seulement le debut de Nom
comment la modifer pour quelle cherche Le contenue (Debut ou milieu ou fin) de Nom ?

Code :

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

DBGrid1.DataSource.DataSet.Filter:= ('[Nom]=' + QuotedStr(Edit1.Text+'*'));

Merci davance.

Bonsoir,

Nous ignorons quel SGBD vous utilisez.
Avec Firebird, j'ai l'habitude d'utiliser la fonction "CONTAINING", elle permet de rechercher n'importe quelle chaine(au début, au milieu ou à la fin) contenue dans un mot.

[ABBAN270]

Bonsoir,

Nous ignorons quel SGBD vous utilisez.
Avec Firebird, j'ai l'habitude d'utiliser la fonction "CONTAINING", elle permet de rechercher n'importe quelle chaine(au début, au milieu ou à la fin) contenue dans un mot.

Paradox

[SergioMaster]

Bonjour,

Recherche par Query m'a fait des problemes

peut être parce que votre requête était mal écrite tout simplement en tout cas j'ai toujours privilégié une requête à un filtre, bien que avec Paradox ce soit moins justifié.

Ce que vous cherchez c'est tout simplement le filtre Like

Code :

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

DBGrid1.DataSource.DataSet.Filter:= ('Nom like '+QuotedStr('*'+Edit1.Text+'*'));

maintenant pas sûr que cela fonctionne à tout les coups, cela dépend également d'un autre truc que vous n'avez pas indiqué : le groupe de composants utilisés (ADO, BDE ...) .
une autre solution serait d'utiliser l'évènement onFilterRecord du Dataset, de mémoire

Code :

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

1
2
3
4
5
 
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := Pos(Edit1.text,DataSet['Nom'].AsString)>0;
end;

N.B. voir aussi les fonctions AnsiContainsText, AnsiContainsStr ... de l'unité StrUtils

@Nabil je préfère SIMILAR TO à CONTAINING

[ALWEBER]

Pour Paradox. dans une requête le spécificateur générique est ".."
Exemple "..e.." tous les mots qui contiennent la lettre e
Par contre de mémoire sur le filtre tu peux mette "e.." et pas '..e.."

[SergioMaster]

tu es sûr de ces '..' ?
en fait ce n'était pas mon '*' initial (que j'ai corrigé dans ma réponse) mais un '%' quoique, avec le Filter, j'ai un doute

[Edit] après divers essais et consultation de l'aide

Pour filtrer des chaînes en utilisant des comparaisons partielles, utilisez un astérisque comme caractère générique. Par exemple*:
State = 'M*'

Like n'est pas permis dans une expression de filtre (du moins en ce qui concerne les composants BDE)

Les opérateurs logiques et de comparaison suivants permettent de comparer les valeurs des champs à des littéraux et à des constantes :

Opérateur Signification
< Inférieur
> Supérieur
>= Supérieur ou égal
<= Inférieur ou égal
= Egal
<> Différent
AND Teste si deux instructions valent toutes deux True
NOT Vérifie que l'instruction suivante ne vaut pas True
OR Vérifie qu'au moins une des deux instructions vaut True
+ Ajoute des nombres, concatène des chaînes, ajoute des nombres à des valeurs date/heure (disponible seulement pour certains pilotes)
- Soustrait un nombre d'un autre, une date d'une autre ou un nombre d'une date (disponible seulement pour certains pilotes)
* Multiplie deux nombres (disponible seulement pour certains pilotes)
/ Divise deux nombres (disponible seulement pour certains pilotes)
* caractère générique pour des comparaisons partielles (FilterOptions doit inclure foNoPartialCompare=false)

Ce qui fait que dans une expression de filtre:
- le caractère de remplacement est bien l'astérisque (*)
- il n'y a pas d'opérateur Like pour les filtres
- la seule utilisation de l'astérisque (*) se fait à la fin d'une chaine comme par exemple : tous les enregistrements don la colonne CLE commence par 'A' Filter :='CLE = '+QuotedStr('A*'); (indiqué dans l'aide)

Quand une chaîne d'un filtre se termine par un astérisque (*), elle peut être utilisée pour des correspondances partielles. Pour désactiver les correspondances partielles, incluez la valeur foNoPartialCompare dans FilterOptions.

Alors que pour une requête SQL on utilisera le pourcentage (%) comme caractère générique

Code :

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

1
2
3
4
//commence par 'A'  
SELECT * FROM TEST WHERE CLE LIKE 'A%'
//contient     'A'  
SELECT * FROM TEST WHERE CLE LIKE '%A%'

[ABBAN270]

Les composants utilisés Sont:
Table1
Datasource1
Dbgrid1
et voila le message d'erreur apres le test

[SergioMaster]

Bonjour,

Je parlais du groupe de composant de connexion (BDE, ADO ou autre) soit respectivement pour une table (TTable, TADOTable ...)
bon je pense qu'il s'agit de TTable et donc BDE

voila le message d'erreur apres le test

et de quel test s'agit-il ?

Il me semble que vous n'avez tenu aucun compte de mon dernier post #6

[ABBAN270]

oui les connection sont par BDE
mais....a propos de Poste#6
jais pas compris que je doit faire

[SergioMaster]

j'ai pas compris que je doit faire

au vu de ce que vous voulez faire : Utiliser l'évènement OnFilterRecord

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := Pos(Edit1.text,Table1.FieldByName('Nom').AsString)>0; 
  // ou  Accept := Pos(UpperCase(Edit1.text),Uppercase(Table1.FieldByName('Nom').AsString))>0; // Case insensitive 
  // ou Accept:=AnsiContainsText(Edit1.Text,Table1.FieldByName('Nom').AsString); // Case insensitive 
  // ou Accept:=AnsiContainsStr(Edit1.Text,Table1.FieldByName('Nom').AsString);
end;

[ABBAN270]

il affiche ce message d'erreur quand je tape une lettre

[SergioMaster]

Bonjour,

Si au moins vous indiquiez votre code pour moi, ce second message indique que vous avez écrit un filtre (propriété Filter) incorrect

[ABBAN270]

Bonjour,

Si au moins vous indiquiez votre code pour moi, ce second message indique que vous avez écrit un filtre (propriété Filter) incorrect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.Edit1Change(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Filtered := True;
DBGrid1.DataSource.DataSet.Filter:= ('Nom like '+QuotedStr('*'+Edit1.Text+'*'));
end;
 
 
procedure TForm2.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := Pos(UpperCase(Edit1.text),UpperCase(Table1.FieldByName('Nom').AsString))>0;
end;

[SergioMaster]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm2.Edit1Change(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Filtered := True;
//<s> DBGrid1.DataSource.DataSet.Filter:= ('Nom like '+QuotedStr('*'+Edit1.Text+'*'));</s>
//   like n'est pas utilisable  cf  Aide D7 : Définition de la propriété Filter
//  la seule recherche de correspondance partielles se fait par égalité et l'* ne peut se trouver qu'en fin de chaine
end;
 
 
procedure TForm2.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := Pos(UpperCase(Edit1.text),UpperCase(Table1.FieldByName('Nom').AsString))>0;
end;

[ABBAN270]

Ah ok jais bien compris
merci beaucoup Sergio