Off Topic: OpenOffice.org Base HSQLD Help

[Larry Hartman]

On Tuesday 01 January 2008 05:38:52 pm Larry Hartman wrote:
> On Tuesday 01 January 2008 01:47:44 pm Donn wrote:
> > > concatenate function statements....I don't know the internals well
> > > enough to understand why.  CHAR ( 44) is a comma, CHAR( 32 ) is a
> > > space.
> >
> > I don't know OOO Base from a hole in the ground, but those chars are
> > ascii values. 32 is space, 44 a comma, 65 is A, 66 B and so on.
> >
> > \d
>
> I assumed as much but nothing definitive to tell me.
>
> </RANT>
>
> Took me three hours or so today to find a sample code for making a button
> open another form.  While I wish not to say this, it does appear that MS
> VBA is far easier and more intuitive to learn than Star Basic, and the MS
> documentation is much better structured and easier to digest....such is the
> dismal state of Star Basic used in Open Office.
>
> </END RANT>

For anyone interested....below is the code snippet I found in the 
openoffice.org foums for opening another form in Base via a button planted on 
one form.  Just replace the Sub lien with you own name and 
the "FRM-DOCUMENTS" with your form's name.  I don't know how it all works 
yet, but it does seem to work well.

Larry

====================================================

Sub OpenFormDocuments
	OpenForm(getFormsTC, getConnectionTC,"FRM-DOCUMENTS")
End Sub

Function OpenForm(formContainer as variant, oConnection as variant, sFormName 
as string) as variant
	Dim aProp(1) As New com.sun.star.beans.PropertyValue
	aProp(0).Name = "ActiveConnection"
	aProp(0).Value = oConnection
	aProp(1).Name = "OpenMode"
	aProp(1).Value = "open"
	OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
End Function

Function getFormsTC() as variant
	getFormsTC = thisComponent.Parent.getFormDocuments
End Function

Function getConnectionTC() as variant
	getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection
End Function