P015
Odczyt nazwy bazy danych
Nazwę bazy danych można uzyskać poprzez odczytanie właściwości Name obiektu Database. Aby odczytać nazwę bazy danych aktualnie otwartej w oknie programu Microsoft Access, można użyć funkcji CurrentDb, np.:
Dim dbname As String
dbname=CurrentDb.Name
Uwaga. Właściwość Name zwraca pełną ścieżkę do pliku danej bazy, np. "C:\Mojebazy\mojabaza.mdb". Jeżeli zachodzi potrzeba uzyskamia tylko nazwy ściezki, można napisać własną procedurę pomocniczą, wyszukującą miejsce wystąpienia pierwszego znaku '\' (backslash) "od prawej strony". Oto przyklad (Acc'97, nadesłał Tomasz Bednarz):
Function SciezkaBazyDanych() As String
Dim SciezkaNazwaBazy As String
Dim n As Long
SciezkaNazwaBazy = CurrentDb.Name
For n = Len(SciezkaNazwaBazy) To 0 Step -1
If Mid$(SciezkaNazwaBazy, n, 1) = "\" Then
SciezkaBazyDanych = Left$(SciezkaNazwaBazy, n)
Exit For
End If
Next n
End Function
Napisał: Stanley, 28.05.1999, modyfikacja 26 lipca 1999