[Libreoffice-bugs] [Bug 136063] New: access2base recordset-bug

[bugzilla-daemon at bugs.documentfoundation.org]

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

            Bug ID: 136063
           Summary: access2base recordset-bug
           Product: LibreOffice
           Version: 7.0.0.3 release
          Hardware: All
                OS: Mac OS X (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: BASIC
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: info at knowhow-la.de

Description:
In LO 7.0 on MacOs and Linux using an embedded firebird database it ist not
possible to access any method of the recordset-fields-object in LO Basic. The
following code produces an error in LO 7.0 but works with LO 6.4.6:

Dim objRec As Object
Dim objCon As Object
Dim objField As Object

If GlobalScope.BasicLibraries.hasByName("Access2Base") Then
    GlobalScope.BasicLibraries.loadLibrary("Access2Base")
End If
Call Application.OpenConnection(ThisDatabaseDocument)


Set objCon = Application.CurrentDb()
Set objRec = objCon.OpenRecordset("SELECT * FROM KONTAKTE")
Dim intCount As Long

intCount = 0

While Not objRec.EOF
    intCount = intCount + 1
    ' The following Line produces the error-message given below:
    ' Dim objRec As Object
Dim objCon As Object
Dim objField As Object

If GlobalScope.BasicLibraries.hasByName("Access2Base") Then
    GlobalScope.BasicLibraries.loadLibrary("Access2Base")
End If
Call Application.OpenConnection(ThisDatabaseDocument)


Set objCon = Application.CurrentDb()
Set objRec = objCon.OpenRecordset("SELECT * FROM KONTAKTE")
Dim intCount As Long

intCount = 0

While Not objRec.EOF
    intCount = intCount + 1
    ' Die folgende Zeile verursacht den Fehler:
    ' Error #13 (Datentypen unverträglich) aufgetreten in Zeile 407 in
Field.getValue
    msgBox objRec.Fields("NAME1").Value
    objRec.MoveNext()
Wend
objRec.MoveFirst()
    msgBox objRec.Fields("NAME1").Value
    objRec.MoveNext()
Wend
objRec.MoveFirst()

Steps to Reproduce:
1.Just use any firebird database and execute the given code
2.
3.

Actual Results:
Error-Message: "Error #13 (Datentypen unverträglich) aufgetreten in Zeile 407
in Field.getValue" produced - the same is for any method of the fields-Object

Expected Results:
The basic code-crashes


Reproducible: Always


User Profile Reset: No



Additional Info:
printed out the field values

-- 
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/20200824/1dd70672/attachment.htm>