Cubes: IStringList;
The Cubes property returns the collection of cubes that contain the current ADOMD dictionary in their structure.
Executing the example requires that the repository contains an ADOMD catalog with the ADOMDTest identifier. The catalog includes the ADOMD dictionary with the DimTest identifier.
Sub UserProc;
Var
MB: IMetabase;
Dim: IAdoMdDimension;
Cubes: IStringList;
s: String;
Begin
MB := MetabaseClass.Active;
Dim := MB.ItemByIdNamespace("DimTest", MB.GetObjectKeyById("ADOMDTest")).Bind As IAdoMdDimension;
Cubes := Dim.Cubes;
For Each s In Cubes Do
Debug.WriteLine(s);
End For;
End Sub UserProc;
The list of cubes, structure of which includes the selected dictionary is displayed in the development environment output after executing the example.
See also: