[ins813]

Здравствуйте, скажите пожалуйста, есть MSSQL-БД, ADOQueary. Как выгрузиться с помощью Queary в Excel ?

Код:

1 2 3 4 5 6 7 8

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 взаимодействие, как вариант. Тока АДО тут не причем уже.
Кстати, в Эксэль можно прямо результат запроса вываливать, онавтоматом табличку строит.

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

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

Код:

1 2 3 4 5

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

[ALexandr555]

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

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

Код:

по моему без -1 в ADOQuery1.RecordCount -1 просто

Код:

1	for i:= 1 to ADOQuery1.RecordCount

или тогда

Код:

1	for i:= 0 to ADOQuery1.RecordCount-1

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