Saber Registro Bloqueado Con Ado
 

Hola amigos, tengo el siguiente problema :
Estoy realizando una pequeña aplicacion que ha de funcionar en una pequeña red de 4 equipos, utilizo Delphi 6, Access, y Ado para conectar la BD. Me gustaria saber como puedo averiguar si un registro esta bloqueado para mostrar un mensaje al usuario diciendole que esta siendo modificado por otro usuario.
En trucos vi esto :


Procedure AveriguarRegistroBloqueado
var Bloqueado : LongBool;
begin
with Tabla do
begin
UpdateCursorPos;
DbiIsRecordLocked(Handle,Bloqueado);
If Bloqueado then
ShowMessage('Este registro esta bloqueado');
else
ShowMessage('Continuar sin problemas');
end;
end;

pero no es valido para ADO. Lo que yo quiero saber es cuando un registro esta bloqueado, es decir algo similar a este codigo pero que sea valido en ADO, ya que esto es valido para BDE.

Desde ya muchas gracias.

No lo he probado nunca, pro quizá sea suficiente poniendo en el tadodataset su propiedad LockType := ltPessimistic y capturar la excepción de cuando intentas ponerlo en estado edit.
Algo parecido hacia con paradox, y ciando intentaba hacer el post en la tupla que se encontraba en edicion por otro usuario saltaba la excpción y si era por estar en estado de edición la capturaba y avisaba del uso del mismo por otro usuario.
te dtodos modos en trucomania existe un truco para bloquear explicitamente un registro.
Suerte y espero haberte ayudado.
;)