Exclusive access to a Chart in Firebird Got How?

Question

Would Open a Table in Mode Exclusive in the Firebird for Delphi preventing other users from opening the Table?

I use Delphi 10.1 and Firedac for connection to the database.

Answer 1

You will need to have good transactional control to succeed with this type of treatment.

Use the with lock and a block will be made on the table data, preventing changes or deletions of the selected data!

Ex:

Blocking a record: SELECT * FROM CLIENTES WHERE CODIGO = 255 WITH LOCK this way the Client of code 255 will be blocked for changes/exclusions.

For the entire table do not use filters.

Source: Firebird.Org

Answer 2

I managed to do so:

// 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;

I hope I’ve helped.