[FernanGil]

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.