https://bugs.documentfoundation.org/show_bug.cgi?id=116890

--- Comment #19 from Lionel Elie Mamane <lio...@mamane.lu> ---
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
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to