VPF::отчеты в Access = странности... - Форум программистов

delphi_

Дата 25.11.2009, 17:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

есть база в ACCESS 2003 и в ней отчет.отчет надо открыть.в инете нашел примеры..даже пример-везде одинаковый...но...ничего не происходит smile

если поставить в параметр открытия отчета acViewNormal и убрать все что связано с quit-то отчет просто отправляется на принтер по умолчанию.почему?

Код



uses
....
procedure TForm1.Button1Click(Sender: TObject);
const
    acViewNormal = $00000000;
    acViewDesign = $00000001;
    acViewPreview = $00000002;
    acQuitPrompt = $00000000;
    acQuitSaveAll = $00000001;
    acQuitSaveNone = $00000002;

var

    Access: Variant;

begin


    Access := CreateOleObject('Access.Application');
 
    Access.OpenCurrentDatabase('C:\db1.mdb', True);

    Access.DoCmd.OpenReport('R1', acViewPreview, EmptyParam, EmptyParam);

  Access.CloseCurrentDatabase;

  Access.Quit(acQuitSaveAll);

end;
end

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

Это сообщение отредактировал(а) delphi_ - 25.11.2009, 19:54

Данкинг

Дата 26.11.2009, 00:15 (ссылка)

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

Загрузка ...

Yersinia pestis

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

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

Может, "Access.Quit(acQuitSaveAll);" надо убрать?

Добавлено через 2 минуты и 2 секунды
А, извиняюсь, не увидел сначала про Quit. Тогда советую поискать варианты открытия отчёта через ADO. Наверняка должны быть.

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

There's nothing left but silent epitaphs.

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