Экспорт данных из БД в Excel

var XLA,Sheet,Colum:variant;
index,i:integer;
begin
XLA:=createOleObject('Excel.Application' );
XLA.Visible:=true;
XLA.workbooks.add(-4167);
XLA.workbooks[1].worksheets[1].Name:='Отчет' ;
Colum:=XLA.workbooks[1].worksheets['Отчет'].columns;
Colum.columns[1].columnwidth:=40;
Colum.columns[2].columnwidth:=20;
Colum.columns[3].columnwidth:=30;
Colum.columns[4].columnwidth:=20;
Colum.columns[5].columnwidth:=10;
Colum.columns[6].columnwidth:=40;


Colum:=XLA.workbooks[1].worksheets['Отчет'].Rows;
Colum.Rows[1].font.bold:=true;
Colum.Rows[1].font.size:=14;
Colum.Rows[1].font.color:=clBlue;

sheet:=XLA.workbooks[1].worksheets['Отчет'];
Sheet.cells[1,1]:='Фамилия';
Sheet.cells[1,2]:='Имя';
Sheet.cells[1,3]:='Специальность';
Sheet.cells[1,4]:='Курс';
Sheet.cells[1,5]:='Группа';
Sheet.cells[1,6]:='Тема';


index:=2;
Datamodule4.ADOQuery1.First;
for i:=0 to Datamodule4.ADOQuery1.RecordCount-1 do
begin
sheet.cells[index,1]:=datamodule4.ADOQuery1.Fields.Fields[0].AsString;
sheet.cells[index,2]:=datamodule4.ADOQuery1.Fields.Fields[1].AsString;
sheet.cells[index,3]:=datamodule4.ADOQuery1.Fields.Fields[2].AsString;
sheet.cells[index,4]:=datamodule4.ADOQuery1.Fields.Fields[3].AsString;
sheet.cells[index,5]:=datamodule4.ADOQuery1.Fields.Fields[4].AsString;
sheet.cells[index,6]:=datamodule4.ADOQuery1.Fields.Fields[5].AsString;


inc(index);
Datamodule4.ADOQuery1.Next;
end;


Проблема в том, что заголовки полей заносятся в Excel, а данными не заполняются!!!! ПОМОГИТЕ разобраться!!! Пожалуйста!!! Что не так!!!

0

постоянно заносятся одни и теже данные. может попробуешь

1

Сейчас пробовал также ошибку выдаёт!!! но прерывание происходит на for i:=0 to Datamodule4.ADOQuery1.RecordCount-1 do Эта часть выделяется как синим цветом!!! Помогите пожалуйста разобраться!!!

Добавлено через 2 минуты
В самом Excel-е появляются Фамилия, имя и т.д, но не заполняются данными из базы ADO. Я вот думаю может из за того, что не стоит в ADOQuery Active=true!!! Как вы думаете?

Добавлено через 1 минуту
при изменении на True выходит ошибка ADOQuer1: Missing SQL property

0

а можеть выложить весь проект чтобы проверить?

1

Я обошел данную проблему так, убрал ADOQuery , а в место её поставил название таблицы ADOTABLE1 !!! заработала

0

Павел785, у джедаев, в библиотеке Jedi на закладке JvDataAccess есть компонент JvDBGridExcelExport. Как раз для твоих целей... Установи библиотеку и пользуйся на здоровье. Там еще много есть чего полезного....

1

СПАСИБО!!!

0