Seite 1 von 1
Abfrage mit Macro öffnen
Verfasst: Mi, 23.11.2011 11:51
von 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
Re: Abfrage mit Macro öffnen
Verfasst: Mi, 23.11.2011 17:45
von 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
Re: Abfrage mit Macro öffnen
Verfasst: Do, 24.11.2011 15:06
von pawonkau
Vielen Dank für die Antwort. Ich werde es ausprobieren.
Nein, ich bin nicht zemudo!!