hi Andrew, Am Montag 07 November 2005 06.33 schrieb Andrew Douglas Pitonyak: > >>>>I tried > >>>>oTables = oCon.getTables() > >>>>oTables.refresh() > >>>> > >>>>This did not work.... > >>> > >>>This is surprising, since it's exactly what the Controller > >>> does with its own connection when you dispatch the URL ... > >>> > >>>Ciao > >>>Frank > >> > >>Initially, adding a table worked with oTables.refresh(), but > >>delete did not. I performed a couple of iterations and then > >>adding worked sometimes, and sometimes not. Using the dispatch > >>ALWAYS > > > >a strong word (in SW only used by inveterate optimists) :-) > > > >>worked. All of the code that I use is found in this document: > >>http://www.pitonyak.org/database/OOoBaseBinaryFields.odt
> >>There is a section titled: "Using SQL statements to modify > >>tables". I show the code that I currently use to refresh the > >>database document, and then the code that I use to remove and > >> add tables... Not that it probably matters. Working hard to > >> document things so that I will know how to do things that I > >> think are cool! :-) > > > >Your macros 'RefreshTables' and 'FindComponentWithURL' are as > > usual helpfully, but -how perfidy- if you start OOo 'Help' just > > before you start 'RefreshTables' , the 'oDocs.hasLocation' > > calls out 'Property or method not found' > >No idea how to prevent... > > > >Wolfgang > > I had never run this with the help open... I have not tested this > code at all, but it is my guess what I really need to have! see below > > Function FindComponentWithURL(sURL As String, bLoadIfNotFound As > Boolean) Dim oDocs ' Enumeration of the loaded components. > Dim oDoc ' A single enumerated component. > Dim sSt$ ' XStorable interface name. > Dim sODoc ' Office document service name. > > sSt$ = "com.sun.star.frame.XStorable" > sODoc = "com.sun.star.document.OfficeDocument" > oDocs = StarDesktop.getComponents().createEnumeration() > Do While oDocs.hasMoreElements() > oDoc = oDocs.nextElement() > If NOT HasUNOInterfaces(oDoc, sSt) Then file:///home/ws/OO_doc/OOoBaseBinaryFields.odt and my base file are ending here .=(( > REM This test filters out the Help system nad makes certain > REM That the document supports "hasLocation" > ElseIf NOT oDoc.supportsService(sODoc) Then > REM Filter out the Basic IDE, which supports the > REM com.sun.star.script.BasicIDE service, but not > REM the office document service. Probably does not > REM matter, but I do it because I want to. > ElseIf NOT oDoc.hasLocation() Then > REM This document has never been saved, so there is not URL > REM to compare against. > ElseIf oDoc.getURL() = sURL Then > FindComponentWithURL = oDoc > Exit Function > End If > Loop > > REM In OOo version 1.x, loadComponentFromURL() returned NULL > REM if the document did not exist. Starting with version 2.x, > REM an illegal argument exception is thrown instead. > If bLoadIfNotFound AND FileExists(sURL) Then > oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, > Array()) FindComponentWithURL = oDoc > 'Else > ' FindComponentWithURL = NULL > End If > End Function Wolfgang --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
