Discussion :

[ghan77]

Voilà j'aimerais à partir d'une requête qu'un graphe se construise :

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
 
var
Serie:TLineSeries; //Série de type "Ligne"
a:double;
begin
//Créer le Graphe
Serie:=TLineSeries.Create(Self); //Crée la série
Serie.ParentChart:=Chart1; //Associe la série au graphe
Serie.Title:='Point Mort'; //Modifie le titre de la série
 
//Recherche Clé Pub, Date, Retour, Montant Retour(peut etre)
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT smcode,sdate');
Query2.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
//Query2.sql.Add('Sum(SPRICE) as SommeDeSPRICE FROM Sales');
Query2.SQL.Add('WHERE (smcode=:x)');
Query2.SQL.add('GROUP BY sdate, smcode');
Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
Query2.Open;
 
Series1.Clear; //Efface le contenu de la série
while not Query2.Eof do //Ajoute valeurs dans la série
      begin
      Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,620430220); //Ajoute un nombre entre 0 et 50 à la série
      Query2.next;
      end;
end;

Le souci c'est qu'en remplissant les conditions un problème :

Project IEPS.exe raised exception class EDBEngineError with message 'Invalid use of keyword.
Token: COUNT(sscode)
Line number: 2'. Process stopped. Use Step or Run to continue.

[ghan77]

Lol le boulet j'ai fait une erreur sur une ligne mais j'ai toujours le problème :


Code Rectifié

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
 
var
Serie:TLineSeries; //Série de type "Ligne"
begin
//Créer le Graphe
Serie:=TLineSeries.Create(Self); //Crée la série
Serie.ParentChart:=Chart1; //Associe la série au graphe
Serie.Title:='Point Mort'; //Modifie le titre de la série
 
//Recherche Clé Pub, Date, Retour, Montant Retour(peut etre)
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT smcode,sdate');
Query2.sql.Add('COUNT(sccode) AS CompteDeSCCode');
//Query2.sql.Add('Sum(SPRICE) as SommeDeSPRICE');
Query2.sql.Add('FROM Sales');
Query2.SQL.Add('WHERE (smcode=:x)');
Query2.SQL.add('GROUP BY sdate, smcode');
Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
Query2.Open;
 
Series1.Clear; //Efface le contenu de la série
while not Query2.Eof do //Ajoute valeurs dans la série
      begin
      Showmessage(Query2.Fields[2].ASString);
      //Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,620430220); //Ajoute un nombre entre 0 et 50 à la série
      Query2.next;
      end;
end;

ce code avait // devant donc il ne risquait pas de trouver la table mais le problème persiste :

Code :

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

1
2
 
Query2.sql.Add('FROM Sales');

[e-ric]

Salut

Code :

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

1
2
3
4
5
6
 
Query2.sql.Add('SELECT smcode,sdate');
Query2.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
//Query2.sql.Add('Sum(SPRICE) as SommeDeSPRICE FROM Sales');
Query2.SQL.Add('WHERE (smcode=:x)');
Query2.SQL.add('GROUP BY sdate, smcode');

Tu as oublié une virgule, remplace la première ligne par :

Code :

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

1
2
 
Query2.sql.Add('SELECT smcode,sdate,');

cdlt

e-ric

[ghan77]

Mdr Mais Quel Boulet je suis lol!

le bon code c'est ca :

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
 
var
Serie:TLineSeries; //Série de type "Ligne"
begin
//Créer le Graphe
Serie:=TLineSeries.Create(Self); //Crée la série
Serie.ParentChart:=Chart1; //Associe la série au graphe
Serie.Title:='Point Mort'; //Modifie le titre de la série
 
//Recherche Clé Pub, Date, Retour, Montant Retour(peut etre)
Query2.Close;
Query2.sql.clear;
Query2.sql.Add('SELECT smcode,sdate,');
Query2.sql.Add('COUNT(sccode) AS CompteDeSCCode');
//Query2.sql.Add('Sum(SPRICE) as SommeDeSPRICE');
Query2.sql.Add('FROM Sales');
Query2.SQL.Add('WHERE (smcode=:x)');
Query2.SQL.add('GROUP BY sdate, smcode');
Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
Query2.Open;
 
Series1.Clear; //Efface le contenu de la série
while not Query2.Eof do //Ajoute valeurs dans la série
      begin
 
      Showmessage(Query2.Fields[2].ASString);
      //Series1.Add(StrToFloat(Query2.Fields[2].AsString),Query2.Fields[1].AsString,620430220); //Ajoute un nombre entre 0 et 50 à la série
      Query2.next;
      end;
end;

encore Merci