Schaltfäche

Datenbanklösungen mit AOO/LO

Moderator: Moderatoren

pauleskipper
Beiträge: 1
Registriert: Mi, 28.03.2018 14:18

Schaltfäche

Beitrag von pauleskipper »

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???
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Schaltfäche

Beitrag von Stephan »

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
Antworten