[Libreoffice-bugs] [Bug 121342] Access2Base Counter for OpenRecordset usage is too low

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=121342

--- Comment #7 from tsultana <tony.sultana at pm.me> ---
I installed the the Recordset to the /home/user/.config/libreoffice/4/user
folder and restarted LO Base.

The following code was tested before the patch to confirm the same overflow
error.  Running the same function after the patch crashes immediately after k =
32767 with the same error.

Sub test(v As Double)
        Dim rec As Object, k As Long 

        Do
                k = k + 1
                If k Mod 10000 = 0  or k Mod 32767 = 0 Then
                        If msgbox("k = " & k, 1) = 2 Then
                                Exit Do  
                        End If 
                End If 
                rec = CurrentDb().OpenRecordset("configurations")
                rec.mClose
        Loop 
        CurrentDb().CloseAllRecordsets()
End Sub

Stepping into CloseAllRecordsets() in Access2Base.Database the
RecordsetsColl.Count equals 0 and exits in the second If/Then below without
clearing the RecordsetMax variable which overflowed.

Public Sub CloseAllRecordsets()
'       Clean all recordsets for housekeeping

Dim sRecordsets() As String, i As Integer, oRecordset As Object
        On Local Error Goto Exit_Sub

        If IsNull(RecordsetsColl) Then Exit Sub
        If RecordsetsColl.Count < 1 Then Exit Sub

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20181111/0d2aee00/attachment-0001.html>