Discussion :

[aimer_Delphi]

Bonsoir a tous,
j'ai une table des articles qui contient plus de 10 000 article.
vu a une demande de mon client , il veux afficher tous les articles dans un dbgrid mais avec la possibilité de chercher des articles dans cette dernière .
pour réaliser ce travail j'ai utilisé une requête SQL (j'utilise Interbase + IBX + Delphi7).
dans l’événement OnChange du composant Edit1 je filtre mes données avec cette procédure :

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
22
23
procedure TFMaForm.Edit1Change(Sender: TObject);
begin
      IF (edit1.text <> '')  then
      begin
            MaQuery.close;
            MaQuery.SQL.Clear;
            MaQuery.SQL.Add('SELECT    CodeArt, Designation,QteStk');
            MaQuery.SQL.Add('FROM  MesArticles');
            MaQuery.SQL.Add('WHERE UPPER(Designation) LIKE  ''%' + UpperCase(edit1.Text) + '%''');
            MaQuery.SQL.Add('ORDER BY CodeArt');
            MaQuery.Active := true;
      else
      begin
            MaQuery.close;
            MaQuery.SQL.Clear;
            MaQuery.SQL.Add('SELECT    CodeArt, Designation,QteStk');
            MaQuery.SQL.Add('FROM  MesArticles');
            MaQuery.SQL.Add('ORDER BY CodeArt');
            MaQuery.Active := true;
 
      end ;
 
end;

mais c'est très lourd de faire a chaque caractère une requête sql
j'ai essayé avec les filtre mais pas moyen.
avez vous une suggestion SVP !!!

pour Sergio : SVP cette fois ci ne soit pas sévère avec moi

[SergioMaster]

Bonjour,

pour Sergio : SVP cette fois ci ne soit pas sévère avec moi

c'était juste pour te faire assimiler certaines choses de façon "plus permanente"

Dans ton code, quelques petits points :

1 - pour éviter le sautillement de la DBGrid utilise un Maquery.DisableControls à l'entrée de la procédure et à la fin un Maquery.EnableControls
2- pour la requête cette partie MaQuery.SQL.Add('WHERE UPPER(Designation) LIKE ''%' + UpperCase(edit1.Text) + '%''');est sujette à danger (injection de SQL possible, difficile mais pas inpossible) et de plus s'il s'agit d'une recherche par nom le STARTING WITH sera plus rapide
(ton client n'a pas dit s'il s'agissait d'une recherche dans le nom LIKE ou dont le nom commence par STARTING)
3- quelques simplifications sont possibles

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
 
procedure TFMaForm.Edit1Change(Sender: TObject);
begin
   maquery.DisableControls;
   Maquery.Active:=False;
   Maquery.SQL.Text:='SELECT  CodeArt, Designation,QteStk FROM MesArticles'; 
     IF (edit1.text <> '')  then
      begin
//        MaQuery.SQL.Add('WHERE UPPER(Designation) LIKE  :E');
//        Maquery.ParamBYName('E').asString:=UpperCase('%'+edit1.Text+'%');
ou 
          MaQuery.SQL.Add('WHERE UPPER(Designation) STARTING WITH :E');
          Maquery.ParamByName('E').asString:=UpperCase(edit1.Text);  // ou MaQuery.Params[0].asString:=UpperCase(edit1.Text);
      end;
      MaQuery.SQL.Add('ORDER BY CodeArt');
      MaQuery.Active := true;
      Maquery.EnableControls;
 end;

pour rendre moins facile l'injection de SQL on pourrait aussi traiter le TEdit (longueur max = Taille max de Désignation), pour le Uppercase on peut s'en passer en mettant le TEdit uniquement en majuscule.
ne connaissant pas assez les IBX je ne sais pas si en plus des paramètres ils acceptent les macros ? ou si un prépare est possible vu que l'on change la requête

Bien évidemment cette méthode est pénalisante puisque une requête est lancée à chaque fois sur l'ensemble de la table (qui nécessite un Index sur la colonne DESIGNATION pour de bonnes performances) mais dans un environnement multi-utilisateurs (changement de qte sur une autre poste par exemple) le rafraîchissement de la requête serait obligatoire

[aimer_Delphi]

Bonjour Sergio et Merci pour le suivie.
la recherche doit t être dans n'importe quelle position dans la désignation ,donc je ne peut pas utilisé STARTING WITH .

Sergio a dit :
ne connaissant pas assez les IBX je ne sais pas si en plus des paramètres ils acceptent les macros ?

quel est l'utilité des macros SVP?

Sergio a dit :
ne connaissant pas assez les IBX je ne sais pas si en plus des paramètres ils acceptent les macros ? ou si un prépare est possible vu que l'on change la requête.

Oui un prépare est possible.

[SergioMaster]

quel est l'utilité des macros SVP?

un exemple avec Firedac (cela aurait put être avec ZEOSDBO, ou RXQuery) , c'est le & qui indique un paramètre dans la Query (mais c'est modifiable par un autre caractère)

le code dans le TQuery

Code SQL :

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

SELECT  CodeArt, Designation,QteStk FROM MesArticles &clause ORDER BY CodeArt

Code :

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

1
2
3
4
5
6
7
8
 
     Maquery.MarcoByName('clause').Clear;
     Maquery.ParamByName('E').Clear;
     IF (edit1.text <> '')  then
      begin
        MaQuery.MacroByName('clause').asRaw:='WHERE UPPER(Designation) LIKE  :E';
        Maquery.ParamBYName('E').asString:=UpperCase('%'+edit1.Text+'%');
      end

ce qui pourrait se remplacer par un format

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
var Clause : String;
const Q = 'SELECT  CodeArt, Designation,QteStk FROM MesArticles %s ORDER BY CodeArt';
begin
 Maquery.DisableControls,
 Maquery.Active:=False;
 Clause:='';
  IF (edit1.text <> '')  then
      begin
        clause:='WHERE UPPER(Designation) LIKE  %s';
        clause:=Format(Clause,[QuotedStr('%'+edit1.Text+'%']);
      end
 Maquery.SQL.Text:=Format(Q,[Clause]);
 MaQuery.Active:=True;
 MaQuery.EnableControls;
end;

[solilog]

Bonsoir,
C'est quoi le but du jeu ? accélérer le process. Tu recrées la requête SQL dans le onchange du tEdit, évidemment c'est pas possible.
Mais que veux-tu faire ?
1 - n'afficher QUE les records qui matchent avec le tEdit (c'est ce que tu fais en refaisant ta requete avec le LIKE)
2 - ou pointer sur le 1er record qui matche avec ton tEdit

(1) tu n'as pas le choix, tu dois refaire ta requête + ou - comme tu fais ou avec un param dans ton query qy1.params[0].asstring := edit1.text + '%';
j'utiliserai l'évenement onexit au lieu de onchange, la requete ne se ferai à la fin de la saisie et on pas à chaque key

(2) si tu veux seulement pointer sur le bon record (mais laisser tous les records dans ton dbgrid),
tu fais le init et l'open du query avant, il affiche tous les records et fais dans le onchange
qy1.locate('NOM',edCherche.text,[ loCaseInsensitive, loPartialKey]); (pris dans un de mes codes, NOM étant bien-sûr le nom de mon champ, et edCherche mon tEdit). C'est beaucoup moins gourmand en ressources que refaire la requete.
Salut.
solilog

[aimer_Delphi]

Bonjour a tous ,
normalement j'ai trouvé la solution.
c'est d'utiliser ClientDataSet (in memory data) ,
et pour les requette sql sur ce dataset j'utilise txquery
http://www.developpez.net/forums/d87...t-open-source/

Merci a tous.