Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Активизация application role. / 3 сообщений из 3, страница 1 из 1
17.03.2004, 15:09
    #32445579
dinM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активизация application role.
How to Use Application Roles with Access Projects and SQL Server 2000 Desktop Edition
Если следовать рекомендации Microsoft, то для активизации approle нужно проделать следующее:

On Error GoTo EH
'This avoids a message that no records were returned.
DoCmd.SetWarnings False
Dim TSQL
TSQL = "EXEC sp_setapprole 'AppRoleName', {Encrypt N 'Password'}, 'odbc'"
'This sets the app role on Connection #2.
Application.CurrentProject.Connection.Execute TSQL
'This sets the app role on Connection #3.
lst_approle.RowSource = TSQL
lst_approle.Requery
DoCmd.SetWarnings True
MsgBox "The application Role is now in effect.", vbInformation
Exit Sub
EH:
MsgBox Err.Number & ": " & Err.Description, vbCritical

Тобишь, зачем-то в форме нужно создавать контр типа Listbox и назначать RowSource = TSQL. Без этого кешируются старые права доступа пользователя до активизации пользователя.

А как активизировать approle через процедуру, выполняемую после соединения с SQLServer, а не через форму?
...
Рейтинг: 0 / 0
18.03.2004, 10:27
    #32446644
dinM
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активизация application role.
...
Рейтинг: 0 / 0
18.03.2004, 11:14
    #32446760
IgorM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Активизация application role.
Ну, там же ясно написано, роль активизируется в контексте соединения. ADP использует три соединения:

#1 - для окна БД
#2 - Application.CurrentProject.Connection
#3 - для получения данных в списки, комбики и т.д.

Доступ к 3 соединению из кода не получить, поэтому и используется промежуточный листбокс для активизации роли.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Активизация application role. / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]