Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запустить Access Report из Delphi


evgenij_ ©   (2007-04-23 12:45:00) 

Помогите плиз-не могу разобраться с этим.
спс.


Сергей М.   (2007-04-23 16:24:00) [1]


> а у меня база уже открыта


С чего бы вдруг , если CreateOleObject('Access.Application') ?


evgenij_   (2007-04-23 15:50:00) [2]


> А вот с какого перепугу ты закомментарил Access.OpenCurrentDatabase

а у меня база уже открыта


Сергей М.   (2007-04-23 14:01:00) [3]

Что "ну и" ?

Строчка Access.Visible := True; у меня чудесно работает, и у тебя обязана работать.

А вот с какого перепугу ты закомментарил Access.OpenCurrentDatabase - это большой вопрос ...


evgenij_   (2007-04-23 13:50:00) [4]

ну и ?


evgenij_   (2007-04-23 13:34:00) [5]

const
acViewNormal = $00000000;
acViewDesign = $00000001;
acViewPreview = $00000002;
acQuitPrompt = $00000000;
acQuitSaveAll = $00000001;
acQuitSaveNone = $00000002;
var Access:Variant;
begin
try
 Access:=GetActiveOleObject('Access.Application');
except
 Access:=CreateOleObject('Access.Application');
end;
Access.Visible := True;

//Access.OpenCurrentDatabase('manager.mdb', true);
Access.DoCmd.OpenReport('TMP_Docs', acViewPreview, EmptyParam, EmptyParam);


Сергей М.   (2007-04-23 13:33:00) [6]

приводи полный свойкод ..


evgenij_   (2007-04-23 13:30:00) [7]

:)
нет
Access.DoCmd.OpenReport('TMP_Docs', acViewPreview, EmptyParam, EmptyParam);

В даный момент не может выполнить команду

а
Access.Visible := True;
недопустимая ссылка на свойство Visible


Сергей М.   (2007-04-23 13:26:00) [8]


> матюкается


Что, неужто вот так прямо и пишет, мол, "матюкаюсь" !?)


evgenij_   (2007-04-23 13:23:00) [9]

Эт все хорошо, но матюкается на
Access.Visible := True;
и
ess.DoCmd.OpenReport('TMP_Docs', acViewPreview, EmptyParam, EmptyParam);


Сергей М.   (2007-04-23 12:54:00) [10]

http://forum.codenet.ru/showthread.php?t=35746


evgenij_   (2007-04-23 12:50:00) [11]

ага


Сергей М.   (2007-04-23 12:49:00) [12]

А сам MSAccess-то при этом инсталлирован ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо