Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > отчеты в Access = странности...

Автор: delphi_ 25.11.2009, 17:09

есть база в 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

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

Автор: Данкинг 26.11.2009, 00:15

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

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