UPDATE Funktion SQL mit Firebird

[Jens Hartmann]

Du hast recht,

ich habe es schon bemerkt, ich nutze sie auch für´s SELECT. Manchmal dauert es eindfach etwas länger. Muss ich für die UPDATE Funktionen auch verschiedene nutzen?


Gruß Jens

[mkinzler]

Sobald du der Eigenschaft .SQL etwas zuweist, werden die Parameter usw. gelöscht

[Jens Hartmann]

Ja, das habe ich ja dann jetzt hinbekommen. Also entweder immer zuweisen, oder besser wenn Zuweisung Notwendig, eigene Query.

Jetzt habe ich noch drei Fragen dazu,

1. Wie kann ich ein MEMO in diese Datenbank einfügen. Auch als VARCHAR oder gibt es da was anders.
2. Muss man auch in gewissen Situationen verschieden CONNECTION Kompo´s nehmen.

Außerdem...

Zitat von DeddyH:

Ich würde noch einen try-except-Block drumherumsetzen, so dass bei einer Exception automatisch ein Rollback erfolgt. Ansonsten ist das IMHO ok so.

wie geht so was richtig ?

Gruß Jens

[mkinzler]

Zitat:

1. Wie kann ich ein MEMO in diese Datenbank einfügen. Auch als VARCHAR oder gibt es da was anders.

(Text-)BLOB

[Jens Hartmann]

Das ist genau das was ich in irgendeiner Anleitung gelesen habe. Leider kann ich diesen VariablenTyp in IBExpert nicht finden.
Da gibt es nur CHAR oder VARCHAR

[mkinzler]

Also bei mit gibt es den Typ

[Jens Hartmann]

Also bei mir auch, aber nur wenn ich ein neues Feld anlege. Da ich es vorher als VARCHAR hatte, geht das nachträglich nicht mehr. Seltsam, weil ich kann ja auch auf integer umstellen. Muss mit der Größe zu tun haben.

[mkinzler]

Das kann sein, denn Blobs sind keine normalen Felder. Leg mal ein neues Feld an

[Jens Hartmann]

Ja, sag ich ja.

Ich habe jetzt einfach eine neue Domäne angelegt, und damit geht es auch.

[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