Zur Zeit wird keine Benutzertransaktion durchgeführt

[Sascha-L]

Guten Tag,

In einem unserer alten Delphi 4 Projekte bekommen wir manchmal folgende Fehlermeldung:
Zur Zeit wird keine Benutzertransaktion durchgeführt.

Wieso kommt diese Fehlermeldung, obwohl vor dem Commit oder Rollback auf jeden Fall eine Transaktion gestartet wurde?

Hier der Codeausschnitt:

Delphi-Quellcode:

Function TOptiThread.AddNewInputdatenNewLog(Ex_DrehWinkel: Integer;
                                             Var Ex_LaufIdx: Integer): Boolean;
Begin
  Result := False;
  Ex_LaufIdx := 0;
  If Not Assigned(Cl_StoredProc33) Then Exit;
  If DB.InTransaction = False Then DB.StartTransaction;
  Try
    With Cl_StoredProc33 Do
    Begin
      Cl_DatHelp.R_Data1 := Cl_OneOptidaten.Teleg3ALaufIdx;
      Cl_DatHelp.R_Data2 := Cl_OneOptidaten.IstLaufIdx;
      Cl_DatHelp.R_Data3 := Ex_DrehWinkel;
      Params[0].Value := Cl_OneOptidaten.Teleg3ALaufIdx;
      Params[1].Value := Cl_OneOptidaten.IstLaufIdx;
      Params[2].Value := Ex_DrehWinkel;
      ExecProc;
      DB.Commit;
      Ex_LaufIdx := Params[3].Value;
      Result := True;
    End;
  Except
    BDEFehlerAuswertung(0,'AddNewInputdatenNewLog',Exception(ExceptObject),True);
    DB.RollBack;
  End;
End;