Ads Remote Server Info

This forum is for eXpress++ general support.
Message
Author
User avatar
Tom
Posts: 1165
Joined: Thu Jan 28, 2010 12:59 am
Location: Berlin, Germany

Re: Ads Remote Server Info

#11 Post by Tom »

:D
Best regards,
Tom

"Did I offend you?"
"No."
"Okay, give me a second chance."

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Ads Remote Server Info

#12 Post by 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
adsmgt.jpg (217.35 KiB) Viewed 4242 times
Attachments
adsmgt.zip
(18.15 KiB) Downloaded 218 times
The eXpress train is coming - and it has more cars.

Wolfgang Ciriack
Posts: 478
Joined: Wed Jan 27, 2010 10:25 pm
Location: Berlin Germany

Re: Ads Remote Server Info

#13 Post by Wolfgang Ciriack »

As always: The jpg-file is not clickable, the zip-file is not existing anymore :oops:
_______________________
Best Regards
Wolfgang

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Ads Remote Server Info

#14 Post by rdonnay »

As always: The jpg-file is not clickable, the zip-file is not existing anymore :oops:
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
The eXpress train is coming - and it has more cars.

Wolfgang Ciriack
Posts: 478
Joined: Wed Jan 27, 2010 10:25 pm
Location: Berlin Germany

Re: Ads Remote Server Info

#15 Post by Wolfgang Ciriack »

Hello Roger,
thanks for the link, that works.
I use Firefox not Edge.
_______________________
Best Regards
Wolfgang

bobvolz
Posts: 114
Joined: Sun Jan 31, 2010 11:25 am

Re: Ads Remote Server Info

#16 Post by 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

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Ads Remote Server Info

#17 Post by 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.
The eXpress train is coming - and it has more cars.

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Ads Remote Server Info

#18 Post by rdonnay »

As always: The jpg-file is not clickable, the zip-file is not existing anymore :oops:
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.
The eXpress train is coming - and it has more cars.

bobvolz
Posts: 114
Joined: Sun Jan 31, 2010 11:25 am

Re: Ads Remote Server Info

#19 Post by 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)

User avatar
rdonnay
Site Admin
Posts: 4722
Joined: Wed Jan 27, 2010 6:58 pm
Location: Boise, Idaho USA
Contact:

Re: Ads Remote Server Info

#20 Post by 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.
The eXpress train is coming - and it has more cars.

Post Reply