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: [email protected]
Reporter: [email protected]
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._______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
