IConnectedUsersInfo.Disconnect

Syntax

Disconnect(Value: IConnectedUserInfo);

Disconnect(Value: Prognoz.Platform.Interop.Metabase.IConnectedUserInfo);

Parameters

Value. User connected to repository.

Description

The Disconnect method disconnects a user from the repository.

Comments

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.

Example

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;
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Users: IConnectedUsersInfo;
    User: IConnectedUserInfo;
Begin
    MB := Params.Metabase;
    Users := MB.GetConnectedUsers();
    For Each User In Users Do
        If User.UserName = "USER102" Then Users.Disconnect(User)
        End If;
    End For;
End Sub;

After executing the example the user, connected to the current repository under user account - USER102.

See also:

IConnectedUsersInfo