https://bugs.documentfoundation.org/show_bug.cgi?id=116890
--- Comment #18 from Lionel Elie Mamane <[email protected]> ---
(In reply to Lionel Elie Mamane from comment #17)
Sorry, wrong test code. One test case is:
Sub Main
Dim DBDocUI as Object
on error resume next
DBDocUI = ThisDatabaseDocument.currentController
if not DBDocUI.isConnected then
DBDocUI.connect
end if
on error goto 0
dim s as Object
's = DBDocUI.ActiveConnection.createStatement()
s = DBDocUI.ActiveConnection.prepareStatement("SELECT ""ID"" AS
""TID1"", ""ID"" AS ""TID2"" FROM ""MitgliederVerband""")
'dim rs as Object
'rs = s.executeQuery("SELECT ""ID"" AS ""TID1"", ""ID"" AS ""TID2""
FROM ""MitgliederVerband""")
'rs = s.executeQuery()
dim i as integer
for i=1 to s.metadata.ColumnCount
MsgBox i & ": " & s.metadata.getColumnName(i) & " " &
s.metadata.getColumnLabel(i)
next i
XRay s.columns.ElementNames
'XRay s.columns.getByName("ID")
'XRay s.columns.getByName("ID1")
End Sub
and the other is:
Sub Main
Dim DBDocUI as Object
on error resume next
DBDocUI = ThisDatabaseDocument.currentController
if not DBDocUI.isConnected then
DBDocUI.connect
end if
on error goto 0
dim s as Object
's = DBDocUI.ActiveConnection.createStatement()
s = DBDocUI.ActiveConnection.prepareStatement("SELECT ""ID"" AS
""TID1"", ""ID"" AS ""TID2"" FROM ""MitgliederVerband""")
'dim rs as Object
'rs = rs.executeQuery("SELECT ""ID"" AS ""TID1"", ""ID"" AS ""TID2""
FROM ""MitgliederVerband""")
rs = s.executeQuery()
dim i as integer
for i=1 to s.metadata.ColumnCount
MsgBox i & ": " & rs.metadata.getColumnName(i) & " " &
rs.metadata.getColumnLabel(i)
next i
XRay rs.columns.ElementNames
'XRay s.columns.getByName("ID")
'XRay s.columns.getByName("ID1")
End Sub
--
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
