Delphi+Access+Excel

[Ира08]

Здравствуйте!
Помогите пожалуйста.

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

знаю, что надо написать запрос в ADOQuery, но не получается. как его лучше оформить, а потом занести эту информацию в базу?

помогите пожалуйста)))

[Ира08]

есть вот что:

var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData : Variant;
   StartCol, StartRow, j : integer;
   RowCount, ColCount : Integer;
   n:OleVariant;
begin
   StartCol := 1;
   StartRow := 1;

 // Ðàçìåðû âûâîäèìîãî ìàññèâà äàííûõ
   RowCount := AQ_sel_in.RecordCount;
   ColCount := AQ_sel_in.FieldDefs.Count;

 // Ñîçäàíèå Excel
   ExcelApp := CreateOleObject( 'Excel.Application' );

 // Îòêëþ÷àåì ðåàêöèþ Excel íà ñîáûòèÿ, ÷òîáû óñêîðèòü âûâîä èíôîðìàöèè
   ExcelApp.Application.EnableEvents := false;

    n := true;
 //  Ñîçäàåì êíèãó (Workbook)
   Workbook := ExcelApp.WorkBooks.Add( n );
   ArrayData := VarArrayCreate( [ 0, RowCount, 1, ColCount ], varVariant );

     for j := 1 To AQ_sel_in.FieldDefs.Count do
       begin
        ArrayData[ 0, j ] := AQ_sel_in.FieldDefs.Items[ j - 1 ].DisplayName;
       end;

 // Çàïîëíÿåì ìàññèâ
   AQ_sel_in.DisableControls;
   AQ_sel_in.First;
   while not AQ_sel_in.Eof do
     begin
       for j := 1 To AQ_sel_in.FieldDefs.Count Do begin
         ArrayData[ AQ_sel_in.RecNo, j ] := AQ_sel_in.FieldbyName( AQ_sel_in.FieldDefs.Items[ j - 1 ].DisplayName ).value;
       end;
       AQ_sel_in.Next;
   end;

AQ_sel_in.EnableControls;

//  Ëåâàÿ âåðõíÿÿ ÿ÷åéêà îáëàñòè, â êîòîðóþ áóäåì âûâîäèòü äàííûå
  Cell1 := WorkBook.WorkSheets[ 1 ].Cells[ StartRow, StartCol ];
 // Ïðàâàÿ íèæíÿÿ ÿ÷åéêà îáëàñòè, â êîòîðóþ áóäåì âûâîäèòü äàííûå
   Cell2 := WorkBook.WorkSheets[ 1 ].Cells[ StartRow + RowCount, StartCol + ColCount - 1 ];

 // Îáëàñòü, â êîòîðóþ áóäåì âûâîäèòü äàííûå
   Range := WorkBook.WorkSheets[ 1 ].Range[ Cell1, Cell2 ];

 //  Âûâîä äàííûõ
   ExcelApp.Application.Cells[ 1, 1 ] := form1.Caption;
   Range.Value := ArrayData;
   ExcelApp.Visible := True;
  end;

запрос такой: select * from table
where
name=:name
and
date=ate



выводится только последняя строчка. а как мне вывести только имена? и чтобы все строчки

[Serge_Bliznykov]

достаточно просто изменить запрос на

select * from table

и всё, выведутся все строчки из таблицы

а чтобы были ТОЛЬКО имена, тогда замените код на такой:

   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;
......
далее по тексту...

[Ира08]

не совсем работает что-то...выдаёт вот такую ошибку:
"Cannot perform this operation on a closed dataset'. Process stopped. Use Step or Run to continue."

[Serge_Bliznykov]

ну, дык датасет же открыть надо!!!
надо сделать:

AQ_sel_in.Open;

или ищите, по какому событию датасет открывается, или банально открывайте его в начале процедуры...

[Ира08]

спасибо большое. действительно заработало)))

[Ира08]

ещё вопрос появился...
а если я хочу выдать имена в диапазоне определённых дат.
в запросе пишу:
select * from table
where
date between 1 and 2

при нажатии на кнопку:
var d1,d2:TDateTime;

//перед определением Excel
d1 := datetimepicker1.Date;
d2 := datetimepicker2.Date;

а потом весь остальной код.

но что-то ничего не выводится...сразу присваивается d1=0, d2=0.


когда я заношу в базу, но пишу вот это:

 AQ_ins_out.Parameters.ParamByName('date').Value :=  strtodate(SR.Name[1] + SR.Name[2] + '.' + SR.Name[4] + SR.Name[5] + '.' + SR.Name[7] + SR.Name[8]);

как вот мне теперь связать эту информацию из базы с выбранным диапазоном дат в datetimepicker1 и datetimepicker2 ? Подскажите пожалуйста)))

[Ира08]

спасибо, уже не надо. разобралась сама)))