OpenOffice.info

Genauso ist es! :D

If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
Connection = DataSource.GetConnection("username","password")
End If

Das hat mein Problem gelöst, vielen herzlichen Dank!

Gruß

Arek

Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Customers")

If Not DataSource.IsPasswordRequired Then
   Connection = DataSource.GetConnection("","")
Else
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If

[quote="arkadiuszpaluszek"]Nun würde ich die Zeile in welcher das angegeben ist (also die markierte Zeile) gerne mit einem Code ersetzen, welcher der Datenbank einfach das Passwort mitteilt und verbindet, ohne dass ich es jedes mal manuell machen muss. Wie kann man sowas machen?[/quote]
Vermutlich so, wie es im [url=http://docs.sun.com/app/docs/doc/819-0439/faajr?l=en&q=staroffice+basic&a=view]StarOffice 8 Programming Guide for BASIC - Chapter 10 Database Access[/url] im Abschnitt [b]Data Sources[/b] steht:[code]Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
Dim InteractionHandler as Object

DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("Customers")

If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
Connection = DataSource.ConnectWithCompletion(InteractionHandler)
End If[/code]
Für dich ist hier eigentlich nur die Zeile [b]Connection = DataSource.GetConnection("","")[/b] interessant, denn du willst ja gerade keine interaktive Abfrage bei deiner Passwort geschützten MySQL-Datenbank.
[quote="StarOffice 8 Programming Guide for BASIC"]... it creates the database connection required using the GetConnection call. The two empty strings in the command line stand for the user name and password.[/quote]
Vermutlich kann man die leeren Zeichenketten in [b]DataSource.GetConnection("","")[/b] auch mit Username und Passwort befüllen und sich so ohne Interaktion an der Datenbank anmelden: [size=110][b]DataSource.GetConnection("MY_USER_NAME","MY_PASSWORD")[/b][/size]
So steht es zumindest auch in der [url=http://api.openoffice.org/docs/common/ref/com/sun/star/sdbc/XDataSource.html#getConnection]IDL reference[/url].

Hallo!

Ich möchte eine Anwendung schreiben, welche sich mit einer MySQL Datenbank verbindet - es scheitert nur an einem Punkt. Da die MySQL-Datenbank mit einem Passwort geschützt ist, muss ich dieses jedes mal wenn das Dokument startet manuell eingeben (das unten stehende Makro ist mit dem Ereignis "Dokument öffnen" verbunden). Im unten stehenden Code ist angegeben, dass im Falle, in welchem die Datenbank ein Passwort benötigt, dieses mit manueller Eingabe geschehen soll:
[attachment=0]code.JPG[/attachment]

Nun würde ich die Zeile in welcher das angegeben ist (also die markierte Zeile) gerne mit einem Code ersetzen, welcher der Datenbank einfach das Passwort mitteilt und verbindet, ohne dass ich es jedes mal manuell machen muss. Wie kann man sowas machen?

Viele Grüße

Arek