The SourceColumnType property of the Measure interface contains a reference to the measure source column data type of the SourceColumn property.
| clsAggregationMeasure | clsPartitionMeasure | 
| clsCubeMeasure | 
Note The SourceColumnType property does not apply to an object of ClassType clsCube with a SubClassType of sbclsVirtual. For more information, see SubClassType.
ADODB.DataTypeEnum (an enumeration)
SourceColumnType is set to one of the following values.
| ColumnTypeName | Value | 
|---|---|
| Big Integer | adBigInt | 
| Binary | adBinary | 
| Boolean | adBoolean | 
| String (Unicode) | adBSTR | 
| Char | adChar | 
| Currency | adCurrency | 
| Date | adDate | 
| Date | adDBDate | 
| Time | adDBTime | 
| Date & Time | adDBTimeStamp | 
| Decimal | adDecimal | 
| Double | adDouble | 
| Integer | adInteger | 
| Numeric | adNumeric | 
| Single | adSingle | 
| Small Integer | adSmallInt | 
| Tiny Integer | adTinyInt | 
| Unsigned Big Integer | adUnsignedBigInt | 
| Unsigned Integer | adUnsignedInt | 
| Unsigned Small Integer | adUnsignedSmallInt | 
| Unsigned Tiny Integer | adUnsignedTinyInt | 
| Char (Unicode) | adWChar | 
| Text | adChar | 
The access type depends on the class of the measure object.
| Class | Access | 
|---|---|
| clsCubeMeasure | R/W | 
| clsCubeMeasure (virtual) | R | 
| clsPartitionMeasure | R | 
| clsAggregationMeasure | R | 
The SourceColumnType property works in conjunction with the SourceColumn property. Be sure to specify a SourceColumn and SourceColumnType for each measure you create for a cube. For further information, see the Microsoft® ActiveX® Data Objects (ADO) Library.
Note You must reference the ADO Library in your project to use the ADODB.DataTypeEnum enumeration.
Use the following code to specify and test a SourceColumnType.
'Assume an object (dsoCubeMea) of ClassType clsCubeMeasure exists
dsoCubeMea.ColumnType = adCurrency
...
Dim ColType As ADODB.DataTypeEnum
ColType = dsoCubeMea.ColumnType
Select Case ColType
   Case adDouble
        ' commands for adDouble
   Case adSingle
        ' commands for adSingle
            *
            *
            *
   Case Else
        ' other commands
End Select
| About Decision Support Objects | Using Decision Support Objects | 
| Properties Cross-Reference |