Makro für Datenbank Verbindung
Verfasst: Di, 24.11.2009 15:27
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:
In einem Formular lasse ich nun in der Main die Bibliothek mit folgenden Zeilen laden:
Danach möchte ich die Verbindung aufbauen mit diesem Code
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
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
Code: Alles auswählen
If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "CCBib" ) Then 'Bibliothek mit restlichen Makros laden
GlobalScope.BasicLibraries.loadLibrary( "CCBib" )
End ifCode: Alles auswählen
VerbindungDB = Verbindung( "CC", "", "" ) 'Datenbank CC verbinden mit leerem Benutzernamen und PasswortWas habe ich übersehen oder völlig missverstanden?
mfG CaptainCannabis
