VB6移除DoEvents后ADODB.RecordSet.Open执行失败及内存问题排查

问题1：移除DoEvents后大查询报错“对象已打开”（错误码-2147217915） #

原因 #

• 使用adUseClient客户端游标时，ADO需要将SQL Server返回的380k条记录全量拉取到本地内存，这个加载过程是异步的。rs.Open调用后会立即返回，但此时游标实际还在后台处理数据，rs对象并未完全就绪。
• 移除DoEvents后，代码会立刻返回错误码，但ADO的后台加载尚未完成，后续操作时游标处于“正在打开”的中间状态，触发“对象已打开”错误。
• 保留DoEvents时，会让出CPU时间片，让ADO完成数据加载，确保rs对象完全就绪后再执行后续逻辑。

解决办法 #

1. 确保记录集先关闭：在rs.Open前强制关闭已有打开的记录集，避免状态冲突：

   Public Function openRec(db As ADODB.Connection, rs As ADODB.Recordset, sql As String) As Long
       On Error Resume Next
       ' 提前关闭旧记录集
       If rs.State = adStateOpen Then rs.Close
       rs.CursorLocation = adUseClient
       rs.CacheSize = 8000
       rs.Open sql, db, adOpenForwardOnly, adLockOptimistic
       ' 等待记录集加载完成
       Do While rs.State <> adStateOpen Or (Not rs.EOF And rs.AbsolutePosition = adPosUnknown)
           DoEvents ' 避免界面假死，可根据场景调整
       Loop
       openRec = Err.Number
   End Function
   

2. 改用服务器端游标：如果不需要客户端游标特性（如RecordCount、随机访问），切换为adUseServer，减少本地内存占用，且rs.Open会同步完成：

   rs.CursorLocation = adUseServer
   

问题2：访问rs.RecordCount时报“内存不足”（错误码-2147024882） #

原因 #

• adUseClient游标会把所有380k条记录一次性加载到本地内存，RecordCount需要遍历整个记录集统计总数，这个过程会占用大量内存。VB6是32位进程，最大可用内存约1.5GB，大量记录直接触发内存溢出。
• Win7 64位系统下，32位VB6进程的内存限制依然存在，SQL Server返回的全量数据远超内存承载能力。

解决办法 #

1. 单独查询记录总数：不要通过rs.RecordCount获取总数，改用单独的SQL统计：

   SELECT COUNT(*) FROM PRO_TEIL_AUFTRAG WHERE TETEILNR LIKE '%%' AND PAAUFTRAG = 0 AND MEMERKMAL = 1
   

   用独立的记录集执行该查询，避免加载全量数据。
2. 优化SQL查询：
   • 移除无意义的LIKE '%%'（等价于全表扫描），添加业务上的过滤条件减少返回记录数；
   • 替换SELECT *为具体需要的字段，降低单条记录的内存占用。
3. 分批加载数据：利用CacheSize分批处理记录，避免一次性加载全量数据：

   Public Function ShowDataGrid(sql As String)
       If openRec(DataDb, rs, sql) = 0 Then
           rs.CacheSize = 1000 ' 每次加载1000条
           Do Until rs.EOF
               ' 处理当前缓存的记录
               Dim i As Long
               For i = 1 To 1000
                   If rs.EOF Then Exit For
                   ' Do something with each record
                   rs.MoveNext
               Next i
               ' 触发下一批数据加载
               rs.MoveLast
               rs.MoveFirst
           Loop
       End If
   End Function
   

4. 改用服务器端游标：adUseServer游标下，adOpenForwardOnly类型无法获取RecordCount，但会逐条从服务器拉取数据，内存占用极低，适合大记录量遍历。

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