richedit如何存入ACCESS数据库?(100分)

richedit如何存入ACCESS数据库,注意保存时要求把RICHEDIT中文字
的格式一块存入,如：粗体等。如可以的话。请把存入和取出的方法
一同说出。谢谢。

字体信息好像保存不起来把

用几个字段分别保存字体,内容,大小.

Qry.FieldByName('Field').AsString := RichEdit.Text;

^_^

//存入
procedure TForm1.Button3Click(Sender: TObject);
var
temp: TMemoryStream;
begin
temp := TMemoryStream.Create;
try
with RichEdit1 do
begin
SelStart := 0;
SelLength := Length(Text);
SelAttributes.Protected := FALSE;
Lines.SaveToStream(temp);
end;
temp.Position := 0;
ADOTable1.open;
ADOTable1.Edit;
TBlobField(ADOTable1.FieldByName('rtf')).LoadFromStream(temp);
ADOTable1.Post;
finally
temp.Free;
end;
end;
//取出
procedure TForm1.Button4Click(Sender: TObject);
var
temp: TMemoryStream;
begin
temp := TMemoryStream.Create;
try
TBlobField(ADOTable1.FieldByName('rtf')).SaveToStream(temp);
temp.Position := 0;
RichEdit1.Lines.LoadFromStream(temp);
finally
temp.Free;
end;
end;
//注：ADO连接

先把richedit的文件内容保存到文件，然后把文件的内容保存到数据库

把数据库内容保存到文件，然后把文件显示在richedit内

thanks.我试试linsb的代码。可以的话。马上给分。

to linsb:
运行没问题。但还是不能实现。
我感觉是access数据库中rtf这个字段的类型没选对。但用OLE字段还是不行。
请指点问题所在。help!!!

不会有问题，实测过的。
在我这是rtf字段名，到你那是什么？
应按实际修改。
rtf是备注字段。

谢谢了。备注字段我也用过。不知问题何在。我自己找找看吧。