关于access导出CSV格式数据

yanwei82123300

关于access导出CSV格式数据
关于access导出CSV格式数据，最近参考GRANT老师的例子，但是现在有一个问题就是如果某一个单元格中是空项 导出后就会有NULL这个内容，请问如何才能做到，导出后没有此内容呢？谢谢
例如:生成CSV后
生产订单号 产品号  交货地点        客户要求号
MO-120115  130195  CO-130211;CI001   358
MO-120116  130198  CO-130211;CI001      
MO-120117  130200  CO-130211;CI001   100
MO-120120  130198  CO-130211;CI001      
MO-120150  130198  CO-130211;CI001   75

风中漫步

贴代码看看吧

yanwei82123300

Private Sub Command0_Click()

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

Dim FNum As Integer
Dim FName As String
FNum = FreeFile
FName = "c:\MOMT03.csv"

Open FName For Append As FNum  ' 如将 Open 取代 Append 则新建立一个文件

stemp = "select * from MO_Header_MOMT03"                       '打开表"
rst.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Do Until rst.EOF
Print #FNum, rst!MO; ","; rst!planner; ","; rst!起始工作中心; ","; rst!交货地点; ","; rst!text_no
'If rst!text_no = 0 Then
'Print #FNum, rst!text_no = ""
'End If
rst.MoveNext
Loop

Close #FNum
MsgBox "导出到 c:\MOMT03.csv", vbInformation, "提示"
End Sub

andymark

把rst!text_no 改成  trim(rst.field("text_no") & "")  
其他ITEM自行参照修改

yanwei82123300

andymark 老师：
把rst!text_no 改成  trim(rst.field("text_no") & "")  
系统提示有错误
field？

yanwei82123300

请见错误

roych

yanwei82123300 发表于 2012-7-6 16:32
Private Sub Command0_Click()

Dim rst As ADODB.Recordset

这段代码貌似没问题啊。

yanwei82123300

请大家下载附件看看，请帮助！！

风中漫步

没有ACC,你自己试.

如果andymark的方法离你的要求还有差距,请试下format(rst.fields("text_no") ),看可行否

yanwei82123300

风中漫步 谢谢可以了