Como bloquear un registro!!!

[CarlosHernandez]

Empezado por Rufus

Si es un bloqueo de escritura lanza un update falso sobre el registro, es decir actualizas un campo a su mismo valor, así ya queda marcado como modificado y, con los debidos parámetros de las transacciones, no es modificable por otros registros hasta que cierres su transacción.

si es un bloqueo de escritura. y como podria hacer lo que me dices por favor me puedes dar un ejemplo....

sera realizando un campo de bloqueado y que lo lea antes de mostrar algo y se este modificando cada vez que se llame.... o algo asi .... no se lo estoy inventado...

ah por cierto nunca he trabajado con parametros en las transaccioness....
ejem por favorrrrrr......
gracias.

[kalimero]

Hola
Yo trabajo con los componentes de acceso a Firebird FibPlus y el ploqueo de registro se hace:

<delphi>
if MiDataset.LockRecord(false) = lsSuccess then
begin
RegistroBloqueado:=true;
end;
</delphi>
Saludos

[CarlosHernandez]

Empezado por kalimero

<delphi>
if MiDataset.LockRecord(false) = lsSuccess then
begin
RegistroBloqueado:=true;
end;
</delphi>
Saludos

Kalimero ya lo intente pero no lo reconoce me falta declarar algo en el unit???? y RegistroBloqueado???

agradecido............

[Rufus]

Ejemplo general (luego tu lo adaptas):

-- Tengo un IBQUERY donde lanzo la consulta (SELECT * FROM TABLA WHERE...)
-- Pongo un IBSQL por ahí, para tareas auxiliares, que lo voy a usar para el update ficticio.
-- Cuando sucede el evento donde quieres que a partir de ahí se bloquee el registro, pones el codigo siguiente. Por ejemplo si tengo un BDGRID y al hacer doble click en una fila se abre la "ficha" del cliente para verlo. Puedo poner el codigo en el doble click de la fila o en el formshow del formulario que se abre, por ejemplo.
--Pongo el codigo:

IBSql1.SQL.Text := "UPDATE TABLA SET CAMPO1 = CAMPO1 WHERE ID=" + IBQuery1.FieldByName('ID').ASINTEGER;
 IBSql1.ExecQuery;

--Cuando el usuario termine de "ver" el registro, habrá que hacer un commit de la transacción para liberar el registro.

[CarlosHernandez]

Gracias rufu por la respuesta, pero otra cosita mas, como hago para identificar que el registro esta siendo utilizado por alguien mas y que le indique al segundo usuario(el que abre de segundo el mismo registro), y no hay manera de cambiar el mensaje de "dead lock no wait" no se uno hecho por mi que diga usuario no puede ser modificado o algo parecido.... osea identificar si la transaccion del otro equipo esta activa....