SP wird nicht an DB übergeben

[Albi]

Hallo,

ich bin hier kurz vorm verzweifeln. Wie oben schon geschrieben, greife ich über die FIBPlus auf die FB zu. Ich verwende desweiteren noch eine Transaction und eine SP. So nun habe ich das Problem das die Daten nicht in der DB gespeichert werden, sie gehen einfach verloren. Eine EV oder sonstiges Fehlermeldungen treten nicht auf. Die Daten landen einfach nicht der DB.

Die Procedure zum speichern sieht so aus:

Code:

TransCommit(DMUserSetup.T_User_Get);
  TransStart(DMUserSetup.T_User_Set);
  Try
    with DMUserSetup.SP_User_Set do
    begin
      ParamByName('iUser_Name').Value:= Txt_UserName.Text;
      ParamByName('iFirst_Name').Value:= Txt_First_Name.Text;
      ParamByName('iLast_Name').Value:= Txt_Last_Name.Text;
      ParamByName('iKuerzel').Value:= Txt_Kuerzel.Text;
      ParamByName('iStatus_a').Value:= 1;
      ParamByName('iStatus').Value:= 1;
      ExecProc;
      TransCommit(DMUserSetup.T_User_Set);

      if ParamByName('oUser_Count').AsInteger = 0 then
        MessageDlg(Msg_Save_New_OK, mtInformation, [mbOK], 0)
      else
        MessageDlg(Msg_Save_Edit_OK, mtInformation, [mbOK], 0);
      Get_User;
    end;
  except
    on E:Exception Do
    Begin
      MessageDlg(Msg_Save_Error+#13+E.Message, mtError, [mbOK], 0);
      TransRollBack(DMUserSetup.T_User_Set);
    end;
  end;

Die Proceduren zum Starten und Commiten sehen so aus:

Code:

If Not Trans.InTransaction Then
   Trans.StartTransaction;

Code:

if Trans.InTransaction then
    Trans.Commit;

Hat jemand von euch eine Idee, woran das liegen kann. Also an der Verbindung zur DB schon mal nicht, da Select's usw funktionieren. Auch wenn ich das Statement via Query an die DB schicke werden die gespeichert nur eben über die SP nicht. (In anderen Projekten geht das doch auch, wieso hier nicht? )

//Edit: Die SP liefert mir auch einen Rückgabeparameter und selbst dieser wird korrekt übergeben.