OpenOffice.info

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

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

[code]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
[/code]

Gruß
Stephan

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???