Скачать: CL | DM;

Проблема MS Access   Найти похожие ветки 

← →
Николай   (2004-10-27 15:04) [0]

Привет!
Постановка задачи: программа на Дельфи 7, работает с БД Microsoft Access с использованием технологии  ADO, все работает нормально. Однако, программа пока не имеет встроенного средства просмотра и печати выходных форм (с табличными данными). Поэтому временно используется просмотр отчетов, созданных в том же Microsoft Access (прямо в той же базе). Соответствующие отчеты выдергиваются из программы на Delphi через OLE кодом, приведенным ниже. Все работает отлично, вот только одна загвоздка – на БД стоит пароль (чтобы отдельно от программы БД не вскрыли), при работе пользователя из дельфи с этими данными через ADOConnection, Table, Query этот пароль подсовывается программой автоматически в момент соединения, у пользователя причем ничего не спрашивается. Таким образом, пользователю необязательно знать пароль, а списавший БД отдельно от программы ее не просмотрит. Вот только когда я нижеприведенным кодом пытаюсь дергать отчеты из Access посредством OLE (код ниже), то БД, естественно, автоматически запрашивает пароль. Хочу узнать, как его подсунуть автоматом из программы?

try
 Access := GetActiveOleObject("Access.Application");        //акксесс уже открыт?
except
 Access := CreateOleObject("Access.Application"); //открыть акксесс
end;
Access.Visible := True; //показать access
Access.OpenCurrentDatabase(DirDate+"\database.mdb", False); открываем БД
Access.DoCmd.OpenReport(Report, acViewPreview, EmptyParam, EmptyParam); //открываем какой-либо Отчет

С уважением, Николай

---

← →
blackman ©   (2004-10-27 15:25) [1]

В adoconnection
LoginPromt False

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c