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?
ohodnoťte nejlepší odpověď symbolem palce
Zajímavá 0 před 2172 dny |
Sledovat
Nahlásit
|
Otázka ještě nemá žádnou odpověď.
U otázky nebylo diskutováno.
Nový příspěvekBedy | 1528 | |
Michal Kole | 1199 | |
led | 1159 | |
Hlada | 1132 | |
mosoj | 1124 | |
gecco | 904 | |
www | 828 | |
badisko | 817 | |
cochee | 814 | |
Dochy | 727 |
Software |
Hardware |
Internet |
Programování a webdesign |
Sítě |
Bezpečnost |
Ostatní počítače a internet |