VPF::Экспорт данных - Форум программистов

Miha_086

Дата 21.6.2007, 08:40 (ссылка)

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

Загрузка ...

Новичок

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

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

Подскажите какие методы импорта данных есть из БД Access в MS Exel или в html? Может листингом кто поможет?

aktuba

Дата 21.6.2007, 09:29 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Ты наверное имел в виду экспорта... Вряд ли есть что-то готовое...

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

Данкинг

Дата 21.6.2007, 10:18 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Проход циклом по таблице и запись значений в ячейки Excel.

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

There's nothing left but silent epitaphs.

Savek

Дата 21.6.2007, 12:44 (ссылка)

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

Загрузка ...

Опытный

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

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

Для Экселя все просто (в примитиве), Jet может использовать внешние драйверы:

Код



AdoConnection.Execute('select * into PageName in "FileName.xls" "Excel 8.0;" from AccesTableName');

здесь Excel 8.0 указание внешнего драйвера, их множество, возможно есть и для HTML
Данные просто помещаются в файл эксель, конечно если не нужно какое-то оформление

SPrograMMer

Дата 21.6.2007, 17:22 (ссылка)

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

Загрузка ...

Спамер :)

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

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

А еще есть компонентики для сего дела, например, EMS_Excel_Report_v13 smile

Это сообщение отредактировал(а) SPrograMMer - 21.6.2007, 17:23

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

животное = зверь
законченный гентушник

FlaGmaN

Дата 5.7.2007, 14:15 (ссылка)

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

Загрузка ...

Новичок

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

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

загружаю дазу в грид, и выделенную запись уже экспортирую в
EXCEL:

Код


procedure TForml.Button4Click(Sender: TObject);
var
XL,Sheet: Variant;
i: integer;
begin

XL:= CreateOleObject('Excel.Application');
XL.WorkBooks.Add;
Sheet:= XL.ActiveWorkBook.Sheets[1];
Sheet.PageSetup.Orientation:= 2; //===Eie?iay i?eaioaoey===
Sheet.Name:= 'Ëèñò 1';

Sheet.Columns[1].ColumnWidth:= 15;
Sheet.Columns[2].ColumnWidth:= 45;
Sheet.Columns[3].ColumnWidth:= 25;
Sheet.Columns[4].ColumnWidth:= 6.27;
Sheet.Columns[5].ColumnWidth:= 6.27
;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].HorizontalAlignment:= 3;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].VerticalAlignment:= 2;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].WrapText:= true;
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Font.FontStyle:= 'Ïîëóæèðíûé';
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]].Merge(false);
Sheet.Range[Sheet.Cells[2,1],Sheet.Cells[2,2]]:= 'Ðåçóëüòàòû';
Sheet.Cells[3,1]:= 'Ôàìèëèÿ';
Sheet.Cells[3,2]:= 'Èìÿ';
Sheet.Cells[3,3]:= 'Îò÷åñòâî';
Sheet.Cells[3,4]:= 'Ãîä ðîæäåíèÿ';
Sheet.Cells[3,5]:= 'Óëèöà';
Sheet.Cells[3,6]:= 'äîì';
Sheet.Cells[3,7]:= 'Êîðïóñ';
Sheet.Cells[3,5]:= 'Êâàðòèðà';

i:= 4;
//ADOQuery1.First;

      begin
      Sheet.Cells[i,1]:= ADOQuery1.Fields[0].Asstring;
      Sheet.Cells[i,2]:= ADOQuery1.Fields[1].AsString;
      Sheet.Cells[i,3]:= ADOQuery1.Fields[2].AsString;
      Sheet.Cells[i,4]:= ADOQuery1.Fields[3].AsString;
      Sheet.Cells[i,5]:= ADOQuery1.Fields[4].AsString;
      Sheet.Cells[i,5]:= ADOQuery1.Fields[5].AsString;
      Sheet.Cells[i,5]:= ADOQuery1.Fields[6].AsString;
      Sheet.Cells[i,5]:= ADOQuery1.Fields[7].AsString;
      inc(i);
      ADOQuery1.Next;
      end;
XL.Visible:= true;
Sheet:= UnAssigned;
XL:= UnAssigned;
 end;

в Word:

Код


  Word:= CreateoleObject('Word.Application');
  word.documents.add;
  word.activedocument.range.insertafter('Ôàìèëèÿ :   ' +dbgrid1.Fields[0].AsString + chr(10));
  word.activedocument.range.insertafter('Èìÿ:           ' +dbgrid1.Fields[1].AsString + chr(10));
  word.activedocument.range.insertafter('Îò÷åñòâî:         ' +dbgrid1.Fields[2].AsString + chr(10));
  word.activedocument.range.insertafter('Ãîä ðîæäåíèÿ:           ' +dbgrid1.Fields[3].AsString + chr(10));
  word.activedocument.range.insertafter('Óëèöà:            ' +dbgrid1.Fields[4].AsString + chr(10));
  word.activedocument.range.insertafter('Äîì:            ' +dbgrid1.Fields[5].AsString + chr(10));
  word.activedocument.range.insertafter('Êîðïóñ:            ' +dbgrid1.Fields[6].AsString + chr(10));
  word.activedocument.range.insertafter('Êâàðòèðà:            ' +dbgrid1.Fields[6].AsString + chr(10));
  Word.Visible := True;


end;

ну и естественно не забыть про [code=delphi]
uses ComObj

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