IAdoMdCube.Dimensions

Fore Syntax

Fore.NET Syntax

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

Description

The Dimensions property returns the collection of the ADOMD cube dimensions described by the ICubeModelDimensions interface.

Fore Example

Executing the example requires that the repository contains an ADOMD catalog with the ADOMDTest identifier. The catalog contains the ADOMD cube with the Cube_1 identifier.

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;

The list of selected cube dimensions is displayed in the development environment output when executing the example.

Fore.NET Example

Executing the example requires that the repository contains an ADOMD catalog with the ADOMDTest identifier. The catalog contains the ADOMD cube with the Cube_1 identifier.

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;

The list of selected cube dimensions is displayed in the development environment output when executing the example.