Discussion :

[Le Lézard]

Bonsoir,

Tout est dans le titre, mais peut-être pas très clair...
Je m'explique :

j'ai un dataset qui contient des champs numeriques et un champ varchar.
sur ma form, j'ai une dbgrid connectée à ce dataset, et une listbox qui contient toutes les occurences du champs varchar. J'utilise cette listbox pour effectuer un filtre sur le dataset .

Sur ma form, j'ai egalement un label qui me sert à afficher la somme d'un des champs numeriques. cette somme doit donc varier en fonction du filtre que je vais appliquer.

Je n'ai pas trouver de solution "élégante" pour effectuer ceci.
la seule que j'ai trouvée consiste à parcourir le dataset après chaque changement de filtre afin de recalculer la nouvelle somme. Le problème est que je vois le cursor du dataset parcourir la dbgrid en même temps, et ça, comme je le disais, ce n'est pas très élégant...

Existe-t-il une solution alternative ?
les champs agrégats, peut-être... si oui, comment ça fonctionne ?

Merci d'avance.

[Just-Soft]

Salut;

voilà ce que j'aurais fais (à ta place ):

- une requête dont la paramètre est la valeur du edit qui change celui-ci servira dans la clause groupe by puisqu'il s'agit d'une agrégation de données.

- pour ce qui est de l'effet du DBGrid je te conseil d'utiliser les méthodes EnableControls et DisableControls pour justement lutter contre cet effet.

une petite mise en œuvre du second point : (tiré du help Delphi 7)
Table1.DisableControls;
try
Table1.First; { Aller sur le premier enregistrement qui définit EOF à False }
while not Table1.EOF do { Boucle jusqu'à ce qu'EOF soit à True }
begin
{ Traiter chaque enregistrement ici }
...
Table1.Next; { EOF à False en cas de succès*; EOF à True quand Next échoue sur le dernier enregistrement }
end;
finally
Table1.EnableControls;
end;

Bonne chance.

[Le Lézard]

Merci pour les EnableControls et DisableControls, ça va me permettre déjà de mettre en place une premiere solution.

Pour la requete, je vais expliquer un peu plus le contexte de mon appli :
En fait, je n'accède pas directement à la base de données. je passe par un serveur web.
J'envoie ma requete au serveur web dans une clause "GET" et il me repond en html en equivalent de structure CSV (Coma Separated Values).
Je fais un "parsing" sur la page html reçue en reponse, et j'alimente un dataset. C'est ce dataset que je manipule ensuite à l'écran avec une dbgrid et quelques dbedit.
Dans le cas précis qui m'interesse, ma requete me retourne toutes les données d'une date. Ensuite, à l'aide du dataset.filter, je selectionne certains enregistrements. je travaille donc en local sur le résultat d'une requete "wide", car les performances reduites de l'accès à la dbase m'interdisent un acces permanent.

Donc, dans ce contexte, je ne vois pas comment faire une requete sur le contenu du dataset. Si effectivement c'est possible, alors mon problème sera résolu...

[Just-Soft]

Re;

A moins que je n'ai pas bien compris ton DataSet récupère bel et bien les données. A vrai dire je ne vois pas où est le problème. Puis-je savoir par quel composant tu accèdes à tes données ?

[Le Lézard]

Oui, mon dataset récupère bien les données, mais toutes les données pour une date donnée.

mais je donne la possibilité à l'utilisateur de restreindre (a l'interieur de cette date) la quantité de record affichés dans la dbgrid en appliquant des filtres sur le dataset.

Prenons un cas concret :
structure du dataset :
com_date : date // Date
com_nom : string // nom du commercial
com_ca : real // Chiffre d'affaire
com_dpt : string // Département

la dbgrid affiche donc tous les records pour une date donnée.
le label_ca_jour contient la somme du ca de cette date.

2 listbox différentes permettent à l'utilisateur de filtrer sur un ou plusieurs commerciaux et un ou plusieurs département

dans ce cas, le dataset contient toujours la totalité des records pour cette date, mais la dbgrid n'en affiche plus qu'une certaine quantité (fonction de ce qui a été selectionné dans les listbox)

et c'est là que je souhaiterais que le label_ca_jour, soit mis à jour avec la somme des CA "filtrés"

[Le Lézard]

Bon, voici ce que j'ai fait.
J'appelle cette fonction à chaque changement de filtre sur le com_dataset. Elle me retourne l'agrégat "sum" sur le champ n°2 du dataset.
reste qu'à le convertir en pchar pour l'affecter au label_CA.caption

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
function MaJCA:integer;
var CurPos : integer;
begin
   result := 0;
   with com_dataset do begin
      DisableControls;
      CurPos := RecNo;
      first;
      while not eof do begin
          inc(result,fields[2].AsInteger);
          next;
      end;
      RecNo := CurPos;
      EnableControls;
   end;
end;

Merci de ton aide, Just-Soft

En fait, c'est surtout l'appel à DisableControls / EnableControls qui rend la function vraiment performante (et élégante...)