OpenOffice.info

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

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

Hi,
die gleiche Frage wurde auch hier gestellt: [url]http://www.libreoffice-forum.de/viewtopic.php?f=10&t=6488[/url]
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]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[/code]

Gruß R

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