Цитата:
|
Сообщение от Страдалецъ
Я вашем коде вообще не понимаю, зачем там грид. Сразу читайте и пишите данные, примерно так:
Код:
for i:= 1 to ADOQuery1.RecordCount -1
do begin
sheet.cells[i,1]:=adoquery1.FieldByName('name').AsString;
AdoQuery1.Next;
end; |
по моему без -1 в ADOQuery1.RecordCount -1 просто
Код:
for i:= 1 to ADOQuery1.RecordCount
или тогда
Код:
for i:= 0 to ADOQuery1.RecordCount-1
а то последнее не возьмет, или если запись одна то ничего не сделает