Discussion :

[ghan77]

Mon Problème est d'insérer les résultats de requêtes dans un StringGrid car dans ma 5ème et 6ème colonnes je devrais mettre des valeurs fixes et en DBgrid je peux pas!

le "i" de mon code ne change pas :s

que faire?

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
 
var
i:integer;
begin
Query1.Close;
Query1.sql.clear;
Query1.sql.Add('SELECT smcode,sdate,');
Query1.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
Query1.sql.Add('Sum(SPRICE) as SommeDeSPRICE FROM Sales');
Query1.SQL.Add('WHERE (smcode=:x)');
Query1.SQL.add('GROUP BY sdate, smcode');
Query1.Params[0].AsString:=AnsiUpperCase(Edit1.text);
Query1.Open;
//Query2.Close;
//Query2.sql.clear;
//Query2.sql.Add('SELECT Count(smcode)');
//Query2.sql.Add('FROM Sales');
//Query2.Open;
stringgrid1.cells[0,0]:='SMCode';
stringgrid1.cells[1,0]:='SDate';
stringgrid1.cells[2,0]:='CompteDeSCCode';
stringgrid1.cells[3,0]:='Total Nombre';
stringgrid1.cells[4,0]:='Total Montant';
stringgrid1.cells[5,0]:='Stock de Livre';
while not Query1.Eof do
  begin
   i:=i+1;
   stringgrid1.cells[0,i+1]:=Query1.Fields[0].AsString;
   stringgrid1.cells[1,i+1]:=Query1.Fields[1].AsString;
   stringgrid1.cells[2,i+1]:=Query1.Fields[2].AsString;
   stringgrid1.cells[3,i+1]:=Query1.Fields[3].AsString;
   Query1.Next;
end;

[Rayek]

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
 
var
i:integer;
begin
Query1.Close;
Query1.sql.clear;
Query1.sql.Add('SELECT smcode,sdate,');
Query1.sql.Add('COUNT(sccode) AS CompteDeSCCode,');
Query1.sql.Add('Sum(SPRICE) as SommeDeSPRICE FROM Sales');
Query1.SQL.Add('WHERE (smcode=:x)');
Query1.SQL.add('GROUP BY sdate, smcode');
Query1.Params[0].AsString:=AnsiUpperCase(Edit1.text);
Query1.Open;
//Query2.Close;
//Query2.sql.clear;
//Query2.sql.Add('SELECT Count(smcode)');
//Query2.sql.Add('FROM Sales');
//Query2.Open;
stringgrid1.cells[0,0]:='SMCode';
stringgrid1.cells[1,0]:='SDate';
stringgrid1.cells[2,0]:='CompteDeSCCode';
stringgrid1.cells[3,0]:='Total Nombre';
stringgrid1.cells[4,0]:='Total Montant';
stringgrid1.cells[5,0]:='Stock de Livre';
i := 1;
Query1.Last; // au cas ou pour être sûr que le recordcount fonctionne
StringGrid1.Rowcount := Query1.RecordCount + 1; // faut donner la taille correspondant a ce qu'il y a dans ton query
Query1.First; // on se remet au debut de la requete
while not Query1.Eof do
  begin
   stringgrid1.cells[0,i]:=Query1.Fields[0].AsString;
   stringgrid1.cells[1,i]:=Query1.Fields[1].AsString;
   stringgrid1.cells[2,i]:=Query1.Fields[2].AsString;
   stringgrid1.cells[3,i]:=Query1.Fields[3].AsString;
   Query1.Next;
   i:=i+1;
 
end;

Voir commentaire dans le texte

[ghan77]

Merci encore ca marche!

[Rayek]

Petit conseil, au lieux d'utiliser Fields[x], utilise les FieldByName(Nomduchamp).
Car si tu inverses/Rajoutes des champs dans ta requete, tu vas devoir redéfinir tous les index de champs que tu as ecrit, alors qu'avec le nom direct du champ tu n'as pas ce problème.

Pense au tag résolut ^^