如何编写代码，把一个表中的数据导出为文本文件，且导出的数据没有分隔符，也没有逗

ouxingwang

如何编写代码，把一个表中的数据导出为文本文件，且导出的数据没有分隔符，也没有逗号？

例如：表数据为：

姓名          地址

张三        江南路267号

李四        黄兴路49号

导出来的数据为：

张三江南路267号

李四黄兴路49号

[此贴子已经被作者于2006-6-13 15:25:18编辑过]

crg770502

Private Sub Command0_Click()
    Open "d:\temp\01.txt" For Output As #1
    Dim rs As New adodb.Recordset
    rs.Open "联系人", Application.CurrentProject.Connection, adOpenForwardOnly
    rs.MoveFirst
    Do While Not rs.EOF
        Print #1, rs("姓名").Value & rs("地址").Value
        rs.MoveNext
    Loop
    Close #1
    Set rs = Nothing
    MsgBox "完成"
End Sub

ouxingwang

谢谢指点！

wuaza

Open "d:\temp\01.txt" For Output As #1
这句代码新鲜。

sccw

经测试可以将数据表输出到文本，但不能将查询表中的数据输出，如果是将查询表的数据输出到文本文件，该用什么函数呢？

fan0217

带参数的查询不能直接使用查询名称。将红色的部分该为查询的SQL语句。

Private Sub Command0_Click()
    Open "d:\temp\01.txt" For Output As #1
    Dim rs As New adodb.Recordset
    rs.Open "联系人", Application.CurrentProject.Connection, adOpenForwardOnly
    rs.MoveFirst
    Do While Not rs.EOF
        Print #1, rs("姓名").Value & rs("地址").Value
        rs.MoveNext
    Loop
    Close #1
    Set rs = Nothing
    MsgBox "完成"
End Sub