That was a good suggestion.
Here is a utility named AdsMgt.Exe.
Copy the attached files to your \exp20\samples\adssql folder.
AdsMgt.Ini contains the connection info to your ADS server.
There are 3 Browse screens:
1. Users: Contains a list of all open connections to the server.
2. User Tables: A One-2-Many browse of Tables opened by the selected user.
3. user Locks: A One-2-Many browse of Record Locks on the selected table.
The Kill User button will disconnect the selected user. It will prompt first.
NOTE: This very simple management tool is possible due to the sp_mg* stored procedures in ADS that are called by the eXpress++ SQL command.
Code: Alles auswählen
STATIC FUNCTION LoadConnectedUsers( oBrowse, aObjects )
LOCAL cSql, cAlias := 'USERS'
ASize(aObjects,0)
TEXT INTO cSql WRAP
SELECT * FROM
(
EXECUTE PROCEDURE sp_mgGetConnectedUsers()
) anyalias
ENDTEXT
SQL cSql INTO OBJECTS aObjects INTO CURSOR cAlias VIA (Ads_SessionDict())
IF Valtype(oBrowse) == 'O'
oBrowse:refreshAll()
ENDIF
dbCloseArea()
RETURN nil