LibreOffice-Forum

Code: Alles auswählen

SUB Open_Query_Table(oEvent AS OBJECT)
	DIM URL AS NEW com.sun.star.util.URL
	DIM Args(5) AS NEW com.sun.star.beans.PropertyValue
	DIM oDispatch AS OBJECT
	DIM stSQL AS STRING
	DIM stQueryName AS STRING
	stQueryName = oEvent.Source.Model.Tag	
	aQuery = Split(stQueryName,",")
    DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
    oDataSource=DatabaseContext.getByName(ThisDatabaseDocument.URL)
    oConnection = oDataSource.GetConnection("","")
    IF Trim(aQuery(0)) = "Query" THEN
    	stSQL = oConnection.Queries.getByName(Trim(aQuery(1))).command
    ELSE
		stSQL = "SELECT * FROM """+Trim(aQuery(1))+""""
    END IF    
	URL.Complete = ".component:DB/DataSourceBrowser"
	oDispatch = StarDesktop.queryDispatch(URL,"_Blank",8)
	Args(0).Name = "ActiveConnection"
	Args(0).Value = oConnection
	Args(1).Name = "CommandType"
	Args(1).Value = 2
	Args(2).Name = "Command"
	Args(2).Value = stSQL
	Args(3).Name = "ShowMenu"
	Args(3).Value = True
	Args(4).Name = "ShowTreeView"
	Args(4).Value = False
	Args(5).Name = "ShowTreeViewButton"
	Args(5).Value = False
	oDispatch.dispatch(URL, Args)
END SUB