[Debutant]Problème Insertion Requête dans un StringGrid
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:
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; |
Re: [Debutant]Problème Insertion Requête dans un StringGrid
Citation:
Envoyé par ghan77
Code:
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
