Enumerations

The Microsoft® SQL Server™ OLAP Services Decision Support Objects (DSO) object model provides a number of enumerations. For example, the following code uses the ClassTypes enumeration to retrieve the class type of an object and determine whether the object is a cube, a virtual cube, or some other object:

' Assume that the object dsoServer of ClassType clsServer exists

Dim dsoDB as MDStore

Dim dsoCube as MDStore

Dim CubeCounter as Integer

Set dsoDB = dsoServer.MDStores(1)

For CubeCounter = 1 To dsoDB.MDStores.Count

  Set dsoCube = dsoDB.MDStores(CubeCounter)

  Debug.Print "  Cube: " & dsoCube.Name

  If dsoCube.SubClassType = sbclsRegular Then

    Debug.Print "       SubClassType: Regular"

    Debug.Print "        SourceTable: " & dsoCube.SourceTable

  Else

    Debug.Print "       SubClassType: Virtual"

  End If

Next CubeCounter