OpenOffice.info

Code: Alles auswählen

' Passwortabfrage umgehen
sub VerbindungDatenbank
Dim DatabaseContext As Object
Dim DataSource As Object
Dim Connection As Object
DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")
DataSource = DatabaseContext.getByName("DBname")
DataSource.Password = "password"
If Not DataSource.IsPasswordRequired Then
Connection = DataSource.GetConnection("","")
Else
Connection = DataSource.GetConnection("user","password")
End If
end sub