| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

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 |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009