https://bugs.documentfoundation.org/show_bug.cgi?id=116890
--- Comment #19 from Lionel Elie Mamane <[email protected]> ---
Rah... Second test case, this time correct, 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 rs.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
