[ins813]

Здравствуйте, скажите пожалуйста, есть 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;

Админ: двухдневный бан за отсутствие оформления кода.