Enumerations

The Decision Support Objects (DSO) object model provides a number of enumerations. The following table lists the public enumerated types available through DSO. Click the name of an enumeration for a more detailed description.

Enumeration	Description
AggregatesTypes	Enumerates values for the AggregateFunction property
ClassTypes	Enumerates values for the ClassType property
CloneOptions	Enumerates options for the Clone method
CommandTypes	Enumerates values for the CommandType property
DimensionAggUsageTypes	Enumerates values for the AggregationUsage property
DimensionTypes	Enumerates values for the DimensionType property
ErrorCodes	Enumerates error codes
GroupingValues	Enumerates options for level groups
HideIfValues	Enumerates options for hidden level members
LanguageValues	Enumerates the Language property of member properties
LevelTypes	Enumerates values for the LevelType property
MembersWithDataValues	Enumerates values for the MembersWithData property
OlapEditions	Enumerates values for the Edition property
OlapLockTypes	Enumerates values for the LockObject method
OlapStateTypes	Enumerates values for the State property
OlapStorageModes	Enumerates values for the OlapMode property
OrderTypes	Enumerates values for the Ordering property
ProcessOptimizationModes	Enumerates values for the ProcessOptimizationMode property
ProcessTypes	Enumerates values for the Process method
PropertyTypeValue	Enumerates the values used in the PropertyType property
RootIfValues	Enumerates values for the RootMemberIf property
ServerStates	Enumerates values for the State property
StorageModeValues	Enumerates values for the StorageMode property
SubClassTypes	Enumerates values for the SubClassType property

Examples

Using the ClassTypes Enumeration

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