ACCESS导出到一个文本文件中。请高手指点!谢谢!
If rs.RecordCount > 0 Then
date1 = "c:\设备管理系统.txt"
Open date1 For Output As #1
While (Not (rs.EOF))
Print #1, Trim(rs![设备编号]); "|"; Trim(rs!设备名称); "|"; Trim(rs!购买时间); "|"; Trim(rs!价格); "|"; Trim(rs!报废时间); "|"; Trim(rs!使用部门); "|"; Trim(rs!使用人姓名); "|"; Trim(rs!设备种类);
rs.MoveNext
Wend
Close #1
Else
MsgBox "没有相应的数据导出!", vbOKOnly, "设备管理系统"
End If
1.要什么写?才可以每打印出一条记录后,自动换行!
2.怎么判定在c盘下是否有“设备管理系统.txt”?如果没有就新建一个“设备管理系统.txt”。