Проблема MS Access [Delphi, Windows]
Николай © (2004-10-27 15:04:00)
Привет!
Постановка задачи: программа на Дельфи 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:00) [1]
В adoconnection
LoginPromt False
Наверх 
ЧАТ |
Орешник |
|
