IConnectedUsersInfo.Disconnect

Синтаксис

Disconnect(Value: IConnectedUserInfo);

Параметры

Value - пользователь, подключенный к репозиторию;

Описание

Метод Disconnect отключает пользователя от репозитория.

Комментарии

Отключенному пользователю будет выдано сообщение о том, что соединение было прервано администратором. Пользователь не будет иметь возможности сохранить изменения.

Примечание. Для пользователя, осуществляющего просмотр или отключение подключенных к репозиторию пользователей, на сервере Oracle должен быть грант Select на представление V_$SESSION.

Пример

Sub Main;

Var

MB: IMetabase;

Users: IConnectedUsersInfo;

User: IConnectedUserInfo;

Begin

MB := MetabaseClass.Active;

Users := MB.GetConnectedUsers;

For Each User In Users Do

If User.UserDbName="USER102" Then Users.Disconnect(User)

End If;

End For;

End Sub Main;

После выполнения примера будет отключен пользователь, подключенный к текущему репозиторию под пользователем СУБД USER102.

См. также:

IConnectedUsersInfo