string ls_rtf
rte_1.SelectTextAll()
ls_rtf=rte_1.CopyRTF()
update table1 set column1=:ls_rtf where id=??;
if sqlca.sqlcode=0 then
commit;
else
rollback;
end if
string ls_rtf
rte_1.SelectTextAll()
ls_rtf=rte_1.CopyRTF()
update table set column1=:ls_rtf where id=??;
if sqlca.sqlcode=0 then
commit;
else
rollback;
end if