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

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

Reply via email to