[borockov]

Всем привет друзья! У меня вопрос связанный с выводом БД access в excel.Пытаюсь вывести таким образом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

procedure TForm2.Button3Click(Sender: TObject); var XLapp, Sheet, Colum:Variant; index,i:Integer; begin  XLApp:= CreateOleObject('Excel.Application');  XLApp.Visible:=true;  XLApp.Workbooks.Add(-4167);  XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';  Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;    Colum.Columns[1].ColumnWidth:=18;  Colum.Columns[2].ColumnWidth:=18;  Colum.Columns[3].ColumnWidth:=18;  Colum.Columns[4].ColumnWidth:=18;  Colum.Columns[5].ColumnWidth:=18;      Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;  Colum.Rows[2].Font.Bold:=true;  Colum.Rows[1].Font.Bold:=true;  Colum.Rows[1].Font.Color:=clBlue;  Colum.Rows[1].Font.Size:=10;  Colum.Rows[2].Font.Size:=10;  Colum.Rows[3].Font.Size:=10;  Colum.Rows[4].Font.Size:=10;  Colum.Rows[5].Font.Size:=10;    Colum.Rows.Font.Name:=' MS Sans Serif';  Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];  Sheet.Cells[1,2]:='"Найденные прототипы на Фипс.ру"  '+DateToStr(Date);  Sheet.Cells[2,1]:='ID';  Sheet.Cells[2,2]:='Информация о прототипе';  Sheet.Cells[2,3]:='Дата';  Sheet.Cells[2,4]:='Идентификатор патента';  index :=3;   datasource1.DataSet.First; for i:=0 to datasource1.DataSet.RecordCount-1 do   begin    Sheet.Cells[index,1]:= datasource1.DataSet.Fields.Fields[0].AsString;    Sheet.Cells[index,2]:= datasource1.DataSet.Fields.Fields[1].AsString;    Sheet.Cells[index,3]:= datasource1.DataSet.Fields.Fields[2].AsString;    Sheet.Cells[index,4]:= datasource1.DataSet.Fields.Fields[3].AsString;    Sheet.Cells[index,5]:= datasource1.DataSet.Fields.Fields[4].AsString;    Inc(index);    datasource1.DataSet.Next; end;

Но выдается ошибка "Недостаточно памяти для завершения операций".
Думаю что проблема в том что в бд access у меня есть поле memo в котором находятся много текстовой информации, а всего записей у меня около 50. Отсюда и вытекает недостаток памяти. Но не могу понять какой именно памяти не хватает, оперативной? И как можно обойти это?
Заранее спасибо!

[Dux]

Для вывода в Excel попробуйте следующий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

var   XL, XArr: Variant;   j,i: Integer; begin     // Создаем массив элементов, полученных в результате запроса   XArr := VarArrayCreate([1, ADOQuery1.FieldCount], varVariant);   XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта   XL.WorkBooks.add;   XL.visible := true;      j := 1; // Отступаем 1 строчку   ADOQuery1.First;    while not ADOQuery1.Eof do     begin        i := 1;         while i <= ADOQuery1.FieldCount do          begin           XArr[i] := ADOQuery1.Fields[i - 1].Value;           i := i + 1;          end;        XL.Range['A' + IntToStr(j),      CHR(64 + ADOQuery1.FieldCount) + IntToStr(j)].Value := XArr;      ADOQuery1.Next;      j := j + 1;     end;     end;