帮个忙

Question

在vb编写的程序中从access中读取数据后,如何将读取和修改的数据保存成文件形式,下次再以文件的形式打开而不用access形式打开数据

Answer 1

可以使用rs.save成xml文件以后可以直接加载xml文件进行操作Save 方法 (ADO Recordset)
      将 Recordset 保存（持久）在文件中。语法recordset.Save FileName, PersistFormat 参数FileName   可选。文件的完整路径名，用于保存 Recordset。PersistFormat   可选。PersistFormatEnum 值，指定保存 Recordset 所使用的格式。可以是如下的某个常量：常量 说明 
adPersistADTG （默认）使用专用的“Advanced Data Tablegram”格式保存。 
adPersistXML 使用 XML 格式保存。 
说明只能对打开的 Recordset 调用 Save 方法。随后使用 Open 方法可由 FileName 恢复 Recordset。如果 Filter 属性影响 Recordset，将只保存经过筛选的行。如果 Recordset 是分级结构的，那么将保存当前子 Recordset 和它的子 Recordset，但不保存上一级 Recordset。在第一次保存 Recordset 时指定 FileName。如果随后调用 Save 时，应忽略 FileName，否则将产生运行时错误。如果随后使用新的 FileName 调用 Save，那么 Recordset 将保存到新的文件中，但新文件和原始文件都是打开的。Save 不关闭 Recordset 或 FileName，从而可以继续使用 Recordset 并保存最新的更改。在 Recordset 关闭之前 FileName 将保持打开，在这段时间其它应用程序可以读取但不能写入 FileName。出于安全的原因，对由 Microsoft Internet Explorer 执行的脚本，Save 方法仅允许使用低的和自定义的安全设置。有关安全问题的详细解释，请参阅 在 http://www.microsoft.com/data/techmat.htm 上的白皮书标题“Security Issues in the Microsoft Internet Explorer”。如果正在进行异步 Recordset 获取、执行或更新操作时调用 Save 方法，则 Save 将进入等待状态，直到异步操作完成。在 Save 方法完成后，当前行位置将成为 Recordset 的首行。Recordset 持久性
使用记录集持久性，可以将 Recordset 数据和元数据保存为文件。随后，使用持久文件来重新建立 Recordset 对象。持久文件可以保存在本地驱动器、网络服务器上或者作为 URL 保存在 Web 站点上。另外，GetString 方法将 Recordset 对象转换成表单，在表单中列和行使用指定的字符分界。详细资料Microsoft OLE DB Persistence Provider 支持使用 Recordset 对象 Save 方法将 Recordset 对象保存在文件中。随后，使用 Recordset 对象的 Open、或 Connection 对象的 Execute 方法可恢复持久文件。Recordset 对象被转换为能被保存在文件中的表单。Recordset 对象可以按所拥有的高级数据图表 (ADTG) 格式保存，或者按打开的可扩展标记语言 (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 New 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