关于将数据库中的数据写入txt文本文件的问题

Question

我从数据库中导入数据(rs.field),然后希望把所得的数据一一放入同一个txt文件中，并且遇到rs.movenext在txt中也要相应的换行。请问大家，怎样实现这个？

Answer 1

Open App.Path & "\1.txt" For Output As #1
    Do While Not Rs.Eof
        Print #1, rs.fileds(0) & vbCr
        rs.movenext
    Next Index
    Close #1

Answer 2

Open App.Path & "\1.txt" For Output As #1
    Do While Not Rs.Eof
        Print #1, rs.fileds(0) & vbCr
        rs.movenext
    Loop                                     '这边写错
    Close #1

Answer 3

上面的方法不好，应该如下：
Rs.Save strFile, adPersistXML
自己去看一看帮助了，如果导回也非常方便（XML格式当然方便了）

Answer 4

Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strTemp As String
    Dim i As Integer
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False"
    rs.Open "select * from table1", cn, 1, 1
    
    Open "c:\11.txt" For Output As #1
    
    While Not rs.EOF        For i = 0 To rs.Fields.Count - 1
            strTemp = strTemp & rs(i) & " "
        Next
        Write #1, strTemp
        strTemp = ""
        rs.MoveNext
    Wend
    Close #1    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 5

Open Trim(cdtxt2.FileName) For Output As #1
    
For i = 0 To rssql1.Fields.Count - 1
strTemp = strTemp & rssql1.Fields(i).Name & " "
Write #1, strTemp
strTemp = ""
Next使用如上语句向文本文件写入字段名时，有多少字段名，便在文本中写了多少行，如何把字段名写在一行里面