UPDATE Funktion SQL mit Firebird

[Jens Hartmann]

So, habe das mit dem try/Except Block eventuell doch alleine hinbekommen.

Ist das so OK.

Delphi-Quellcode:

procedure TMailSendenForm.SpeichernButtonClick(Sender: TObject);
begin
  ConPSConfig.Connect;
  QryVorgabeUPDATE.Close;

  QryVorgabeUPDATE.ParamByName('VORTEXT').AsString := MemoVortext.Text;
  QryVorgabeUPDATE.ParamByName('ANHANG').AsString := FileEdit.Text;
  QryVorgabeUPDATE.ParamByName('SEMAIL').AsString := FromMailEdit.Text;
  QryVorgabeUPDATE.ParamByName('EEMAIL1').AsString := AddMailEdit.Text;
  QryVorgabeUPDATE.ParamByName('EEMAIL2').AsString := AddMailEdit2.Text;
  QryVorgabeUPDATE.ParamByName('SMTP').AsString := SMTPEdit.Text;
  QryVorgabeUPDATE.ParamByName('BENUTZER').AsString := UserEdit.Text;
  QryVorgabeUPDATE.ParamByName('PASSWORT').AsString := PasswortEdit.Text;

  QryVorgabeUPDATE.ExecSQL;

  Try
    ConPSConfig.Commit;
  Except
    ConPSConfig.Rollback;
    ShowMessage('Daten wurden nicht gespeichert');
  end;

  ShowMessage('Daten wurden gespeichert');

  Close;
end;

Gruß Jens