[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;

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

[M.A.D.M.A.N.]

Через OLE взаимодействие, как вариант. Тока АДО тут не причем уже.
Кстати, в Эксэль можно прямо результат запроса вываливать, онавтоматом табличку строит.

[Страдалецъ]

Я вашем коде вообще не понимаю, зачем там грид. Сразу читайте и пишите данные, примерно так:

Код:

for i:= 1 to ADOQuery1.RecordCount -1 
do begin
    sheet.cells[i,1]:=adoquery1.FieldByName('name').AsString; 
    AdoQuery1.Next;   
    end;

[ALexandr555]

Сообщение от Страдалецъ

Я вашем коде вообще не понимаю, зачем там грид. Сразу читайте и пишите данные, примерно так:

Код:

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

а то последнее не возьмет, или если запись одна то ничего не сделает