Abfrage mit Macro öffnen

[pawonkau]

Hallo,
ich möcht eine Abfrage über ein Macro öffnen. Das Öffnen eines Formulars habe ich ja hinbekommen mit:

Sub open_Form
ThisDatabaseDocument.formdocuments.getbyname("Kunden").open
end sub

Meine Abfrage lautet: offen.

Wie muss das Macro aussehen?

Danke im Voraus

[F3K Total]

Hi,
die gleiche Frage wurde auch hier gestellt: http://www.libreoffice-forum.de/viewtop ... =10&t=6488
Solltest Du das auch geschrieben haben, bitte hierher verweisen.

Ich habe den Code zwarf nicht vollständig durchdrungen, aber er funzt.
Leider fehlt die benamste Kopfzeile im Fenster.

Code: Alles auswählen

Sub S_Open_Query(optional s_NameOfQuery)

dim s_NameOfQuery$
Dim URL as New com.sun.star.util.URL
Dim Args(5) as New com.sun.star.beans.PropertyValue
Dim Dispatch As Object

if s_NameOfQuery="" then
s_NameOfQuery="Meine Abfrage"
endif

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
Datenquelle=DatabaseContext.getByName(ThisDatabaseDocument.URL)
Verbindung = Datenquelle.GetConnection("","")
sql=Verbindung.queries.getbyname(s_NameOfQuery).command

    URL.Complete = ".component:DB/DataSourceBrowser"
    Dispatch = StarDesktop.queryDispatch(URL,"_Blank",8)

    Args(0).Name = "ActiveConnection" 
    Args(0).Value = Verbindung
    Args(1).Name = "CommandType"
    Args(1).Value = 2
    Args(2).Name = "Command"
    Args(2).Value = sql
    Args(3).Name = "ShowMenu"
    Args(3).Value = True
    Args(4).Name = "ShowTreeView"
    Args(4).Value = False
    Args(5).Name = "ShowTreeViewButton"
    Args(5).Value = False
'und öffnen
    Dispatch.dispatch(URL, Args)

End Sub

Gruß R

[pawonkau]

Vielen Dank für die Antwort. Ich werde es ausprobieren.
Nein, ich bin nicht zemudo!!