Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

экспорт из IBQuery в Excel [D6, D7, IB6.x]


merko$ ©   (2007-02-21 08:28:00) 

Уважаемые Мастера, подскажите пожалуйста как правильно сделать цикл чтоб результат запроса IBQuery экспортировался весь в Excel, (т.е. все записи), а не только первая запись?
Заранее благодарю!

Пробовал сделать так но не получается
var
i:integer;
begin
with IBQuery1 do while not Eof do  
ExcelWorksheet1.Cells.Item[2+i,3].Value:=fOtRem.IBQuery1.FieldValues['DATA_REM'];
Next; Inc(i);


Val   (2007-02-21 12:00:00) [1]

Есть. У человека, написавшего статьи "По волнам интеграции" на королевстве, как минимум. Очень советую.


merko$   (2007-02-21 11:46:00) [2]

Есть у ково-нибудь соображения по данному вопросу?


merko$   (2007-02-21 09:39:00) [3]

А если экспортировать из IBTable то все работает


merko$   (2007-02-21 09:36:00) [4]

Ошибка: Interfase not supported


Кщд   (2007-02-21 09:18:00) [5]

можно first поставить
а вообще, программирование это так заумно и утомительно - пойду-ка лучше в дворники


merko$   (2007-02-21 09:03:00) [6]

with IBQuery1 do while not Eof do  
begin
ExcelWorksheet1.Cells.Item[2+i,3].Value:=fOtRem.IBQuery1.FieldValues['DATA_REM'];
Next; Inc(i);
end;

Не работает, ошибка!


Кщд   (2007-02-21 08:46:00) [7]

with IBQuery1 do while not Eof do  
begin
ExcelWorksheet1.Cells.Item[2+i,3].Value:=fOtRem.IBQuery1.FieldValues['DATA_REM'];
Next; Inc(i);
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо