WellKnownDriver: AdoMdWellKnownDriverType;
WellKnownDriver: Prognoz.Platform.Interop.AdoMd.AdoMdWellKnownDriverType;
Свойство WellKnownDriver определяет драйвер, используемый при открытии каталога ADOMD.
Если свойству WellKnownDriver установлено значение AdoMdWellKnownDriverType.None, то необходимо определить значение свойство Driver.
Sub UserProc;
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
CatAdo: IAdoMdCatalog;
Begin
MB := MetabaseClass.Active;
CrInfo := MB.CreateCreateInfo;
CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_ADOMD_CATALOG;
CrInfo.Id := "SAP_TEST";
CrInfo.Name := "Каталог на базе SAP
NetWeaver BW";
CrInfo.Parent := MB.Root;
CatAdo := MB.CreateObject(CrInfo).Edit As IAdoMdCatalog;
CatAdo.WellKnownDriver := AdoMdWellKnownDriverType.SAP;
CatAdo.Server := "Sap_test";
CatAdo.Name := "$TEST_CUBE";
CatAdo.ProviderString := "SFC_CLIENT=001";
CatAdo.LoginPrompt := True;
(CatAdo As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в корневом каталоге репозитория будет создан новый каталог ADOMD. Данный каталог будет настроен на подключение к базе данных "$TEST_CUBE" расположенной на сервере "Sap_test". При подключении будет использоваться драйвер SAP NetWeaver BW. Клиент, под которым осуществляется подключение - "001". При открытии каталога будет выводиться диалог ввода учетных данных.
Указанный пример является точкой входа для .NET-сборки.
Imports Prognoz.Platform.Interop.AdoMd;
Imports Prognoz.Platform.Interop.Metabase;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
CrInfo: IMetabaseObjectCreateInfo;
CatAdo: IAdoMdCatalog;
Begin
MB := Params.Metabase;
CrInfo := MB.CreateCreateInfo();
CrInfo.ClassID := Convert.ToInt32(MetabaseObjectClass.KE_CLASS_ADOMD_CATALOG);
CrInfo.Id := "SAP_TEST";
CrInfo.Name := "Каталог на базе SAP
NetWeaver BW";
CrInfo.Parent := MB.Root;
CatAdo := MB.CreateObject(CrInfo).Edit() As IAdoMdCatalog;
CatAdo.WellKnownDriver := AdoMdWellKnownDriverType.adomdwkdtSAP;
CatAdo.Server := "Sap_test";
CatAdo.Name := "$TEST_CUBE";
CatAdo.ProviderString := "SFC_CLIENT=001";
CatAdo.LoginPrompt := True;
(CatAdo As IMetabaseObject).Save();
End Sub;
После выполнения примера в корневом каталоге репозитория будет создан новый каталог ADOMD. Данный каталог будет настроен на подключение к базе данных "$TEST_CUBE" расположенной на сервере "Sap_test". При подключении будет использоваться драйвер SAP BW. Клиент, под которым осуществляется подключение - "001". При открытии каталога будет выводиться диалог ввода учетных данных.
См. также: