VPF::Как из ADOQuery'ков перенести информацию в Excel?

Grol

Дата 22.5.2005, 02:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 5.5.2005
Где: Россия

Репутация: нет
Всего: нет

Уважаемые Мастера Delphi! Help !!! Вопрос такой. Как из ADOQuery'ков перенести информацию в Excel? Если можно два варианта, т.е. 1) будет создан файл Excel, а потом туда будет перенесена информация и 2) информация будет перенесена во временные переменные, а после чего откроется Excel с уже перенесенной туда информацией из временных переменных. Подскажите пожалуйста. Буду очень благодарен всем, кто откликнется!!!

--------------------

Живи так, как будто тебе предстоит умереть завтра...Учись так, как будто тебе предстоит жить вечно.........

<Spawn>

Дата 22.5.2005, 10:12 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 2
Всего: 64

Зачем создавать временные переменные? Имхо, излишние затраты ресурсов.

Перенести довольно просто:
1) Устанавливаешь связь с Excel (при помощи позднего или раннего связывания)
2) Выполняешь запрос
3) В цикле переносишь полученый набор данных в таблицу Excel
4) Закрываешь связь с Excel

Т.е. примерно так(Исп. позднее связывание. Пишу без Delphi, так что проверь на ошибки smile

Код


uses ..., ComObj, ActiveX;


procedure TForm1.Button1Click(Sender: TObject);
var
  Excel, Workbook, Worksheet: OleVariant;
  CurrentRowIndex, CurrentColIndex: integer;
begin
  CurrentRowIndex := 1;
  Excel := CreateOleObject('Excel.Application');
  try
    Workbook := Excel.Workbooks.Add;
    Worksheet := Workbook.Worksheets.Add;
    with ADOQuery do
    try
      Open;
      while not Eof do
      begin
        for CurrentColIndex := 0 to FieldsCount - 1 do
          Worksheet.Cells(CurrentRowIndex, CurrentColIndex + 1) := Fields[CurrentColIndex].AsString;
        Next;
        Inc(CurrentRowIndex);
      end;
    finally
      Close;
    end;
  finally
    Excel.Visible := True;
    Excel := Unassigned;
  end;
end;

Это сообщение отредактировал(а) <Spawn> - 22.5.2005, 10:13

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Vit

Дата 23.5.2005, 07:30 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Или подключаешься к Excel как к таблице и переносишь тоже в цикле... Может и можно напрямую запросом, но это зависит от того поддерживает ли другая база данных прямое подключение Excel...

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

AZDesign

Дата 26.5.2005, 22:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть такой компонент ExcelReadWriteII фирмы axolot (axolot.com)
он позволяет работать с Excel-евским файлом напрямую без использования OLE и тому подобных инструментом

Vit

Дата 27.5.2005, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Цитата(AZDesign @ 26.5.2005, 13:58)

Есть такой компонент ExcelReadWriteII фирмы axolot (axolot.com)

А как? Формат-то excel проприетарный... т.е. если идти в обход стандартных средств доступа (OLE, ADO, ODBC) то никто не гарантирует работоспособность в следующих версиях, а если он использует тот же ODBC тогда зачем нужен этот компонент?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »