Проблема 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

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