Well this should be closer to what I would want to happen:
Sub Test( aQueryName as string, aConnection as variant )
oDesktop = createUnoService("com.sun.star.frame.Desktop")
Dim aURL as New com.sun.star.util.URL
aURL.Complete = ".component:DB/FormGridView"
oDispatchObject = oDesktop.queryDispatch(_
aURL, _
"_BLANK",_
com.sun.star.frame.FrameSearchFlag.CREATE)
Dim aProps(2) as New com.sun.star.beans.PropertyValue
aProps(0).Name = "ActiveConnection"
aProps(0).Value = aConnection
aProps(1).Name = "CommandType"
aProps(1).Value = com.sun.star.sdb.CommandType.COMMAND
aProps(2).Name = "Command"
aProps(2).Value = aConnection.queries.getByname( aQueryName ).command
oDispatchObject.dispatch(aURL, aProps)
End Sub
This gives me the dataview form on the screen - but again no data...arrrgh.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
