wizards/source/access2base/Recordset.xba |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

New commits:
commit d96b67bb33ee5736e298dd708dd5d96f83f646e4
Author:     Jean-Pierre Ledure <j...@ledure.be>
AuthorDate: Mon Jul 22 11:16:38 2019 +0200
Commit:     Jean-Pierre Ledure <j...@ledure.be>
CommitDate: Mon Jul 22 11:20:40 2019 +0200

    Access2Base - FIX GetRows abort
    
    https://forum.openoffice.org/en/forum/viewtopic.php?
    f=47&t=61447&sid=a91a30f8f02fe6dd656b2940a26d8c5c&start=30#p473874
    
    Precise module name in call to _getResult...

diff --git a/wizards/source/access2base/Recordset.xba 
b/wizards/source/access2base/Recordset.xba
index 88a029190a27..094bba000d7b 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -608,7 +608,7 @@ Dim vMatrix() As Variant, lSize As Long, iNumFields As 
Integer, i As Integer
        Do While Not _EOF And lSize &lt; pvNumRows - 1
                lSize = lSize + 1
                For i = 0 To iNumFields
-                       vMatrix(i, lSize) = _getResultSetColumnValue(RowSet, i 
+ 1)
+                       vMatrix(i, lSize) = 
Utils._getResultSetColumnValue(RowSet, i + 1)
                        If pbStrDate And IsDate(vMatrix(i, lSize)) Then 
vMatrix(i, lSize) = _CStr(vMatrix(i, lSize))
                Next i
                _Move(&quot;NEXT&quot;)
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits

Reply via email to