记录集暂留详述

  • 项目

适用于：Access 2013、Office 2013

ADO 记录集对象支持使用其 Save 方法将 Recordset 对象的内容存储在文件中。 永久存储的文件可能存在于本地驱动器、网络服务器上，或作为网站上的 URL。 随后，可以用 Recordset 对象的 Open 方法或 Connection 对象的 Execute 方法还原该文件。

此外，GetString 方法可以将 Recordset 对象转换为以指定的字符分隔的列和行的形式。

若要持久化 Recordset ，请首先将它转换为可以存储在文件中的形式。 可以用专用的 Advanced Data TableGram (ADTG) 格式或开放的可扩展标记语言 (XML) 格式来存储 Recordset 对象。 下面显示了 ADTG 示例。 有关 XML 持久化的详细信息，请参阅 用 XML 格式持久化记录。

应当将任何挂起的更改保存在持久化文件中。 这将允许您发出返回 Recordset 对象的查询，编辑 Recordset ，保存记录集和挂起的更改、随后还原 Recordset ，然后用保存的挂起更改来更新数据源。

有关永久存储 Stream 对象的信息，请参阅第 10 章中的 流和持久化。

有关 Recordset 持久化的示例，请参阅 XML Recordset 持久化方案。

示例

保存记录集：

 
Dim rs as New ADODB.Recordset 
rs.Save "c:\yourFile.adtg", adPersistADTG

用 Recordset.Open 打开持久化文件：

 
Dim rs as New ADODB.Recordset 
rs.Open "c:\yourFile.adtg", "Provider='MSPersist'",,,adCmdFile

或者，如果 Recordset 没有活动连接，则可以接受所有默认值，只需编码如下：

 
Dim rs as New ADODB.Recordset 
rs.Open "c:\yourFile.adtg"

使用 Connection.Execute 打开持久化文件：

 
Dim conn as New ADODB.Connection 
Dim rs as ADODB.Recordset 
conn.Open "Provider='MSPersist'" 
Set rs = conn.execute("c:\yourFile.adtg")

使用 RDS.DataControl 打开持久化文件：

这种情况下，不设置 Server 属性。

 
Dim dc as New RDS.DataControl 
dc.Connection = "Provider='MSPersist'" 
dc.SQL = "c:\yourFile.adtg" 
dc.Refresh