Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

19th
Июл

Как даннные вывести данные из Access в Excel?

Posted by Chas under Пост-обзор

Такая задача: есть база на Access. теперь надо сделать, чтобы отчёт выводился в Excel. подключение к Excel работает, а вот как вывести необходимую информацию из базы?

Serge_Bliznykov:

 RowCount := AQ_sel_in.RecordCount;

   ColCount := 1;
   ExcelApp := CreateOleObject( 'Excel.Application' );
   ExcelApp.Application.EnableEvents := false;
    n := true;

   Workbook := ExcelApp.WorkBooks.Add( n );

   ArrayData := VarArrayCreate( [ 0, RowCount, 1, ColCount ], varVariant );
   ArrayData[ 0, 1 ] := 'Наименование';
   AQ_sel_in.DisableControls;

   AQ_sel_in.First;

   while not AQ_sel_in.Eof do

       ArrayData[ AQ_sel_in.RecNo, 1 ] := AQ_sel_in.FieldbyName('NAME').value;

       AQ_sel_in.Next;

   end;
AQ_sel_in.EnableControls;

......

далее по тексту...