Office中国论坛/Access中国论坛

标题: 导出数据到文本 [打印本页]

作者: boyryan 时间: 2005-12-18 18:10
标题: 导出数据到文本
我需要将DATA表中的数据导出到TXT中，第一行和最后一行是固定的标识文字，表中的数据要从第二行开始，自己试过几次都不成功，请帮我看看下面的代码，谢谢！

Private Sub ddd_Click()
On Error GoTo Err_ddd_Click
  Dim rst As New ADODB.Recordset
  rst.Open "SELECT *  FROM DATA", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Open "C:\abc.txt" For Output As #1

Print #1, "<ELEMENT>" ' 将文本数据写入文件。
Print #1, "<BGDHEAD>"; rst.Fields.Item("AWBNo").Value  '数据集字段（在这里开始循环出现所有的数据）
Print #1, "</ELEMENT>"
Close #1 ' 关闭文件。
MsgBox "完成数据导出处理工作！！！", vbOKOnly, "处理信息"

Exit_ddd_Click:
Exit Sub

Err_ddd_Click:
MsgBox Err.Description
Resume Exit_ddd_Click

End Sub

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