https://bugs.documentfoundation.org/show_bug.cgi?id=114464
[email protected] changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|NEEDINFO |UNCONFIRMED
Ever confirmed|1 |0
--- Comment #3 from [email protected] ---
REM You need a resultset oResult from a database query to reproduce this,
sorry...
Function Read_oResult(oResult AS Object)
'reads a ResultSet from a Database query and gives an array back (only the
first row of a resultset)
DIM var()
DIM count_columns AS Integer
DIM i AS Integer
DIM sDataTyp_Row AS String
DIM sName_Column AS String
DIM n as Integer
DIM count_rows as INTEGER
'retrieve the number of rows
oResult.last
count_rows = oResult.getRow
oResult.beforefirst
if count_rows = 0 then
Read_oResult = null
else
count_columns = oResult.columns.count
for i = 0 to count_columns-1
'see bugreport
ttps://bugs.documentfoundation.org/show_bug.cgi?id=114464
' inserted the next line with no use but only
if inserted, oResult.columns.ElementNames(i)).TypeName works
' I need the datatype later to read the data
with oResult.getInt...etc.
' to reproduce - just comment the next line
out
oResult.columns.getByName(oResult.columns.ElementNames(i)).Type
sDataTyp_Row =
oResult.columns.getByName(oResult.columns.ElementNames(i)).TypeName
print sDataTyp_Row
NEXT i
end if
' .....do more to read the resultset in var()
Read_oResult = var()
End Function
--
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
