rs记录集能不能一下子纯成某个文件呢？

Question

Write # 语句示例
本示例使用 Write # 语句将行数据写入顺序文件。Open "TESTFILE" For Output As #1   ' 打开输出文件。
Write #1, "Hello World", 234   ' 写入以逗号隔开的数据。
Write #1,   ' 写入空白行。Dim MyBool, MyDate, MyNull, MyError
' 赋值 Boolean、Date、Null 及 Error 等。
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' Boolean 数据以 #TRUE# 或 #FALSE# 的格式写入。
' 日期以通用日期格式写入，例如：#1994-07-13# 代表
' 1994 年 1 月 13 日。Null 数据以 #NULL# 格式写入。 
' Error 数据以 #ERROR 错误代号# 的格式写入。
Write #1, MyBool ； " is a Boolean value"
Write #1, MyDate ； " is a date"
Write #1, MyNull ； " is a null value"
Write #1, MyError ； " is an error value"
Close #1   ' 关闭文件。

Answer 1

能呀
如下面的代码
Open "file.txt" For Output As #1
For i = 0 To rs.RecordCount - 1
    a$ = ""
    For j = 0 To rs.Fields.Count - 1
        a$ = a$ + rs.Fields(j).Value & Chr(9)
    Next j
    Print #1, a$
rs.MoveNextNext i
Close #1

Answer 2

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