Schaltfäche

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Schaltfäche

Re: Schaltfäche

von Stephan » 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

Schaltfäche

von pauleskipper » 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???

Nach oben