For BDE the BDEAPI function DbiOpenLockList may do what you want (haven't
tried it). According to the docs it will get the lock list, including all
record locks.
======================================================================
Patrick Dunford, Christchurch, NZ - http://patrick.dunford.com/
Sow for yourselves righteousness, reap the fruit of unfailing
love, and break up your unplowed ground; for it is time to seek the
LORD, until he comes and showers righteousness on you.
-- Hosea 10:12
http://www.heartlight.org/cgi-shl/todaysverse.cgi?day=20001012
======================================================================
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Donovan J. Edye
> Sent: Friday, 13 October 2000 19:03
> To: Multiple recipients of list delphi
> Subject: [DUG]: [Q] Record Locking with ADO, BDE
>
>
> G'Day,
>
> Env: ADO - SQL7
> BDE - Paradox
>
> I have either a TADOQuery or a TQuery listing some records linked to a db
> grid. What is the most elegant way to tell if a record is locked
> __before__
> the user edits the record? A nice to have, but not essential
> would be to be
> able to colour the grid showing any records that are locked. I
> realise this
> is non-trivial given the multitude of cursor options etc. etc. but some
> pointers would be really appreciated....
>
> I would prefer not to have to do:
>
> try
> TheDataSet.Edit;
> .....
> TheDataSet.Post;
> except
> //Handle exception when posting record and it is locked
> end;
>
> ------------------------------------------------------------------------
> --Donovan [[EMAIL PROTECTED]]
> Donovan J. Edye [www.edye.wattle.id.au]
> Namadgi Systems, Delphi Developer [www.namsys.com.au]
> Voice: +61 2 6285-3460 Fax: +61 2 6285-3459
> TVisualBasic = Class(None);
> Heard just before the 'Big Bang': "...Uh Oh...."
> ------------------------------------------------------------------------
> GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer
> replacement. Also includes freeware delphi windows explorer components.
> ------------------------------------------------------------------------
>
> ------------------------------------------------------------------
> ---------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
