Office中国论坛/Access中国论坛

标题: 如何编写代码，把一个表中的数据导出为文本文件，且导出的数据没有分隔符，也没有逗 [打印本页]

作者: ouxingwang 时间: 2006-6-13 22:47
标题: 如何编写代码，把一个表中的数据导出为文本文件，且导出的数据没有分隔符，也没有逗
如何编写代码，把一个表中的数据导出为文本文件，且导出的数据没有分隔符，也没有逗号？

例如：表数据为：

姓名       地址

张三       江南路267号

李四       黄兴路49号

导出来的数据为：

张三江南路267号

李四黄兴路49号

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

作者: crg770502 时间: 2006-6-14 00:43

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 时间: 2006-6-14 01:00
谢谢指点！

作者: wuaza 时间: 2006-6-14 01:02
Open "d:\temp\01.txt" For Output As #1
这句代码新鲜。

作者: sccw 时间: 2006-8-3 02:00
经测试可以将数据表输出到文本，但不能将查询表中的数据输出，如果是将查询表的数据输出到文本文件，该用什么函数呢？

作者: fan0217 时间: 2006-8-3 02:20
带参数的查询不能直接使用查询名称。将红色的部分该为查询的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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)