Hallo
sandrocm,
schonmal so versucht?
Delphi-Quellcode:
var Query:TQuery;
text:
string;
begin
text:=
'
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil Tahoma;}}' +
'
{\colortbl ;\red0\green0\blue0;}' +
'
\viewkind4\uc1\pard\cf1\f0\fs16 Diagnosen: ###50100\{Seit der letzten ' +
'
Untersuchung waren keine ernsthafen internistischen Erkrankungen oder ' +
'
Verletzungen aufgetreten.\}*** \par }';
Query:=TQuery.create(self);
try
Query.Connection:=...
Query.SQL.Text:=
Format(
'
UPDATE briefeditor'#13 +
'
SET briefeditorfeld1text = %s'#13 +
'
WHERE briefeditorid = %d',
[QuotedStr(text), 3]
);
Query.ExecSQL;
finally
Query.free;
end;
end;
Oder wie schon geschrieben über Parameter...
Delphi-Quellcode:
var Query:TQuery;
text:
string;
begin
text:=
'
{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil Tahoma;}}' +
'
{\colortbl ;\red0\green0\blue0;}' +
'
\viewkind4\uc1\pard\cf1\f0\fs16 Diagnosen: ###50100\{Seit der letzten ' +
'
Untersuchung waren keine ernsthafen internistischen Erkrankungen oder ' +
'
Verletzungen aufgetreten.\}*** \par }';
Query:=TQuery.create(self);
try
Query.Connection:=...
Query.SQL.Text:=
'
UPDATE briefeditor'#13 +
'
SET briefeditorfeld1text = :text'#13 +
'
WHERE briefeditorid = :id',
Query.ParamByName('
text').AsString:=text;
Query.ParamByName('
id').AsInteger:=3;
Query.ExecSQL;
finally
Query.free;
end;
end;
Gruss
Thorsten