OpenOffice.info

Verfasst: **Mi, 28.03.2018 14:27**

Hallo,
ich bin völlig neu hier und benötige Eure Hilfe.
Hatte bisher mit Win-Access eine kleine Datenbank erstellt, muss es jetzt aber in OO tun.
Habe ein Formular erstellt und eine Schaltfläche eingeführt.
Diese Schaltfläche(Ware) soll beim Klicken eine Tabelle(Ware) öffnen.
Wie mache ich dass am Besten???

Verfasst: **Mi, 28.03.2018 14:58**

was am Besten ist weiß ich nicht, aber z.B. geht:

Code: Alles auswählen

Sub datentabelle_zeigen()
	Dim URL as New com.sun.star.util.URL
	Dim Args(5) as New com.sun.star.beans.PropertyValue
	Dim Dispatch As Object
	
	DatabaseContext1 = createUnoService("com.sun.star.sdb.DatabaseContext")
	Datenquelle1=DatabaseContext1.getByName(ThisDatabaseDocument.URL)
	Verbindung = Datenquelle1.GetConnection("","")
	
	sql= "Select * FROM ""Ware"""
	
    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

    Dispatch.dispatch(URL, Args)
End Sub

Gruß
Stephan

OpenOffice.info

Schaltfäche

Schaltfäche

Re: Schaltfäche