Discussion :

[Brain3D]

Salut a tous,

Je fait une recherche dans un base de donnée Ms Access avec une requète SQL
Adoquery.

Voici le Code de ma recherche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Procedure TprogCNS.Findclick(Sender: TObject);
begin
   if Recherche.text <> '' then
   begin
   Sqlsearch := 'SELECT * FROM Ca_Qc WHERE (Villes LIKE : Search)';
   Adoquery.Close;
      With ADOquery.SQL do begin
      Clear;
      Add(SqlSearch);
      end;
Adoquery.Parameters.ParamByName('Search').Value := '%'+Recherche.text+'%';
Adoquery.Open;
   end;
end;

Voila a partir de la je voudrais faire un subtitution de caractere..
je veux dire : quand j'entre mon text pour faire ma recherche je voudrais que le programme ne tienne pas compte des accents lors de la recherche.

Ex: je veut chercher une ville qui s'appelle Saint-Jérome, donc dans ma recherche j'entre seulement 'Jerome' et je voudrais que le programme me retourne Saint-Jérome avec un accent même si je ne l'ai pas écrit dans ma recherche. Avec le Code si haut si je veux trouver cette Ville je dois l'écrire abosulument avec le 'é'.

Merci

[Yurck]

Bonjour,

Il existe plusieurs solutions.
La première est simple : il s'agit de faire ta recherche en majuscule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Procedure TprogCNS.Findclick(Sender: TObject);
begin
   if Recherche.text <> '' then
   begin
    Sqlsearch := 'SELECT * FROM Ca_Qc WHERE (Upper(Villes) LIKE :Search)';
    Adoquery.Close;
      With ADOquery.SQL do begin
      Clear;
      Add(SqlSearch);
      end;
    Adoquery.Parameters.ParamByName('Search').Value := '%'+Uppercase(Recherche.text)+'%';
    Adoquery.Open;
   end;
end;

La seconde est plus élaborée; il faut ajouter un champ à ta base VILLE_RECHERCHE puis une fonction ou procédure stockée qui, sur les triggers d'insertion et de modification, "adaptera" la saisie de ville en ville_recherche. Cette foonction convertira les caractères pour supprimer les caractères qui faussent ta recherche tels que l'apostrophes, les espaces, les accentués...

Cela pose le problème du volume de donnée. En effet si tu dois faire cela pour les champs adresses, villes, nom, etc....

Alors il y a encore une autre solution qui consiste à faire comme pour la seconde solution une fonction de transformation et de l'appeler dans ton select

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Procedure TprogCNS.Findclick(Sender: TObject);
begin
   if Recherche.text <> '' then
   begin
    Sqlsearch := 'SELECT * FROM Ca_Qc WHERE (TransForm_Sql(Villes) LIKE :Search)';
    Adoquery.Close;
      With ADOquery.SQL do begin
      Clear;
      Add(SqlSearch);
      end;
    Adoquery.Parameters.ParamByName('Search').Value := '%'+TransForm_Delphi(Recherche.text)+'%';
    Adoquery.Open;
   end;
end;

C'est vous qui voyez !

Le choix dépend de la faisabilité (SGBD) des volumes de données et du besoin.

a+

a+