循环遍历 ADODB.connection 的 SQL 插入时溢出

Question

我正在尝试找出一种快速、自动化的方法，将金融服务提供商的一些实时日期插入到 Excel 中，这只能通过大约 100,000 个值的块中的 excel 插件来获取。 目前我正在使用下面的代码，到目前为止它似乎按预期工作：

Sub insert()

'Declare Variables
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sConnString As String

Dim ColumnsSchema As ADODB.Recordset

Dim rsT As Variant

Dim i As Integer

For i = 0 To 2

rsT = Join(Application.Transpose(ThisWorkbook.Sheets("Prices").Range(Cells(3 + i * 10000, 9), Cells(10002 + i * 10000, 9)).Value), " ")


' Create the connection string.
sConnString = "Provider=SQLOLEDB;Data Source=DB1;" 'rest of the string blackened


' Create the Connection and Recordset objects.
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

'Open the connection and execute.
conn.Open sConnString

Set rs = conn.Execute(rsT)


Next i

' Clean up


If CBool(conn.State And adStateOpen) Then conn.Close
Set conn = Nothing
Set rs = Nothing


End Sub

我当前的问题是，一旦我将计数器 i 增加到 3，因此使用 for 循环插入超过 30000，它会导致溢出错误。我已经尝试将其拆分为较小的块，并且计数器会变为 49：类似错误。

工作表“价格”中引用的单元格似乎都正确。这就是为什么我只在这里发布 VBA 代码。由于我对 VBA 和所用对象的限制不是很熟悉，所以我预计会出现问题，也许这里有更多 VBA 经验的人可以一目了然。

我们非常感谢您的任何建议，非常感谢您抽出宝贵时间阅读这篇文章。希望我至少可以让我的情况足够清楚。

Answer 1

您可以运行多个查询，而无需每次都创建新连接。

Option Explicit

Sub insert()

    Const BATCH_SIZE = 10000 ' 10,000
    
    'Declare Variables
    Dim conn As ADODB.Connection, sConnString As String, SQL As String
    Dim ws As Worksheet, r As Long, LastRow As Long, n As Long
    Dim t0 As Single: t0 = Timer
       
    ' Create the connection string.
    sConnString = "Provider=SQLOLEDB;Data Source=DB1;" 'rest of the string blackened
    
    ' Create the Connection
    Set conn = New ADODB.Connection
    conn.Open sConnString
    
    Set ws = ThisWorkbook.Sheets("Prices")
    With ws
         LastRow = .Cells(Rows.Count, 9).End(xlUp).Row ' col I
         For r = 3 To LastRow Step BATCH_SIZE
             SQL = Join(Application.Transpose(ws.Cells(r, 9).Resize(BATCH_SIZE).Value), " ")
             conn.Execute SQL
             n = n + 1
         Next
    End With
      
    ' Clean up
    If CBool(conn.State And adStateOpen) Then conn.Close
    Set conn = Nothing
    Set rs = Nothing

    MsgBox LastRow - 2 & " rows in " & n & " batches of max size " & BATCH_SIZE, _
           vbInformation, Format(t0 - Timer, "0.0 secs")
    
End Sub