Disconnect(Value: IConnectedUserInfo);
Value - the user, connected to the repository;
The Disconnect method disconnects a user from the repository.
A message, telling that connection was disabled by the administrator, is displayed to a disconnected user. The user will not have an opportunity to save changes.
NOTE. The Oracle server should have the Select grant on the V_$SESSION view for the user, that performs viewing or disconnecting of the users that are connected to the repository.
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;
After executing the example the user, connected to the current repository under DBMS user account - USER102.
See also: