IAdoMdCubeExecutor.OpenCellset

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    CubInst: ICubeInstance;
    CubDest: ICubeInstanceDestination;
    ExeCub: ICubeInstanceDestinationExecutor;
    ExeAdo: IAdoMdCubeExecutor;
    sMDX: String;
    Cellset: IAdoMdCellset;
    AxisInfo: IAdoMdAxisInfo;
    Axis: IAdoMdAxis;
    Dim: IAdoMdAxisDim;
    i, j: Integer;
Begin
    MB := MetabaseClass.Active;
    //Открываем куб ADOMD
    CubInst := MB.ItemByIdNamespace("Cube_1", MB.GetObjectKeyById("ADOMDTest")).Open(Null) As ICubeInstance;
    CubDest := CubInst.Destinations.DefaultDestination;
    //Создаем вычислитель
    ExeCub := CubDest.CreateExecutor;
    ExeAdo := ExeCub As IAdoMdCubeExecutor;
    //Указываем MDX-запрос
    sMDX := "SELECT ...";
    ExeAdo.MdxQuery := sMdx;
    //Получение аналитических данных в соответствии с указанным запросом
    Cellset := ExeAdo.OpenCellset;
    AxisInfo := Cellset.AxisInfo;
    Debug.WriteLine("Количество осей: " + AxisInfo.Count.ToString);
    For i := 0 To AxisInfo.Count - 1 Do
        Debug.WriteLine("Ось: " + i.ToString);
        Axis := AxisInfo.Item(i);
        Debug.WriteLine("Количество измерений: " + Axis.DimCount.ToString);
        For j := 0 To Axis.DimCount - 1 Do
            Dim := Axis.Dim(j);
            Debug.Indent;
            Debug.WriteLine("Измерение: " + Dim.Name + "; (Количество атрибутов: " + Dim.Cols.ToString + ")");
            Debug.WriteLine("Количество элементов в измерении:" + Dim.Instance.Elements.Count.ToString);
            Debug.Unindent;
        End For;
    End For;
End Sub UserProc;