Zeptal/a se – 13.leden 17:24
Počítače a internet – Programování a webdesign
Zravím , mam dotaz ohledně delphi
Mam zde dbgrid a přes button a script do něj vypíšu hodnoty z SQL
Var
i: integer;
str: string;
stl: TStringList;
begin
adoQuery1.SQL.Clear;
adoQuery1.SQL.Add(‚select datum, sum(celkem) from tabulka1 group by datum
;‘);
adoQuery1.Active := True;
stl:= TStringList.Create;
Try
With DBGrid1.DataSource.DataSet Do
begin
First;
while not Eof do
begin
str:= ‚;‘+Fields[0].AsString+‚;‘;
for i:= 1 to FieldCount-1 do
str:= str+‚;‘+Fields[i].AsString+‚;‘;
sstl.Add(str);
Next;
end;
First;
end;
stl.SaveToFile(‚C:\data\test.csv‘);
Finally
stl.Free;
End;
výsledkem je že se mi exportuje csv kde mam vypsaný datum a částky ale už mi chybí ten první řádek jakoby popisy
datum částka // tyto řádky
13.1.2019 4000
prosím jak to doplnit?
Zeptal/a se – 13.leden 18:03
Počítače a internet – Programování a webdesign
Zravím , mam dotaz ohledně delphi
Mam zde dbgrid a přes button a script do něj vypíšu hodnoty z SQL
Var
i: integer;
str: string;
stl: TStringList;
begin
adoQuery1.SQL.Clear;
adoQuery1.SQL.Add(‚select datum, sum(celkem) from tabulka1 group by datum
;‘);
adoQuery1.Active := True;
stl:= TStringList.Create;
Try
With DBGrid1.DataSource.DataSet Do
begin
First;
while not Eof do
begin
str:= ‚;‘+Fields[0].AsString+‚;‘;
for i:= 1 to FieldCount-1 do
str:= str+‚;‘+Fields[i].AsString+‚;‘;
sstl.Add(str);
Next;
end;
First;
end;
stl.SaveToFile(‚C:\data\test.csv‘);
Finally
stl.Free;
End;
výsledkem je že se mi exportuje csv kde mam vypsaný datum a částky ale už mi chybí ten první řádek jakoby popisy
datum částka // tyto řádky
13.1.2019 4000
prosím jak to doplnit?