TMemo Komponente, Zeilen in Firbird DB schreiben

[Eppos]

Hallo zusammen,

ich habe folgendes Problem.
Ich benutze die TMemo Komponente um ein Blob-Feld aus der Datenbank anzuzeigen. Das funktioniert auch.
Wenn ich nun meinen Update-Befehl absätze bekomme ich einen Fehler. Conversion Error from String "Blob".

Mein Update Befehl.

QuMem.Sql.Text := 'Update Tabelle1 set Mem = ("' + MeMemo.Lines.Text + '"); '; Weiss jemand wo der Fehler ist?

Vielen Dank.

Eppos

[RavenIV]

Zeig doch mal, wie Du das TMemo aus der Datenbank füllst.
Und gib und mehr Infos zur DB.

[Eppos]

Datenbank: Firbird
Version: 1.5
Verbindung: BDE
Tabelle: Tabelle1
Feld: Mem (Blob Memo)
MeMemo.Lines.Text := QuMem.FieldByName( 'Mem' ).AsString;

[alex517]

Hi Eppos,

Firebird interpretiert Angaben in doppelten Anführungsstrichen als Feld- bzw. Tabellen-Namen.
Den Inhalt eines Strings mußt du in einfache Anführungsstrichen setzen.
Um solche Probleme zu vermeiden, gilt auch für Datums- und Zeitangaben, sollte man immer mit
Parametern arbeiten.

Delphi-Quellcode:

QuMem.Sql.Text := 'Update Tabelle1 set Mem = :Mem';
QuMem.ParamByName('Mem').AsString := MeMemo.Lines.Text;

Durch die Verwendung von .AsString, .AsDateTime usw. bei der Parameterzuweisung hat man
auch keine Probleme mit den Parametertypen.

alex

[RavenIV]

Oder man verwendet QuotedStr:
QuMem.Sql.Text := 'Update Tabelle1 set Mem = ' + QuotedStr(MeMemo.Lines.Text); Das QuotedStr setzt die Anführungszeichen " oder ' so wie sie benütigt werden.

Schöner ist allerdings die Variante mit den Parametern.

[Eppos]

Ich werde beide Varianten heute Abend mal ausprobieren.

Vielen Dank im Vorraus!

Eppos

[Eppos]

Bei der ersten Möglichkeit kommt diese Fehlermeldung:
Allgemeiner SQL-Fehler feature is not supported BLOB and array dataq types are not supported for move operation

Bei der zweiten Möglichkeit diese:
Conversion Error from String.

[RavenIV]

Zeig mal den Code, damit wir sehen, was Du gemacht hast.

[Eppos]

Delphi-Quellcode:

// erste
QuData.Sql.Text := 'Update Data set Data = ' + QuotedStr(MeMem.Text);
QuData.Execsql;
QuData.Free;

// zweite
QuData.Sql.Text := 'Update Data set Data = :Data';
QuData.ParamByName('Data').AsString := MeData.Text;
QuData.Execsql;
QuData.Free;

[RavenIV]

Zitat von Delphi 7 Hilfe:

Text (Eigenschaft von TStrings)
Mit der Eigenschaft Text lassen sich alle Strings eines TStrings-Objekts als ein ganzer String ansprechen, dessen Elemente durch das Code-Paar für Wagenrücklauf (Carriage Return, CR) und Zeilenvorschub (Line Feed, LF) voneinander getrennt sind.

Bei einem Lesezugriff auf die Eigenschaft Text werden Strings zurückgegeben, die durch Wagenrücklauf- und (in Windows) Zeilenvorschubzeichen getrennt sind

Da sich die Property Text des TMemo auf TStrings bezieht, kommt der Fehler vermutlich von den CR/LF.

Nebenbei erwähnt:
Es ist eh keine gute Idee, in einer Datenbank BLOBs zu verwenden.
Jedes DBMS bietet Text-Felder in variabler Grösse an.