Makro für Datenbank Verbindung

[CaptainCannabis]

Hallo Open Office Forum,

ich habe in einer Makro-Bibliothek eine Funktion der man den Namen einer Datenbank sowie das zugehörige Passwort und den Benutzernamen übergibt. Dieses Makro sieht folgendermaßen aus:

Code: Alles auswählen

Function Verbindung ( DB_Name as String, DB_Benutzer as String, DB_PW as String )
	Dim Verbindungs_Dienst as Object
	Dim DB as Object
	Verbindungs_Dienst = createUnoService("com.sun.star.sdb.DatabaseContext")	'API Dienst einbinden
	DB = Verbindungs_Dienst.getByName( DB_Name )                                'Datenbank wählen ( Namen ggf. hier anpassen )
	VerbindungDB = DB.GetConnection ( DB_Benutzer, DB_PW )                  'Verbindung aufbauen ( Benutzername und Passwort hier ggf. angeben )
End Function 'Funktion Verbindung_DB

In einem Formular lasse ich nun in der Main die Bibliothek mit folgenden Zeilen laden:

Code: Alles auswählen

If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "CCBib" ) Then		'Bibliothek mit restlichen Makros laden	
   		GlobalScope.BasicLibraries.loadLibrary( "CCBib" )
End if

Danach möchte ich die Verbindung aufbauen mit diesem Code

Code: Alles auswählen

VerbindungDB = Verbindung( "CC", "", "" )			'Datenbank CC verbinden mit leerem Benutzernamen und Passwort

VerbindungDB ist als public Object definiert damit ich es später in einer anderen Sub benutzen kann An dieser Stelle bekomme ich momentan den Fehler das die Objektvariable nicht belegt ist.

Was habe ich übersehen oder völlig missverstanden?

mfG CaptainCannabis

[komma4]

Deine Funktion gibt VerbindungDB zurück...

[CaptainCannabis]

Super - wieder mal Betriebsblind!