Commit geht nicht (SQL)

[Hansa]

ja, was solls:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CASE MessageDlg('speichern ?',mtInformation,
    [mbYes, mbNo], 0) OF
    mrNo     : TransAction.Rollback;
    mrYes    : TransAction.Commit;
  END;
end;