VBS+ADODB Recordset报错：找不到句柄-1的预准备语句

首先，这个错误的核心原因是数据库对IN子句的元素数量存在默认上限（比如SQL Server默认是1000个，不同数据库可能有差异）。当你一次性将数千个记录编号塞进IN列表时，数据库无法解析这个超长的SQL语句，直接返回执行错误，此时你的rsZones记录集并未正常初始化，所以调用MoveFirst会触发错误，而不是EOF返回True——毕竟连查询都没成功执行，记录集的状态是异常的。

下面给你几个可行的解决方案，按推荐程度排序：

方案1：拆分IN列表为多个小批次查询 #

把数千个编号分成每组不超过数据库上限（比如999个）的小批次，分别查询区域信息，然后逐个批次处理结果，更新rsFiles。

示例代码片段：

Dim arrRecordIDs, batchSize, i, startIdx, endIdx, sqlBatch
arrRecordIDs = ' 你的记录编号数组（从文件名提取的所有编号）
batchSize = 999 ' 根据你的数据库调整，比如SQL Server用999避免触发1000上限

For i = 0 To UBound(arrRecordIDs) Step batchSize
    startIdx = i
    endIdx = i + batchSize - 1
    If endIdx > UBound(arrRecordIDs) Then endIdx = UBound(arrRecordIDs)
    
    ' 构建当前批次的IN列表
    Dim inClause
    inClause = ""
    For j = startIdx To endIdx
        If inClause <> "" Then inClause = inClause & ", "
        inClause = inClause & "'" & arrRecordIDs(j) & "'" ' 注意编号的类型，字符串要加引号，数字不用
    Next
    
    ' 执行批次查询
    sqlBatch = "SELECT RecordID, Zone FROM Zones WHERE RecordID IN (" & inClause & ")"
    Set rsZones = cmd.Execute(sqlBatch) ' 假设你用ADODB.Command执行
    
    ' 处理当前批次的结果，更新rsFiles
    Do While Not rsZones.EOF
        ' 找到rsFiles中对应RecordID的记录，写入Zone信息
        rsFiles.Filter = "RecordID = '" & rsZones("RecordID").Value & "'"
        If Not rsFiles.EOF Then
            rsFiles("Zone").Value = rsZones("Zone").Value
            rsFiles.Update
        End If
        rsZones.MoveNext
    Loop
    rsZones.Close
Next

方案2：使用临时表替代IN子句 #

如果你的数据库支持临时表（比如SQL Server、MySQL），可以先把所有记录编号插入到临时表，然后通过JOIN查询区域信息，这样完全避开IN子句的长度限制。

示例代码片段：

' 1. 创建临时表
cmd.CommandText = "CREATE TABLE #TempRecordIDs (RecordID VARCHAR(50))" ' 根据你的编号类型调整字段类型
cmd.Execute

' 2. 批量插入所有记录编号到临时表
Dim arrRecordIDs, insertSql
arrRecordIDs = ' 你的记录编号数组
insertSql = "INSERT INTO #TempRecordIDs (RecordID) VALUES "
For i = 0 To UBound(arrRecordIDs)
    If i > 0 Then insertSql = insertSql & ", "
    insertSql = insertSql & "('" & arrRecordIDs(i) & "')"
Next
cmd.CommandText = insertSql
cmd.Execute

' 3. 通过JOIN查询区域信息
cmd.CommandText = "SELECT t.RecordID, z.Zone FROM #TempRecordIDs t LEFT JOIN Zones z ON t.RecordID = z.RecordID"
Set rsZones = cmd.Execute

' 4. 处理结果更新rsFiles，逻辑同方案1
Do While Not rsZones.EOF
    rsFiles.Filter = "RecordID = '" & rsZones("RecordID").Value & "'"
    If Not rsFiles.EOF Then
        rsFiles("Zone").Value = rsZones("Zone").Value
        rsFiles.Update
    End If
    rsZones.MoveNext
Loop

' 5. 清理临时表
cmd.CommandText = "DROP TABLE #TempRecordIDs"
cmd.Execute

额外注意事项 #

• 确认你的数据库IN子句的上限：比如Oracle默认是1000，PostgreSQL没有严格上限但性能会下降，所以拆分批次时要对应调整batchSize。
• 避免SQL注入：如果记录编号是用户输入的（这里是从文件名提取，相对安全，但也要注意），最好用参数化查询，而不是直接拼接字符串。比如用ADODB.Command的Parameters集合来传递批次的编号，不过VBS中批量参数化有点麻烦，拆分批次是更简单的折中方案。
• 记录集状态检查：在调用MoveFirst之前，最好先检查rsZones.State是否为adStateOpen，避免异常状态下的操作。

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