Здравствуйте, скажите пожалуйста, есть MSSQL-БД, ADOQueary. Как выгрузиться с помощью Queary в Excel ?
Код:
ADOQuery1.First;
for i:= 1 to ADOQuery1.RecordCount -1 do
begin
for j:= 1 to DBGrid1.Columns.Count do
sheet.cells[index,1]:=adoquery1.FieldByName('name').AsString;
inc(index);
ADOQuery1.Next;
end;
Админ: двухдневный бан за отсутствие оформления кода.