Discussion :

[aimer_Delphi]

Bonjour a tous ,
svp , j'ai un dbgrid qui est lié a un datasource , et ce dernier est lié à un FDquery.
mon dbgrid contient plusieurs lignes (+de 2000 lignes ) .
pour la recherche dans le dbgrid , j'ai mis sur ma fiche un Edit et dans l'evenement onchange du fameux edit je fais l'operation de recherche :

quelle est la meilleure méthode de recherche dans un dbgrid ?
est ce que j'utilise un filtre sur le FDquery
ou bien une requête sql a chaque fois :

Code :

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

1
2
sql.clear ;
sql.add('select * where Champs1 like %' + edit1.text + '%');

Merci d'avance.

[ShaiLeTroll]

2000 lignes ça va encore
Tout dépend le démarrage,
si tu affiches la liste complète dès le début, donc déjà récupéré, autant filtrer
Si tu affiches une grille vide que tu attends la recherche pour afficher, autant un SQL mais avec une Pagination type PackedRecord ou FetchRows limité, une requête préparée (la syntaxe au LIKE varie selon le SGBD) permettrait de gagner en performance

Le Locate est aussi une approche possible pour chercher une valeur dans l'ensemble,

Tiens un code dans ce genre, de mémoire, je crois qu'il y avait 4000 lignes triés par Nom, Prénom, NomJF
Tu frappes, cela recherche au bout d'un délai, laissant taper quelques lettres, et Entrée permet de passer au suivant (utile pour les homonymes)

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
//------------------------------------------------------------------------------
procedure TModulePrimesManageSalarieExcluForm.edSearchAllChange(Sender: TObject);
begin
  // Le Timer 250ms est une méthode simpliste pour lancer une rechercher avec un délai de Frappe !
  TimerSearch.Enabled := False;
  TimerSearch.Enabled := True;
end;
 
//------------------------------------------------------------------------------
procedure TModulePrimesManageSalarieExcluForm.edSearchAllKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
    TimerSearchTimer(Sender);
end;
 
//------------------------------------------------------------------------------
procedure TModulePrimesManageSalarieExcluForm.TimerSearchTimer(Sender: TObject);
var
  KeyFields, KeyValue: string;
  KeyValues: array of Variant;
  AllowNext: Boolean;
begin
  TimerSearch.Enabled := False;
 
  with FSalaries do
  begin
    if Sender <> TimerSearch then
    begin
      AllowNext := False;
      if Sender = edSearchNom then
      begin
        KeyFields := Schema.FieldNames[TProperties.pNom];
        KeyValue := Trim(edSearchNom.Text);
        AllowNext := (Trim(edSearchPrenom.Text) = '') and  (Trim(edSearchNomJf.Text) = '');
      end
      else if Sender = edSearchPrenom then
      begin
        KeyFields := Schema.FieldNames[TProperties.pPrenom];
        KeyValue := Trim(edSearchPrenom.Text);
        AllowNext := (Trim(edSearchNom.Text) = '') and  (Trim(edSearchNomJf.Text) = '');
      end
      else if Sender = edSearchNomJf then
      begin
        KeyFields := Schema.FieldNames[TProperties.pNomJeuneFille];
        KeyValue := Trim(edSearchNomJf.Text);
        AllowNext := (Trim(edSearchNom.Text) = '') and  (Trim(edSearchPrenom.Text) = '');
      end;
 
      if AllowNext then
      begin
        DataSet.DisableControls();
        try
          repeat
            Next();
            if StartsText(KeyValue, FieldByName(KeyFields).AsString) then
              Exit;
          until EoF;
        finally
          DataSet.EnableControls();
        end;
      end;
    end;
 
    KeyFields := '';
    SetLength(KeyValues, 0);
    if Trim(edSearchNom.Text) <> '' then
    begin
      KeyFields := Schema.FieldNames[TProperties.pNom];
      SetLength(KeyValues, Length(KeyValues) + 1);
      KeyValues[High(KeyValues)] := Trim(edSearchNom.Text);
    end;
    if Trim(edSearchPrenom.Text) <> '' then
    begin
      if KeyFields <> '' then
        KeyFields := KeyFields + ';';
      KeyFields := KeyFields + Schema.FieldNames[TProperties.pPrenom];
      SetLength(KeyValues, Length(KeyValues) + 1);
      KeyValues[High(KeyValues)] := Trim(edSearchPrenom.Text);
    end;
    if Trim(edSearchNomJf.Text) <> '' then
    begin
      if KeyFields <> '' then
        KeyFields := KeyFields + ';';
      KeyFields := KeyFields + Schema.FieldNames[TProperties.pNomJeuneFille];
      SetLength(KeyValues, Length(KeyValues) + 1);
      KeyValues[High(KeyValues)] := Trim(edSearchNomJf.Text);
    end;
 
    // la Recherche provoquera un chargement des données mais comme c'est suite à une recherche, c'est logique !
    if KeyFields <> '' then
    begin
      if not DataSet.Locate(KeyFields, VarArrayOf(KeyValues), [loPartialKey]) then
      begin
        TThomFormFlasher.Flash(Self);
 
        Beep();
      end;
    end;
  end;
end;

Note l'ascenseur sur la liste de gauche, tout en bas mais dans les noms en C... ça c'est l'effet de bord de la Pagination

[SergioMaster]

Bonjour,
donc un programme VCL, dommage je viens de voir une Video de recherche dans une grille pour FMX

j'aurais tendance à écrire SQL et comme il s'agit de FDQuery d'utiliser une macro pour la clause Where

Texte de requête SELECT * FROM table1 &cwhere (je ne suis pas pour le * et prefére indiqué les colonnes qui seront affichées dans la grille

Code :

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

1
2
3
4
5
fdQuery.DisableControls;
fdQuery1.Close;
fdquery1.macrobyname('cwhere').asraw:='WHERE Champs1 like '+QuotedStr('%' + edit1.text + '%');
fdQuery1.Open;
fdQuery.EnableControls;

pour annuler la clause where

Code :

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

fdquery1.macrobyname('cwhere').Clear;

le seul reproche que l'on pourrait faire à cette méthode c'est que la grille se repositionne au début

[aimer_Delphi]

Merci beaucoup a vous deux .
toujours, j'apprends avec vous.