<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body><table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Bug ID</th>
<td><a class="bz_bug_link
bz_status_UNCONFIRMED "
title="UNCONFIRMED - access2base recordset-bug"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=136063">136063</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>access2base recordset-bug
</td>
</tr>
<tr>
<th>Product</th>
<td>LibreOffice
</td>
</tr>
<tr>
<th>Version</th>
<td>7.0.0.3 release
</td>
</tr>
<tr>
<th>Hardware</th>
<td>All
</td>
</tr>
<tr>
<th>OS</th>
<td>Mac OS X (All)
</td>
</tr>
<tr>
<th>Status</th>
<td>UNCONFIRMED
</td>
</tr>
<tr>
<th>Severity</th>
<td>normal
</td>
</tr>
<tr>
<th>Priority</th>
<td>medium
</td>
</tr>
<tr>
<th>Component</th>
<td>BASIC
</td>
</tr>
<tr>
<th>Assignee</th>
<td>libreoffice-bugs@lists.freedesktop.org
</td>
</tr>
<tr>
<th>Reporter</th>
<td>info@knowhow-la.de
</td>
</tr></table>
<p>
<div>
<pre>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</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>