如何将Richtextbox中带格式的文本存入Access数据库中？

Question

如题，用户通过Richtextbox 输入了带格式的文本，想将其存入数据库，请问如何存进去呢？主要是要将格式一块存入，回头还要原样显示的，请指教啊！非常感谢！

Answer 1

把编辑后的文本保存成rtf格式文件后，存入数据BLOB字段，取出时，还原为rtf文件用Richtextbox读入

Answer 2

一段delphi代码，你参考一下：save: 
a     TBlobField(Query1.FieldByName( 'RichEdit ')).Assign(RichEdit1.Lines); 
                                                                                                              ================= 
                                                                                              .Lines不行的话改为.Lines.Text 
b     TBlobField(Query1.FieldByName( 'RichEdit ')).LoadFromFile(filename); show: 
    RichEdit1.Lines.Assign(Query1.FieldByName( 'RichEdit ')); 

Answer 3

若是office2007以下，则用ole对象存储二进制若是office2007，参考下面的文章
http://office.microsoft.com/zh-cn/access-help/HA010014097.aspx

Answer 4

保存文件是rtf
Dim d As New ADODB.Recordset
Dim mstream As New ADODB.Stream
d.Open "select * from YouTable",Conn, adOpenKeyset, adLockOptimistic
 With mstream
                        
                        .Type = adTypeBinary
                        .Open
                        .LoadFromFile YouFileName
                        d.Fields("FMem").Value = mstream.Read
                        d.Update
end with

Answer 5

读的过程With mstream
            .Type = adTypeBinary
            .Open
            If Not IsNull(d.Fields("FMem")) Then
                .Write d.Fields("FMem").Value
                .SaveToFile YouFileName, adSaveCreateOverWrite
             endif
end with