OpenOffice.info

Sub selfRegister (dbName as String)
   Dim dbContext As Object 
   Dim regDb As Object 
   Dim isRegegistered As boolean 
   Dim url As String
   dbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
   	url = thisComponent.getUrl
	regDb = dbContext.getByName (url)
 	isRegistered = dbContext.hasRegisteredDatabase(dbName)
 		if(isRegistered) Then 
    		dbContext.revokeObject(dbName)
			dbContext.registerObject (dbName, regDb)
		else 
			dbContext.registerObject (dbName, regDb)
		End if
		
End Sub

lösugng:

[code]Sub selfRegister (dbName as String)
Dim dbContext As Object
Dim regDb As Object
Dim isRegegistered As boolean
Dim url As String
dbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
url = thisComponent.getUrl
regDb = dbContext.getByName (url)
isRegistered = dbContext.hasRegisteredDatabase(dbName)
if(isRegistered) Then
dbContext.revokeObject(dbName)
dbContext.registerObject (dbName, regDb)
else
dbContext.registerObject (dbName, regDb)
End if

End Sub[/code]

[quote="juergen_w1987"]Damit ich die registrierung lösche und im anschluss gleich wieder die Datenbank neu registriere.[/quote]

Das ist unnötig.

Siehst Du Dir das Objekt [color=#008000]dbContext[/color] mit einem Objekt-Inspektor, wie [url=http://bernard.marcelly.perso.sfr.fr/index2.html]XRAY[/url]
an, dann siehst Du:

a) eine Methode [color=#008000].hasByName[/color], um zunächst das Vorhandensein zu prüfen, damit Du in dem Fall
b) die Eigenschaft [color=#008000].Name[/color] mit [color=#008000].setPropertyValue[/color] auf einen neuen (verschobenen) Pfad ändern kannst.


Das hilft Dir weiter?

Sub selfRegister (dbName as String)
   
   Dim dbContext As Object 
   Dim regDb As Object 
   Dim url As String
   dbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
   	url = thisComponent.getUrl
	regDb = dbContext.getByName (url)
	dbContext.registerObject (dbName, regDb)

hallo,

habe gerade openoffice auf 3.3.0 upgedatet.
Neues problem ich habe ein skript dass die Datenbank beim starten automatisch registriert. jetzt ist das aber seit 3.3.0 anders wollte schnell mal fragen wie man das skript anpassen muss??
[url]http://www.openoffice.org/dev_docs/features/3.3/#Support_of_Read-Only_Database_Registrations[/url]

[code]
Sub selfRegister (dbName as String)

Dim dbContext As Object
Dim regDb As Object
Dim url As String
dbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
url = thisComponent.getUrl
regDb = dbContext.getByName (url)
dbContext.registerObject (dbName, regDb)
[/code]

Die Fehlermeldung ist dass es schon den "dbName" gibt. wäre schon zufrieden wenn mir jemand den befehl zum löschen der registrierten Datenbank sagt. Damit ich die registrierung lösche und im anschluss gleich wieder die Datenbank neu registriere.

Ps: Das ganze brauche ich da die Datenbank des öfteren hin und her geschoben wird.

danke mfg

jürgen