ADO 记录集似乎缓存旧结果答案

【问题标题】：ADO recordset seems to cache old resultsADO 记录集似乎缓存旧结果
【发布时间】：2021-03-01 20:10:32
【问题描述】：

我在创建连接字符串 (Excel) 并查询工作表时遇到问题，我可以获取结果，放入记录集中，然后转置到目标工作表中。

问题是，由于某种原因，如果我返回并编辑此工作表（不保存），则记录集正在缓存 OLD 结果。例如：我首先查询了 10 行，返回了 10 行，删除了其中的 7 行，再次执行查询，但它返回了原始的 10 行，而不是我对剩余 3 行的期望。我已经彻底使用过这种方法，从未遇到过这个问题和相信它以某种方式与记忆有关......

请帮忙...

Public Sub sbTest()

Dim wb As Workbook

Dim wsData As Worksheet, _
wsTmp As Worksheet

Set wb = ThisWorkbook
Set wsData = wb.Sheets("Data"): wsData.Cells.ClearContents
Set wsTmp = wb.Sheets("Temporary")



sSQL = "SELECT * FROM [" & wsTmp.Name & "$]"
Call mUtilities.sbRunSQL(sConnXlsm, wb.FullName, sSQL, wsData.Cells(1, 1))

    'Cleanup
Set wb = Nothing
Set wsData = Nothing
Set wsTmp = Nothing

End Sub


Public Const sConnXlsm As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=zzzzz;Extended Properties=""Excel 12.0 Macro;HDR=YES;IMEX=1"";"

Public Sub sbRunSQL(ByVal sConn As String, ByVal sSource As String, ByVal sSQL As String, ByVal rDest As Range, _
Optional ByVal bHeader As Boolean = True, Optional ByVal bMsg As Boolean = True)


Dim oCn As ADODB.Connection, _
oRs As ADODB.Recordset, _
oFld As ADODB.Field

Dim vArr As Variant

    'Setup
On Error GoTo Cleanup

    'Handle DELETE and INSERT INTO Access queries seperately from other types
If (UCase(Left(sSQL, 6)) = "DELETE" Or UCase(Left(sSQL, 11)) = "INSERT INTO") And sConn = sConnAccess Then

    Set oCn = CreateObject("ADODB.Connection")
    oCn.Open Replace(sConn, "zzzzz", sSource)

    sSQL = Replace(sSQL, "FROM ", "FROM [Excel 8.0;HDR=YES;DATABASE=" & ThisWorkbook.FullName & "].")
    oCn.Execute sSQL

        'Exit if successful
    oCn.Close
    Set oCn = Nothing
    Exit Sub

Else

    Set oRs = Nothing
    Set oRs = New ADODB.Recordset
    oRs.Open sSQL, Replace(sConn, "zzzzz", sSource), adOpenForwardOnly, adLockReadOnly

    If Not (oRs.BOF And oRs.EOF) Then
        vArr = oRs.GetRows
        vArr = fTranspose(vArr)                                 'The .GetRows process tranposes the data so we need to undo this

        If bHeader = True Then
            For i = 0 To oRs.Fields.Count - 1
                rDest.Offset(0, i).Value = oRs.Fields(i).Name
            Next i
            Range(rDest.Offset(1, 0), rDest.Offset(UBound(vArr, 1) + 1, UBound(vArr, 2))) = vArr
        Else
            Range(rDest, rDest.Offset(UBound(vArr, 1), UBound(vArr, 2))) = vArr
        End If

            'Exit if successful
        oRs.Close
        Set oRs = Nothing
        Exit Sub

    End If
End If

    'Cleanup
Cleanup:
If bMsg = True Then
    MsgBox "Critical error!" & vbNewLine & vbNewLine & _
    "Error: " & Err.Description & vbNewLine & vbNewLine & _
    "SQL: " & sSQL, vbCritical + vbOKOnly
End If

Set oCn = Nothing
Set oRs = Nothing

End Sub

【问题讨论】：

哪个工作表已更改且未保存？你要查询的那个？如果是这样，如果您尚未保存更改，为什么应该反映您的更改？

标签： excel vba ado adodb recordset

【解决方案1】：

对于它的价值，我能够解决这个问题，如果打开多个 Excel 实例，该问题似乎与某种延迟错误有关。在这种情况下，我只是强制只打开一本书。

Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set oProc = oWMI.ExecQuery("SELECT * FROM Win32_Process WHERE NAME = 'Excel.exe'")

If oProc.Count > 1 Then
    MsgBox "There are " & oProc.Count & " instances of Excel open." & vbNewLine & vbNewLine & _
    "Only 1 instance is allowed open in order to update database.", vbCritical + vbOKOnly
    GoTo Cleanup
End If

【讨论】：