Ads Remote Server Info

[Tom]

[rdonnay]

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: Select all

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

adsmgt.jpg (217.35 KiB) Viewed 8227 times

[Wolfgang Ciriack]

As always: The jpg-file is not clickable, the zip-file is not existing anymore

[rdonnay]

As always: The jpg-file is not clickable, the zip-file is not existing anymore

There appears to be a problem when viewing with Microsoft Edge.
I don't know if this is a PHP problem or not.

If I view with Google Chrome, everything shows up.

Try this: adsmgt.zip

[Wolfgang Ciriack]

Hello Roger,
thanks for the link, that works.
I use Firefox not Edge.

[bobvolz]

Hi Roger;
I downloaded this zip and extracted into my sqlquery folder. I also tried it in your samples folder. I get the same error 'Internal Data Structures corrupted.'
Called from Loadconnectedusers (85)

Thanks

Bob Volz

[rdonnay]

I get the same error 'Internal Data Structures corrupted.'
Called from Loadconnectedusers (85)

I am suspicious of your version of Xbase++ or ADSDBE or ADS client DLLs.

I cannot reproduce this problem.
I have run it on several computers.

I recommend commenting out line 85 (dbCloseArea()) and see what happens.

Better yet, let's schedule a Teamviewer session.

[rdonnay]

As always: The jpg-file is not clickable, the zip-file is not existing anymore

The last time I tried to solve this problem, I didn't get anywhere.
There were no good answers on the internet.

I'll try again.

[bobvolz]

Hi I commented out the dbcloseall line 85.

Still getting an error. Below is text of error
Your system won't let me upload it? Invalid extension .log

I'm on xbase 992.
------------------------------------------------------------------------------
ERROR LOG of "C:\AutoManAds\AdsMgt.EXE" Date: 01/13/2022 10:33:22

Xbase++ version : Xbase++ (R) Version 2.00.992
Operating system : Windows 10 2009 Build 19043
------------------------------------------------------------------------------
oError:args :
-> VALTYPE: O
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: Y
oError:cargo : NIL
oError:description : Object has no member with this name
oError:filename :
oError:genCode : 26
oError:operation : Address
oError:osCode : 0
oError:severity : 2
oError:subCode : 2240
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Called from _OBJECTACCESS(5362)
Called from (B)DC_OBJECTVARBLOCK(5285)
Called from (B)DC_XBPCOLUMN:INIT(3500)
Called from XBPCOLUMN:DRAWROW(636)
Called from DC_XBPCOLUMN:DRAWROW(4173)
Called from (B)XBPBROWSE:DRAWROW(2875)
Called from XBPBROWSE:DRAWROW(2875)
Called from XBPBROWSE:FORCESTABLE(1365)
Called from DC_XBPBROWSE:FORCESTABLE(1635)
Called from XBPBROWSE:HANDLEEVENT(1951)
Called from DC_XBPBROWSE:HANDLEEVENT(1347)
Called from XBPBROWSE:SHOW(4071)
Called from DC_GETLIST:READGUI(3294)
Called from DC_READGUI(113)
Called from MAIN(61)

[rdonnay]

Ok, after a Teamviewer session with you, we determined that the stored procedure is returning a SQL cursor with about 150 records but with no fields.

The same problem occurs when trying to run the below procedure with SqlQuery.exe.

I believe that it is an Xbase++ problem because you are using a 2019 version.
I think it's related to ADSDBE.

I would like to get feedback from other Xbase++ users who have tried ADSMGT.EXE to see if it works for them.