当尝试运行此脚本时,我收到错误消息“运行时错误'3021‘BOF或EOF为True,或者当前记录已被删除。请求的操作需要当前记录。”
Function ExecuteSelect(sSelect As String) As Variant
Dim rs As ADODB.Recordset
Dim a As Variant
Set rs = New ADODB.Recordset
OpenConnection
rs.Open sSelect, DBCon, adOpenStatic, adLockOptimistic
a = rs.GetRows
CloseConnection
ExecuteSelect = a
End Function
发布于 2018-06-20 00:30:15
这个bug是由我的手表引起的。
在我尝试调试另一个问题的监视列表中,我设置了以下监视
rs.GetRows
摘掉这块手表解决了我的问题。
https://stackoverflow.com/questions/50933048
复制相似问题