TMemo Komponente, Zeilen in Firbird DB schreiben

[Eppos]

ich habe die funktion asblob nicht?!

[alex517]

Zitat von Eppos:

ich habe die funktion asblob nicht?!

Kann nicht sein, Query1.ParamByName('').AsBlob := .. gibts mindestens seit Delphi 3.
Habe gerade nachgesehen.

alex

[alex517]

Habs gerade mit D3 ein ausprobiert, geht:

Delphi-Quellcode:

Query2.SQL.Text := 'update Person set BEMERKUNGEN = :BEMERKUNGEN where ID=:ID';
Query2.ParamByName('ID').AsInteger := Query1ID.AsInteger;
Query2.ParamByName('BEMERKUNGEN').AsBlob := Memo1.Lines.Text;
Query2.ExecSQL;

BEMERKUNGEN ist ein Blobfeld.

alex

[Eppos]

Vielen Dank es hat funktioniert. Die Funktion AsBlob habe ich gefunden.

Vielen Dank an alle beteiligten die mich unterstützt haben...

Gruß,

Eppos

[Eppos]

also es funktioniert noch nicht ganz.
Folgendes Problem habe ich noch.
Wenn ich den Text speichere und es kommen mehrere leerzeichen nacheinandere vor, oder mal ein Tabulator dann bringt er diese Fehlermeldung:

Allgemeiner SQL-Fehler Cannot transliterate character between character sets.

Hat das was mit der größe des Feldew zu tun?

[mkinzler]

Nein, aber die Charset-Einstellungen des Feldes weicht von dem der Verbindung ab.

[Eppos]

Es war gar kein charset hinterlegt bei dem Feld "Data", habe nun win1252 verwendet