1

Teria Como Abrir uma Tabela em modo Exclusivo no Firebird pelo Delphi impedindo que outros usuários abrissem a Tabela?

Eu utilizo Delphi 10.1 e FireDac para conexão com a base de dados.

2 Respostas 2

3

Você precisara ter um bom controle transacional para ter sucesso com este tipo de tratamento.

Use o with lock e será efetuado um bloqueio nos dados da tabela, prevenindo alterações ou exclusões dos dados selecionados!

Ex:

Bloqueio de um registro: SELECT * FROM CLIENTES WHERE CODIGO = 255 WITH LOCK dessa forma o Cliente do código 255 estará bloqueado para alterações/exclusões.

Para a tabela inteira não use filtros.

Fonte: Firebird.Org

5
  • beleza entende... Mais como seria eu um TFDtable? tipo tbUsuarios.open só que em modo Exclusivo boqueado toda a tabela...
    – user82731
    Commented 8/11/2017 às 17:17
  • 2
    Este open executara uma consulta SQL certo? Se for o caso.... adicione o with lock Commented 9/11/2017 às 10:04
  • Não. Isso é uma Componente TFDTable do FireDac
    – user82731
    Commented 9/11/2017 às 11:30
  • 2
    o TFDTable possui a opção Exclusive que é uma booleana, e possui ainda opção equivalente na propriedade UpdateOption. Commented 9/11/2017 às 13:22
  • 1
    eu Nunca fiz isso sou novato em Delphi ... teria como testar se o registro está mesmo bloqueado?
    – user82731
    Commented 10/11/2017 às 21:02
0

Eu Consegui fazer assim:

// Eu desativei o "AutoCommit" pois sem desativar não Funciona.
DM.TFDConnection.TxOptions.AutoCommit := False;
DM.TFDQuery.Close;
DM.TFDQuery.SQL.Clear;
// Trava a Linha da tabela com essa SQL
vSql := 'SELECT * FROM TABELA '+
        'WHERE FIELD1 = FIELD1 WITH LOCK';
DM.TFDQuery.SQL.Add(vSql);
DM.TFDQuery.Open;
{ Aqui você faz o que tem que fazer antes de Desbloquear}
  Depois destarva Com "COMMIT" ou "ROLLBACK"
DM.TFDConnection.TxOptions.AutoCommit := True;

Espero ter ajudado.

2
  • 1
    Não testei se DM.TFDConnection.TxOptions.AutoCommit := True; destrava a tabela.
    – user64046
    Commented 28/11/2017 às 17:25
  • 1
    Vou tentar aqui para ver como vai ficar.
    – user82731
    Commented 28/11/2017 às 17:31

Você deve fazer log-in para responder a esta pergunta.