Startseite
|
Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos:
starbasic@dannenhoefer.de
Startseite
>
10. Makros und Tools
>
10.3 Tools vom Dannenhöfer
>
10.3.21 GetListAllDatabases(ListofAllDatabases())
Zurück
Vor
10.3.21
GetListAllDatabases(ListofAllDatabases())
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
Seitenanfang
Letzte Aktualisierung:
06.04.2009