Discussion :

[andreditdd]

Bonjour, me revoilou avec mes questions...
Voila, je désire récuperer mes différents items se trouvant dans ma DBGrid pour les placer sur une Chart.
Quand je mets ceci:

Code :

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

1
2
amb:=(Form1.ADOquery1.FieldByName('Ambu').Value);
nomb:=(Form1.ADOquery1.FieldByName('Nombre').Value);

je récupere bien les valeurs de la 1ere ligne mais je voudrais récupérer aussi les autres lignes.

Des idées ???
André

[Cl@udius]

Salut

je récupere bien les valeurs de la 1ere ligne mais je voudrais récupérer aussi les autres lignes.

Comme tu l'a deviné, à voir ton code, ce n'est pas le DBGrid qui contient les données mais bien ton Query.
Il te suffit de faire une boucle sur celui-ci:

Code :

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

1
2
3
4
5
6
7
8
9
 
  with Form1.ADOQuery1 do begin
    while not Eof do begin
      amb := FieldByName('Ambu').Value;
      nomb := FieldByName('Nombre').Value;      
      // Envoie données vers Chart...
      Next;
    end;
  end;

[Edit] Tu peux (ou doit) ajouter un EnableControls/DisableControls pour éviter de voir ton DBGrid faire un défilement de tous les enregistrements pendant la boucle. [/edit]
@+ Claudius

[andreditdd]

Bonjour Cl@udius, tu deviens presque mon prof privé MERCI
En effet, j'ai bien compris que c'est le query que je dois questionner.
Ce que je désire faire est la suite de hier où je récupere par exemple les conducteurs et leurs nbre de sorties et mettre cela sous forme de graphique afin que cela soit plus parlant.
Apres avoir récupéré les valeurs, je pensais faire comme ceci:

Code :

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

1
2
3
 with series1 do
begin
add (StrtoInt(nomb),amb, clblue);

Mais, à voir ton code, ce n'est pas la bonne idée.
Comment envisage tu de transferer les données que tu récuperes vers le Chart ?

Merci,
André

[Cl@udius]

Re,

tu deviens presque mon prof privé

C'est gentil, mais je ne suis pas le seul à pouvoir te conseiller. Heureusement !

Comment envisage tu de transferer les données que tu récuperes vers le Chart ?

As-tu jeté un coup d'oeil au composant TDBChart ? Je crois que dans ta situation ce sera plus simple à mettre en place.

@+

[andreditdd]

DBChart ne convient pas dans ce cas car je fonctonne avec Access et je travaille sur des statistiques où on génere un champ "Nombre" qui n'existe pas dans la BDD.

André

[Cl@udius]

Re,

Le Query que tu utilises avec ton DBGrid (qui t'affiche tes stats sur les sorties de tes personnels), tu peux très bien l'utiliser pour ton DBChart.

[andreditdd]

Impec. ça fonctionne
J'ai mit cela:

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 TForm1.RadioButton2Click(Sender: TObject);
Var c, n :String;
begin
With AdoQuery1 do
begin
  SQL.Clear ;
  SQL.add('SELECT Cond, COUNT(*) AS Nombre FROM Table1 GROUP BY Cond');
  Active:=True;
  Label1.Caption := 'Statistique sur '+(IntTostr(ADOTable1.RecordCount))+' sorties';
 
 with Form1.ADOQuery1 do begin
    while not Eof do begin
     c:= FieldByName('Cond').Value;
     n:= FieldByName('Nombre').Value;
     with series1 do
begin
add (StrtoInt(n),c,clred);
end;
      Next;
    end;
  end;

Et j'ai relié le DBChart à mon ADOQuery et tout fonctionne.
Juste encore un détail, peut on faire de sorte que sur le graphe on ai une couleur différente à chaques items ?

Encore MERCI,
André

[Cl@udius]

Juste encore un détail, peut on faire de sorte que sur le graphe on ai une couleur différente à chaques items ?

Cela dépend du type de série que tu as choisi. Mais je dirais: Double-click sur ton DBChart, Onglet Séries, Onglet Format, Couleur: Colorier chaque point.

Voilou !
@+

[andreditdd]

Et ben voilou... C'est parfait

@+
André