IAdoMdCube.Dimensions

Синтаксис Fore

Dimensions: ICubeModelDimensions;

Синтаксис Fore.NET

Dimensions: Prognoz.Platform.Interop.Cubes.ICubeModelDimensions;

Описание

Свойство Dimensions возвращает коллекцию измерений куба ADOMD, описываемую интерфейсом ICubeModelDimensions.

Пример Fore

Для выполнения примера предполагается наличие в репозитории каталога ADOMD с идентификатором «ADOMDTest». В каталоге имеется куб ADOMD с идентификатором «Cube_1».

Sub UserProc;
Var
    MB: IMetabase;
    Cube: IAdoMdCube;
    Dims: ICubeModelDimensions;
    Dim: IMetabaseObject;
Begin
    MB := MetabaseClass.Active;
    Cube := MB.ItemByIdNamespace("Cube_1", MB.GetObjectKeyById("ADOMDTest")).Bind As IAdoMdCube;
    Dims := Cube.Dimensions;
    For Each Dim In Dims Do
        Debug.WriteLine(Dim.Name + " (" + Dim.Id + ")");
    End For;
End Sub UserProc;

При выполнении примера в консоль среды разработки будет выведен список измерений указанного куба.

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории каталога ADOMD с идентификатором «ADOMDTest». В каталоге имеется куб ADOMD с идентификатором «Cube_1».

Imports Prognoz.Platform.Interop.AdoMd;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Cube: IAdoMdCube;
    Dims: ICubeModelDimensions;
    Dim: IMetabaseObject;
Begin
    MB := Params.Metabase;
    Cube := MB.ItemByIdNamespace["Cube_1", MB.GetObjectKeyById("ADOMDTest")].Bind() As IAdoMdCube;
    Dims := Cube.Dimensions;
    For Each Dim In Dims Do
        System.Diagnostics.Debug.WriteLine(Dim.Name + " (" + Dim.Id + ")");
    End For;
End Sub;

При выполнении примера в консоль среды разработки будет выведен список измерений указанного куба.

См. также:

IAdoMdCube