Листинг 11

Пример просмотра объектов куба

Dim myServer As New Server
myServer.Connect(«(local)»)
Dim databaseName As String
Dim db As Database
databaseName = «Adventure Works Sample»
db = myServer.Databases.Item(databaseName)
For Each myCube As Cube In db.Cubes
    Console.WriteLine(«The cube name is « & myCube.Name)
    For Each myCubeDimension As CubeDimension In myCube.Dimensions
       Console.WriteLine(« The cube dimension name is « & myCubeDimension.Name)
    Next
    For Each myMeasureGroup As MeasureGroup In myCube.MeasureGroups
        Console.WriteLine(« The measure group name is « & myMeasureGroup.Name)
        For Each myMeasure As Measure In myMeasureGroup.Measures
            Console.WriteLine(«  The measure name is « & myMeasure.Name)
        Next
        For Each myPartition As Partition In myMeasureGroup.Partitions
            Console.WriteLine(«  The partition name is « & myPartition.Name)
        Next
    Next
    For Each myKpi As Kpi In myCube.Kpis
        Console.WriteLine(« The KPI name is « & myKpi.Name)
    Next
Next