Bonjour à tous

je suis étudiant en BTS 2ème année développement d'application, et j'ai problème sous Delphi 7 avec un TDBChart qui ne veut pas afficher les données qui se trouvent dans ma base MySQL!

ça serait super si vous pouviez m'aider!

Aurevoir

code:
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
procedure TFMain.Main_GenererClick(Sender: TObject);
begin
  ADOQ_Graph.Open;
  ADOQ_graph.Active:=true;
  DBChart_graph.Visible:=True;
end;
 
procedure TFMain.FormActivate(Sender: TObject);
begin
    RG_Serie.ItemIndex:=0;
    RG_Critere.ItemIndex:=0;
    ADOQ_graph.Open;
    ADOQ_graph.Active:=true;
end;
 
procedure TFMain.RG_CritereClick(Sender: TObject);
begin
    ADOQ_graph.Active:=false;
    ADOQ_graph.SQL.Clear;
 
    If RG_Critere.ItemIndex = 0 then
      ADOQ_graph.SQL.Add('select INTERVIEW as critere, count(CODE) as nombre from clients where INTERVIEW="conjoint" group by INTERVIEW')
    else
      ADOQ_graph.SQL.Add('select INTERVIEW as critere, count(CODE) as nombre from clients where INTERVIEW="abonne" group by INTERVIEW');
 
    ADOQ_graph.Open;
    ADOQ_graph.Active:=true;
end;