Databases: IStringList;
Метод Databases извлекает список наименований всех доступных баз данных сервера, на работу с которым настроен каталог ADOMD.
Для выполнения примера предполагается наличие в репозитории каталога ADOMD с идентификатором «ADOMDTest».
Sub UserProc;
Var
MB: IMetabase;
Catalog: IAdoMdCatalogInstance;
Connection: IAdoMdConnection;
DB: IStringList;
s: String;
Begin
MB := MetabaseClass.Active;
Catalog := MB.ItemById("ADOMDTest").Open(Null) As IAdoMdCatalogInstance;
Connection := Catalog.Connection;
DB := Connection.Databases;
For Each s In DB Do
Debug.WriteLine(s);
End For;
End Sub UserProc;
При выполнении примера в консоль среды разработки будет выведен список баз данных, созданных на сервере, на который настроен каталог ADOMD.
См. также: