Seite 1 von 1
Passwort zu MySQL über Makro eingeben
Verfasst: Do, 03.06.2010 12:56
von arkadiuszpaluszek
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:
- code.JPG (50.4 KiB) 1008 mal betrachtet
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
Re: Passwort zu MySQL über Makro eingeben
Verfasst: Do, 03.06.2010 21:09
von hol.sten
arkadiuszpaluszek hat geschrieben: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?
Vermutlich so, wie es im
StarOffice 8 Programming Guide for BASIC - Chapter 10 Database Access im Abschnitt
Data Sources steht:
Code: Alles auswählen
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
Für dich ist hier eigentlich nur die Zeile
Connection = DataSource.GetConnection("","") interessant, denn du willst ja gerade keine interaktive Abfrage bei deiner Passwort geschützten MySQL-Datenbank.
StarOffice 8 Programming Guide for BASIC hat geschrieben:... 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.
Vermutlich kann man die leeren Zeichenketten in
DataSource.GetConnection("","") auch mit Username und Passwort befüllen und sich so ohne Interaktion an der Datenbank anmelden:
DataSource.GetConnection("MY_USER_NAME","MY_PASSWORD")
So steht es zumindest auch in der
IDL reference.
Re: Passwort zu MySQL über Makro eingeben
Verfasst: Do, 03.06.2010 22:37
von arkadiuszpaluszek
Genauso ist es!
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