Databases: IStringList;
Databases(): System.Collections.Generic.IList<System.String>;
Метод 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.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.AdoMd;
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Catalog: IAdoMdCatalogInstance;
Connection: IAdoMdConnection;
DB: System.Collections.Generic.IList<System.String>;
s: String;
Begin
MB := Params.Metabase;
Catalog := MB.ItemById["ADOMDTest"].Open(Null) As IAdoMdCatalogInstance;
Connection := Catalog.Connection;
DB := Connection.Databases();
For Each s In DB Do
System.Diagnostics.Debug.WriteLine(s);
End For;
End Sub;
См. также: