[firebase-br] Como Liberar o With Lock

[Anderson Piccoli]

O with  lock é "liberado" quando se executa o commit ou rollback na base de
dados, creio que após você executar um deste comandos, o registro deve ser
liberado.

[]'s

2008/12/18 Zottis <zottissistemas em brturbo.com.br>

> Pessoal, to com uma dúvida....
>
> eu estou utilizando o With lock em alguns selects
> para cadastro
>
> mas como faço para liberar ele?
>
> o Código de chamar o With lock é esse:
> select CODIGO, DATA_CAD, COD_USUARIO, MARCA, EXCLUIDO_POR, DATA_EXCLUSAO,
> HORA_EXCLUSAO, DELETADO,
>
> (select LOGIN from Usuarios S Where MARCAS_VEIC.COD_USUARIO =
> S.Cod_usuario)AS USUARIO
>
>  from MARCAS_VEIC
>
> where deletado = 'N' and codigo = :VarCodigo with lock
>
> daí eu chamo ele assim
>
>     with dados.MarcasCad do
>        begin
>          close;
>          parambyname('VarCodigo').AsInteger  := codigo;
>          prepare;
>          open;
>        end;
>
>
> e ao fechar a janela eu faço assim
>
>     with dados.MarcasCad do
>        begin
>          close;
>          parambyname('VarCodigo').AsInteger  := 0;
>          prepare;
>          open;
>          CLOSE;
>        end;
>
>  mas mesmo assim ele não libera para a outra estação.
>
>
> Zottis(TeamFB Users)
>
> Zottis Sistemas - 2008 Ano XI
> Programação Delphi/PHP/Firebird/MySQL
>
> "Um homem só tem o direito de olhar
>  a um outro de cima para baixo, quando
>  vai ajuda-lo a levantar-se".
>                   Gabriel Garcia Marquez
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>