UPDATE Funktion SQL mit Firebird

[DeddyH]

Ich würde das eher so machen:

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;  

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

  Close;
end;