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???
Schaltfäche
Moderator: Moderatoren
Re: Schaltfäche
was am Besten ist weiß ich nicht, aber z.B. geht:
Gruß
Stephan
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
Stephan