在VB中如何导出数据库中的内容

来源：百度知道 编辑：UC知道 时间：2024/05/18 01:50:02
我想把数据库中的一个表。导出为一个文本文件，并且在导出的时候可以指定一个文件夹，请高手指教。

Rs.Open "select * from aaa", conn, adOpenKeyset, adLockPessimistic

If Rs.EOF = False Then

fname = appdisk & "\test.txt"

Open fname For Output As #1

For i = 0 To Rs.RecordCount - 1

sTemp = Rs!seqno & "," & Rs!Weight & "," & Rs!unitprc & "," & Rs!account

Print #1, sTemp

Rs.MoveNext

Next i

Close #1

End If

Rs.Close: Set Rs = Nothing