Quando venderam o PODER do FireDAC vendo a imagem de conseguir reconectar ao banco de dados (sem perder os dados) foi um milagre...
Mas não contaram os Pós que iriamos enfrentar para quem vem do DBX...
Foi barra, mas consegue resolver assim;
Transaction1 := TFDTransaction.Create(nil);
Transaction1.Connection := TDtMdl(DtMdl).SQLCnctnBancoDados;
Transaction1.Options.AutoCommit := False;
Transaction1.Options.DisconnectAction := xdRollback;
Transaction2 := TFDTransaction.Create(nil);
Transaction2.Connection := TDtMdl(DtMdl).SQLCnctnBancoDados;
Transaction2.Options.AutoCommit := False;
Transaction2.Options.DisconnectAction := xdRollback;
SQL1 := TFDQuery.Create(nil);
SQL1.Connection := TDtMdl(DtMdl).SQLCnctnBancoDados;
SQL1.Connection.TxOptions.AutoCommit := False;
SQL1.Transaction := Transaction1;
SQL2 := TFDQuery.Create(nil);
SQL2.Connection := TDtMdl(DtMdl).SQLCnctnBancoDados;
SQL2.Connection.TxOptions.AutoCommit := False;
SQL2.Transaction := Transaction2;
try
if Transaction1.Active = False then
Transaction1.StartTransaction;
if Transaction2.Active = False then
Transaction2.StartTransaction;
Transaction1.commit;
Transaction2.commit;
except
Transaction1.rollback;
Transaction2.rollback;
end;
obs.
Todos os SQL rodados no SQL1, será tratado na transaction1
Todos os SQL rodados no SQL2, será tratado na teansaction2
Espero ter ajudado;
[]´s