Transaktionen bei DBExpress mit MySQL

[mannewolff]

Moin.

Ich habe versucht in obiger Konfiguration eine Transaktion durchzuführen, wobei ich sowohl die Connectio in einem Modul als auch die SQL's in Fachobjekten habe:

Delphi-Quellcode:

function TFrameBestellanfrage.saveBestellposition : boolean;
var
  ...
  transaction : TDBXTransAction;
begin
  ...
  transaction := DatenModul.SQLConnection.BeginTransaction();
  try
    lastbestellposition.save();
    if neu then
    begin
       Zuordnung := TAnfrageZuBestellposition.Create();
       Zuordnung.FK_ANFRAGE := lastAnfrage.id;
       Zuordnung.FK_BESTELLPOSITION := lastbestellposition.id;
       Zuordnung.save();
       Zuordnung.Free();
    end;
    DatenModul.SQLConnection.CommitFreeAndNil(transaction);
    except
      DatenModul.SQLConnection.RollbackFreeAndNil(transaction);
  end;
  setMustSave(false);
end;

Manchmal geht es gut, manchmal bekomme ich eine Exception.

Frage: Ist der Weg denn korrekt, dann kann ich weitersuchen.

-manne