将RichEdit保存并加载到MDB

在Windows应用程序中，RichEdit控件是一个非常强大的文本编辑器，可以轻松地实现格式化文本输入和输出。而MDB(Microsoft Access database file)是微软Access数据库文件的扩展名，可以用来存储数据。

本文将介绍如何将RichEdit中的内容保存到MDB文件，并在需要时重新加载。

保存RichEdit内容到MDB文件

首先需要创建一个空的Access数据库，假设我们创建了一个名为 test.mdb 的空数据库。

接下来，我们需要在应用程序中使用ADO(ActiveX Data Objects)来连接并操作这个数据库。以下是示例代码：

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb"

然后，我们创建一个表来存储RichEdit内容。此处我们创建了一个名为RichText的表，它有两个字段：

CREATE TABLE RichText (ID Counter primary key, Text Memo)

接下来，我们需要将RichEdit中的文本保存到数据库中。以下是示例代码：

Dim rs As New ADODB.Recordset
rs.Open "RichText", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Text = RichEdit1.Text
rs.Update
rs.Close

这将把RichEdit中的文本保存到名为RichText的表中。

从MDB文件中加载RichEdit内容

要从MDB文件中加载RichEdit内容，我们需要从数据库中读取文本并将其放入RichEdit控件中。以下是示例代码：

Dim rs As New ADODB.Recordset
rs.Open "SELECT Text FROM RichText WHERE ID = " & ID, cn, adOpenStatic, adLockReadOnly
RichEdit1.Text = rs!Text
rs.Close

上述代码从名为 RichText 的表中读取文本，代码中的 ID 表示要读取的记录的ID。

我们需要注意的是，从数据库中读取的内容如果包含了一些格式化信息，可能不能完全得到保留，因此在加载到RichEdit控件之前，可能需要进行一些额外的处理。

总结

本文简要介绍了如何将RichEdit控件中的文本保存到MDB文件中，并在需要时从MDB文件中加载。对于需要保存格式化文本的应用程序，这是一个非常有用的功能。