如何用ADO提取CSV文件数据

minjiwei

偶得e文，是关于ado提取csv文件数据的，现粗略翻译如下：

csv文件和xml文件一样是存储数据的简单方法。很多时候，我们要从CSV文件中提取某些数据，就可以使用ADO SQL语句。
与用ADO连接ACCESS主要的不同是连接字符，如下所示：
Source=c: \temp\;Extended Properties=""text; HDR=Yes; FMT=Delimited (,)""
Source : CSV文件保存的文件夹
Extended Properties: Text (表示文本文件), HDR =Yes (如果文本文件中首行是字段名称),
FMT=Delimited(,) (表示是以逗号分割的文件)
其次不同是sql语句：
sQuery = "Select * From VBA.csv ORDER BY ID"
我们在连接字符里只指定了文件路径。这里我们指定文件名称即（vba.csv 文件的名称为vba）
下面的代码需要引用Microsoft ActiveX Data Objects library

Sub Sort_CSV()

        Dim cN As ADODB.Connection         '* Connection String
        Dim RS As ADODB.Recordset         '* Record Set
        Dim sQuery As String                         '* Query String

        On Error GoTo ADO_ERROR
        cN = New ADODB.Connection
        cN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\;Extended Properties=""text;HDR=Yes;FMT=Delimited(,)"";Persist Security Info=False"

        cN.ConnectionTimeout = 40
        cN.Open()
        RS = New ADODB.Recordset
        sQuery = "Select * From VBA.csv ORDER BY ID"
        RS.ActiveConnection = cN
        RS.Source = sQuery
        RS.Open()

        If RS.EOF <> True Then
                While RS.EOF = False
                Open "c:\temp\vba_sorted.csv" For Append As 1
                Print #1, RS.Fields(0) & "," & RS.Fields(1)
                        RS.MoveNext()
                Close #1
                End While
        End If

        If RS.State <> adStateClosed Then
                RS.Close()
        End If

        If Not RS Is Nothing Then RS = Nothing
        If Not cN Is Nothing Then cN = Nothing

ADO_ERROR:
        If Err <> 0 Then
                Debug.Assert(Err = 0)
                MsgBox(Err.Description)
                Resume Next
        End If
End Sub

对csv文件进行排序操作不太容易。一种方法是在EXCEL中打开文件，操作后保存。尽管如此，一旦行数超过EXCEL可以容纳的数量，你就可能要使用ADO对文件操作，然后回存为CSV文件。

[ 本帖最后由 minjiwei 于 2008-11-22 08:02 编辑 ]

彭希仁

直接用二进制打开操作不更好?请参考以下代码,适合打开CSV和TXT格式
    f = Application.GetOpenFilename
    Dim LFile As Long, DAT() As Byte, ST As String, aa As String
    LFile = FileLen(f) - 1
    ReDim DAT(LFile) As Byte
    Open f For Binary As #1
    Get #1, , DAT
    Close #1
    ST = DAT
    If DAT(0) = &HFF And DAT(1) = &HFE Then    '如果是Unicode编码文件
        ST = Mid(ST, 2)
    Else
        ST = StrConv(ST, vbUnicode)
    End If
    If UBound(Split(ST, Chr(13) & Chr(10))) > 0 Then
        arr = Split(ST, Chr(13) & Chr(10))
    Else
        arr = Split(ST, Chr(10))
    End If
    ReDim arr1(0 To UBound(arr), 0 To UBound(Split(arr(i), ",")))    '转换二维数组
    If UBound(arr) > 0 Then
        For i = 0 To UBound(arr)
            For j = 0 To UBound(Split(arr(i), ","))
                    If i <= UBound(arr1) And j <= UBound(arr1, 2) Then arr1(i, j) = Split(arr(i), ",")(j)
            Next j
        Next i
    End If

[ 本帖最后由 彭希仁 于 2008-11-22 09:15 编辑 ]

lolmuta

为何现在ADO CVS的说明好少...网路上找超久才找到这个。

连里面的写法都是古老的写法end while ....，觉得快没人用了

另外，可以排序能有什么困难的...
發个“现代一点”的代码...

1. Public Sub SelectCSV(CSVPath As String, sQuery As String, ExportFn As String)
   
2. 
   
3.         Dim cN As ADODB.Connection         '* Connection String
   
4.         Dim RS As ADODB.Recordset         '* Record Set
   
5.         'Dim sQuery As String                         '* Query String
   
6. 
   
7.         'On Error GoTo ADO_ERROR
   
8.         Set cN = New ADODB.Connection
   
9.             cN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CSVPath & ";Extended Properties=""text;HDR=Yes;FMT=Delimited(,)"";Persist Security Info=False"
   
10. 
    
11.             cN.ConnectionTimeout = 40
    
12.             cN.Open
    
13.         Set RS = New ADODB.Recordset
    
14.         'sQuery = "Select * From VBA.csv ORDER BY ID"
    
15.             RS.ActiveConnection = cN
    
16.             RS.Source = sQuery
    
17.             RS.Open
    
18. 
    
19.         If RS.EOF <> True Then
    
20.             Dim Str As String
    
21.             Dim i As Integer
    
22.             Open ExportFn For Output As 1
    
23.             
    
24.                 For i = 0 To RS.fields.Count - 1
    
25.                     Str = Str & RS.fields(i).Name & ","
    
26.                 Next
    
27.                
    
28.                 Str = Left(Str, Len(Str) - 1)
    
29.                 Print #1, Str
    
30.                
    
31.                 While RS.EOF = False
    
32.                     Str = ""
    
33.                     For i = 0 To RS.fields.Count - 1
    
34.                         Str = Str & RS.fields(i) & ","
    
35.                     Next
    
36.                     Str = Left(Str, Len(Str) - 1)
    
37.                     
    
38.                     Print #1, Str
    
39.                     
    
40.                     RS.MoveNext
    
41.                
    
42.                 Wend
    
43.             Close #1
    
44.         End If
    
45. 
    
46.         If RS.State <> adStateClosed Then
    
47.                 RS.Close
    
48.         End If
    
49. 
    
50.         If Not RS Is Nothing Then
    
51.             Set RS = Nothing
    
52.         End If
    
53.         
    
54.         If Not cN Is Nothing Then
    
55.             Set cN = Nothing
    
56.         End If
    
57. 
    
58. ADO_ERROR:
    
59.         If Err <> 0 Then
    
60.                 Debug.Assert (Err = 0)
    
61.                 MsgBox (Err.Description)
    
62.                 Resume Next
    
63.         End If
    
64. End Sub
    

复制代码

Liero1982

彭希仁 发表于 2008-11-22 09:06
直接用二进制打开操作不更好?请参考以下代码,适合打开CSV和TXT格式
    f = Application.GetOpenFilename
...

打开文件是很简单，方法也很多，但重点是可以用SQL语句筛选得到你想要的、帮你排序、汇总，省了后续的麻烦。

好奇心

ado提取一系列csv文件的最后一行数据如何写代码？

autumnalRain

请教老师，CSV文件的标志是逗号（，），那么ADO如何操作以“；”或是“|”作分隔符的文本文件呢？

永在战场

下面的代码需要引用Microsoft ActiveX Data Objects library,是哪个版本的啊？

6.1，2.0，2.1.......有很多啊？

fshyq21

csv个人观点如果自定义格式需要用stream，如果是用单一的符号分隔就ado还算比较方便，毕竟一句话直接汇总，不用另外循环和考虑程序结构