Rollback on exception
lazarus / 16-Databases

----------------------------------------------------------------------
fpcoder · 2014-03-12 22:37

Is there any sense to have Rollback in the codeblock below? (TX is the
Transaction of Conn).

Code: [Select]  try
    Conn.ExecuteDirect('CREATE TABLE countries (' +
                        ' country_id INTEGER PRIMARY KEY AUTOINCREMENT
NOT NULL, ' +
                        ' country_name VARCHAR(30) ' +
                        ')');
    Conn.Transaction.Commit;
  except
    on E:Exception do
    begin
      TX.Rollback;
      ShowMessage( E.Message );
    end;
  end;

----------------------------------------------------------------------
taazz · 2014-03-12 22:40

done the same think countless times I think it makes sense especially
if the transaction holds more than one update command.