VBA通过ADO向SQL Server批量INSERT数据的记录数限制问题

1. 改用批量INSERT语法（推荐） #

将多条独立INSERT语句合并为单条多值INSERT，既提升执行效率，也能避开ADO对单批语句数量的隐性限制：

INSERT INTO Table (ID, DataRow, RowValue) 
VALUES 
(211, 30, 0.398664208000758),
(212, 22, 0.458785695831563),
-- 后续所有记录依次追加

2. 拆分SQL语句分批执行 #

若必须保留单条INSERT格式，将完整SQL拆分为多个批次执行，比如每300条为一批：

Dim sqlParts() As String
sqlParts = Split(sql, "INSERT INTO")
Dim batchSql As String

For i = 1 To UBound(sqlParts)
    ' 重组单条INSERT语句
    Dim singleInsert As String
    singleInsert = "INSERT INTO" & sqlParts(i)
    
    ' 累积到批次阈值或最后一条时执行
    If (i Mod 300 = 0) Or (i = UBound(sqlParts)) Then
        batchSql = batchSql & IIf(batchSql <> "", vbCrLf, "") & singleInsert
        con.Execute batchSql
        batchSql = ""
    Else
        batchSql = batchSql & IIf(batchSql <> "", vbCrLf, "") & singleInsert
    End If
Next i

注意拆分时需保证重组后的语句语法完全正确，避免截断导致的隐性错误。

3. 使用ADODB.Command对象执行 #

替换直接调用con.Execute的方式，改用ADODB.Command对象执行SQL，部分场景下可绕过默认执行限制：

Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = con
cmd.CommandText = sql
cmd.CommandType = adCmdText
cmd.Execute

4. 启用事务排查隐性错误 #

若存在隐性执行失败但未抛出报错的情况，开启事务确保所有语句原子性执行，同时捕获错误：

con.BeginTrans
On Error GoTo TransactionRollback

con.Execute sql
con.CommitTrans
Exit Sub

TransactionRollback:
con.RollbackTrans
MsgBox "执行失败：" & Err.Description

内容的提问来源于stack exchange，提问作者jhTuppeny