SQL命令在达到大csv文件结束之前终止

Question

我有一个很大的csv文件，需要大量的数据才能分析（〜6M行）。我想连接到该文件并对其运行SQL命令，以仅返回我有兴趣分析的数据。我写的VBA是在Excel 2010中。

当csv文件中的行数为< 4432669时，一切正常。当csv文件的行数多于此值时，命令似乎终止于该文件只是返回到目前为止所发现的内容。没有错误抛出（CN.Errors），我首先虽然它可能是命令超时但是当我增加它没有区别。我也检查了不同的csv文件，只是在该行包含损坏的数据，但没有运气。 Recordset maxrecords设置为0（无限制）。

我试过使用Microsoft.Jet.OLEDB.4.0;和驱动程序= {Microsoft文本驱动程序（* .txt; * .csv）};在连接字符串中，两者的行为与上述相同。

这里是我使用的测试代码，

Dim CN As New ADODB.Connection 
Dim RS As New ADODB.Recordset 
Dim Err As ADODB.Error 

providerstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cygwin\home\MarkM\csvimport\filtertest4\;" & _ 
"Extended Properties=" & Chr(34) & "text;HDR=Yes;FMT=Delimited" & Chr(34) & ";" 
CN.ConnectionString = providerstr 
CN.Mode = adModeRead 
CN.CommandTimeout = 900 
CN.Open 

RS.Open "SELECT exCode FROM 5M_MBP1R04.csv", CN, adOpenStatic, adLockReadOnly 
RS.MoveLast 
MsgBox "Number of rows = " & RS.RecordCount 

    For Each Err In CN.Errors 
     strError = "Error #" & Err.Number & vbCr & _ 
      " " & Err.Description & vbCr & _ 
      " (Source: " & Err.Source & ")" & vbCr & _ 
      " (SQL State: " & Err.SqlState & ")" & vbCr & _ 
      " (NativeError: " & Err.NativeError & ")" & vbCr 
     If Err.HelpFile = "" Then 
      strError = strError & " No Help file available" 
     Else 
      strError = strError & _ 
       " (HelpFile: " & Err.HelpFile & ")" & vbCr & _ 
       " (HelpContext: " & Err.HelpContext & ")" & _ 
       vbCr & vbCr 
     End If 

     Debug.Print strError 
    Next 

非常感谢所有帮助，我现在完全被卡住。

BR's Mark。

Answer 1

由于CursorType的缘故，您可能已超出内存限制。尝试将其更改为adOpenForwardOnly

以下是描述游标类型的MSDN页面。 https://msdn.microsoft.com/en-us/library/windows/desktop/ms681771(v=vs.85).aspx