Question

我是新手，请问在vb中使用Adodc控件访问数据库时，如何将数据库中的数据写入到文本文件中

只需要给出将数据写入到文本中的把部分代码。我想使用一个循环来做，如下所示：
Open CommonDialog2.FileName For Output As #1
Do While Not Adodc1.Recordset.EOF
For i = 1 To Adodc1.Recordset.RecordCount
write #1,(....)
Next i
Loop
括号里面的不会了，请高手按照我的要求将括号里面的补充出来。要是这种做法达不到目的也请给出其他的做法。

Answer 1

Open CommonDialog2.FileName For Output As #1
Do While Not Adodc1.Recordset.EOF
write #1,rs("字段名")
rs.movenext
Loop

Answer 2

Open CommonDialog2.FileName For Output As #1
Do While Not Adodc1.Recordset.EOF
For i = 0 To Adodc1.Recordset.RecordCount - 1
Write #1, Adodc1.Recordset(0), Adodc1.Recordset(1), Adodc1.Recordset(2)
Next i
Adodc1.Recordset.MoveNext
Loop
Close