Advantage Database Forum

Question

Using ADS 11.1x with data dictionaries and Delphi. If a record is locked is there a way to find which computer (User) have a lock on a record. Thanks.

I tried the following but get an access violation.

var
myTable: String;
ulRetVal: Cardinal;
usLockType, usStructSize: pWord;
stUserInfo : pADS_MGMT_USER_INFO;
begin
     usStructSize := pWord(SizeOf(ADS_MGMT_USER_INFO));
     myTable := DataM1.CSIDatabase.GetConnectionPath + '\' + CusTbl.TableName +'.adt' );

     ulRetVal := AdsMgGetLockOwner(DataM1.CSIDatabase.ConnectionHandle, PAnsiChar(myTable),       RecordNum,@stUserInfo, @usStructSize, @usLockType);

if ulRetVal = AE_SUCCESS then
  ShowMessage(Format(CusTbl.FieldByName('Name').AsString + ' is Locked by user [%s]', [stUserInfo.aucUserName]));

Accepted Answer

1

you can either use the ACE API function http://devzone.advantagedatabase.com/dz/webhelp/Advantage11.1/index.html?ace_adsmggetlockowner.htm or SQL http://devzone.advantagedatabase.com/dz/webhelp/Advantage11.1/index.html?master_sp_mggetlockowner.htm. Both require the physical record number.

link

answered 10 Apr '15, 03:57

Joachim Duerr
8.7k●10●31●133
accept rate: 18%

Thanks,the SQL link is not valid, but I'm fine with the API link.

(10 Apr '15, 12:33) KimHJ

I tried but I get an access violation and the ulRetVal is 9083 I have edit my queastion

(10 Apr '15, 14:42) KimHJ

ages ago I've written a TAdsTable descendant which you can still find in the archives of ADS: http://devzone.advantagedatabase.com/dz/content.aspx?Key=17&SearchKeyWords=tadstableex&tab=-1. Take it as a base (iirc this one was not unicode aware).

(11 Apr '15, 06:53) Joachim Duerr

Link didn't work. I found the SQL version in the old news forum that works fine.

(13 Apr '15, 18:58) KimHJ

Advantage Database Forum

How to find out which user has a record lock?

Follow this question

Announcements

Related questions