strSQL = "SELECT c.F1, c.F2, c.F3, g.F3, g.F4, c.F4, s.F2, c.F5, c.F6 FROM [cabinet.csv] as c,[good.csv] as g,[store.csv] as s WHERE c.F2 & c.F3=g.F1 & g.F2 and c.F2=s.F1 ORDER BY c.F1&c.F2&c.F3"
strSQL = "SELECT * FROM [cabinet.csv]"
csvHDR = "NO"
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0" & _
"; Data Source=" & GetPath & _
"; Extended Properties=""text; HDR=" & csvHDR & ";FMT=Delimited""")
If rs.State = adStateOpen Then CloseRecordset rs
rs.Open strSQL, con, adOpenStatic, adLockBatchOptimistic f1 = FreeFile
Open GetPath & "\allData.csv" For Output As f1
Do While Not rs.EOF
strLine = rs.Fields(0) & "," & rs.Fields(1) & "," & rs.Fields(2) & "," & rs.Fields(3) & "," & rs.Fields(4) & "," & rs.Fields(5) & "," & rs.Fields(6) & "," & rs.Fields(7) & "," & rs.Fields(8)
strLine = rs.Fields(0)
Print #f1, strLine
rs.MoveNext
Loop
Close #f1
此段代码读取csv文件,为什么不能读取含字母的栏位??只能读数值型的??
急~~
帮忙一下,谢谢
strSQL = "SELECT * FROM [cabinet.csv]"
csvHDR = "NO"
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0" & _
"; Data Source=" & GetPath & _
"; Extended Properties=""text; HDR=" & csvHDR & ";FMT=Delimited""")
If rs.State = adStateOpen Then CloseRecordset rs
rs.Open strSQL, con, adOpenStatic, adLockBatchOptimistic f1 = FreeFile
Open GetPath & "\allData.csv" For Output As f1
Do While Not rs.EOF
strLine = rs.Fields(0) & "," & rs.Fields(1) & "," & rs.Fields(2) & "," & rs.Fields(3) & "," & rs.Fields(4) & "," & rs.Fields(5) & "," & rs.Fields(6) & "," & rs.Fields(7) & "," & rs.Fields(8)
strLine = rs.Fields(0)
Print #f1, strLine
rs.MoveNext
Loop
Close #f1
此段代码读取csv文件,为什么不能读取含字母的栏位??只能读数值型的??
急~~
帮忙一下,谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货