Disconnect(Value: IConnectedUserInfo);
Value. User connected to 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.
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.
Executing the example requires the USER102 user connected to the current repository.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
Users: IConnectedUsersInfo;
User: IConnectedUserInfo;
Begin
MB := MetabaseClass.Active;
Users := MB.GetConnectedUsers;
For Each User In Users Do
If User.UserName = "USER102" Then Users.Disconnect(User)
End If;
End For;
End Sub UserProc;
After executing the example the user, connected to the current repository under user account - USER102.
See also: