Question

VB高手们：如何通过VB将db中的数据导出到CSV格式文件中，谢谢！

我的源码如下（引用ADODB）：Private Sub Command1_Click() Dim sPath As String conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;", "admin"
sPath = App.Path + "\1.csv"
Call conn.Execute("select * into Sheet1 In '" & sPath & "'from ss") 'ss是db之一
conn.Close End Sub 请指导，谢谢！

Answer 1

用ADO连接数据，SQL查询，返回RS记录集，全部循环一遍，输出逗号分隔CSV文本用FSO保存。

追问

我的源码如下（引用ADODB）：Private Sub Command1_Click() Dim sPath As String conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;", "admin"