VB6批量读取CSV文件到access?

zhaogang1960

第二个问题是个难题，ADO读取文本文件，第一个字符为0的数字都会丢失，在Recordset查询中就已经丢失了，就是说从根上就出问题了，请测试下面代码：

1. Sub 读取csv文件试验()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3. 'VB6批量读取CSV文件到access?
   
4. 'http://club.excelhome.net/thread-973334-1-1.html
   
5.     Dim cnn As New ADODB.Connection
   
6.     Dim rs As New ADODB.Recordset
   
7.     Dim myPath$, MyFile$, SQL$
   
8.     myPath = ActiveWorkbook.Path & ""
   
9.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='text;FMT=DELIMITED;HDR=no';Data Source=" & myPath '连接数据库
   
10.     MyFile = Dir(myPath & "*.csv")
    
11.     SQL = "select * from  " & MyFile
    
12.     rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
13.     For i = 0 To rs.Fields.Count - 1
    
14.         MsgBox rs.Fields(i)
    
15.     Next
    
16.     rs.Close
    
17.     Set rs = Nothing
    
18.     cnn.Close
    
19.     Set cnn = Nothing
    
20. End Sub
    

复制代码

zhaogang1960

请看附件
Get.rar (21.24 KB, 下载次数: 56)

2013-1-21 10:50 上传

点击文件名下载附件

yuk_yu

zhaogang1960 发表于 2013-1-21 10:50
请看附件

版主，能否用其他办法读取？我的数据例如：0110读取后变为110就完全没有意义了。可以用二进制先读取到数组，再写入access吗？

zhaogang1960

yuk_yu 发表于 2013-1-21 11:09
版主，能否用其他办法读取？我的数据例如：0110读取后变为110就完全没有意义了。可以用二进制先读取到数组 ...

应该可以，容我想想

zhaogang1960

yuk_yu 发表于 2013-1-21 11:09
版主，能否用其他办法读取？我的数据例如：0110读取后变为110就完全没有意义了。可以用二进制先读取到数组 ...

1. Sub 联合查询后导入() 'VBA中测试通过
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3. 'VB6批量读取CSV文件到access?
   
4. 'http://club.excelhome.net/thread-973334-1-1.html
   
5.     Dim xlapp As Object
   
6.     Dim cnn As New ADODB.Connection
   
7.     Dim rs As New ADODB.Recordset
   
8.     Dim myPath$, MyFile$, myTable$, SQL$, s$(), i&, a, strFormID$, strFormType$
   
9.     Set xlapp = GetObject(, "Excel.Application") 'VB6中
   
10.     myTable = "BackflushRecord"
    
11.     myPath = xlapp.ActiveWorkbook.Path & ""
    
12.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath & "Database.accdb" '连接数据库
    
13.     rs.Open myTable, cnn, adOpenKeyset, adLockOptimistic
    
14.     MyFile = Dir(myPath & "*.csv")
    
15.     With rs
    
16.         Do While MyFile <> ""
    
17.             strFormID = Mid(MyFile, 10, 7)
    
18.             strFormType = Mid(MyFile, 1, 8)
    
19.             Open myPath & MyFile For Input As #1
    
20.             s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
21.              Close #1
    
22.             For i = 0 To UBound(s) - 1 '-1忽略最后一行空格
    
23.                 a = Split(s(i), ",")
    
24.                 .AddNew
    
25.                 .Fields("FormID") = strFormID
    
26.                 .Fields("FormType") = strFormType
    
27.                 .Fields("ModelName") = a(0)
    
28.                 .Fields("ProductionLine") = a(1)
    
29.                 .Fields("OutPutQty") = a(2)
    
30.                 .Fields("ModelVersion") = a(3)
    
31.                 .Update
    
32.             Next
    
33.             MyFile = Dir()
    
34.         Loop
    
35.     End With
    
36.     MsgBox "已经成功将文本文件数据保存为数据库！", vbInformation
    
37.     rs.Close
    
38.     cnn.Close
    
39.     Set rs = Nothing
    
40.     Set cnn = Nothing
    
41. End Sub
    
42. 
    

复制代码

yuk_yu

zhaogang1960 发表于 2013-1-21 12:54
请看附件

谢谢版主，完全解决问题！速度也很快！

najagay

zhaogang1960 发表于 2013-1-21 12:50

十分感谢学到了合并！

lwgbbcc

zhaogang1960 发表于 2013-1-19 18:44
VB6窗体代码

大佬，请问f1,f2,f3,f4是怎么来的？没有定义啊，直接表示csv中的列号吗？