Liest alle vorhandenen Datenbanken in ein array.

Function GetListAllDatabases(ListofAllDatabases())

  Dim AllDatabases As Object

  Dim NameofDB

  Dim i As Integer

  DatabaseContext = createUnoService("com.sun.star.sdb.DatabaseContext")

  NameofDB = DatabaseContext.getElementNames()

  ' Zählen der Databases.

  For I = 0 To UBound(NameofDB())

  Next I

  Redim ListofAllDatabases(i-1)

  For i = 0 To UBound(NameofDB())

    ListofAllDatabases(i)=NameofDB(i)

  Next I

end Function