EsbOtlGetAttributeInfo() returns attribute information for a given attribute member or dimension.
EsbOtlGetAttributeInfo (hOutline, Member, AttrInfo)
ByVal hOutline As Long
ByVal Member As Long
AttrInfo As ESB_ATTRIBUTEINFO_T
| hOutline | Handle to the outline |
| Member | Handle to the attribute member or dimension |
| AttrInfo | Attribute information |
Returns STS = 0 when successful. Otherwise, returns an error code.
This function requires no special privileges.
Sub ESB_OtlGetAttributeInfo()
' NOTE: 'Out' is a sub to print the output within quotes to a listbox or text box
Dim sts As Long
Dim OutAttrInfo As ESB_ATTRIBUTEINFO_T
Dim MbrName As String
Dim hCtx as long
MbrName = InputBox("Enter Member Name")
sts = EsbGetAttributeInfo(hCtx, MbrName, OutAttrInfo)
If sts = 0 Then
Select Case VarType(OutAttrInfo.Attribute)
Case vbDouble
Out "Data Type : Numeric(Double)"
Out "Data Value : " & OutAttrInfo.Attribute
Out ""
Case vbBoolean
Out "Data Type : Boolean"
Out "Data Value : " & OutAttrInfo.Attribute
Out ""
Case vbDate
Out "Data Type : Date"
Out "Data Value : " & OutAttrInfo.DimName
Out ""
Case vbString
Out "Data Type : String"
Out "Data Value : " & OutAttrInfo.Attribute
Out ""
End Select
Else
Out "ESB_OtlGetAttributeInfo failed" & sts
Exit Sub
End If
End Sub
EsbCheckAttributes()
EsbGetAssociatedAttributesInfo()
EsbGetAttributeInfo()
EsbGetAttributeSpecifications()
EsbOtlAssociateAttributeDimension()
EsbOtlAssociateAttributeMember()
EsbOtlDisassociateAttributeDimension()
EsbOtlDisassociateAttributeMember()
EsbOtlFindAttributeMembers()
EsbOtlGetAssociatedAttributes()
EsbOtlGetAttributeSpecifications()
EsbOtlQueryAttributes()
EsbOtlSetAttributeSpecifications()