KB299874: How to Edit an Intelligent Cube Using Intelligence Server SDK

The following code sample will add an attribute to an existing Intelligent Cube (without publishing the cube) using Intelligence Server SDK 10.3.
 

          'Declaration of variables
          Dim objServer As New DSSDataSource
          Dim objProjectList As DSSDataSourceEnumerator
          Dim objDataSource As DSSDataSource
          Dim mySession As IDSSSession
          Dim text As String
          
          Dim myCube As IDSSReportDefinition10
          Dim CubeID As String
          Dim oObjSource As IDSSSource
                    
          ' Connecting to the Intelligence Server
          objServer.Type = EnumDSSDataSourceType.DssDataSourceTypeServer
          objServer.Mode = EnumDSSConnectionMode.DssConnectionModeServerAccess
          objServer.Location = "INTELLIGENCE SERVER"
          objServer.Port = PORT#
          objServer.AuthMode = DssAuthStandard
          objServer.login = "USERNAME"
          objServer.Passwd = "PASSWORD"
          objServer.Init
          
          ' Connecting to a Project
          Set objProjectList = objServer.Enumerator
          Set objDataSource = objProjectList.ItemByProjectName("PROJECT NAME")
          objDataSource.Init
    
          ' Creating a Session
          Set mySession = objDataSource.CreateSession
          
          ' Outputting session to text variable
          ' text = text & "Configuration ID: " & mySession.DataSource.ConfigurationID & vbCrLf
           
          ' Outputting project information to text variable
          ' text = text & "Project ID: " & mySession.DataSource.ProjectId & vbCrLf
          
          
          CubeID = "CUBE GUID"  'Cube (Intelligent Cube)
                              
          ' Retrieve Cube Object
          Set oObjSource = mySession.Component(DssRoleObjectSource)
          Set myCube = oObjSource.FindObject(CubeID, DssTypeReportDefinition)
          'text = text & "Cube Info: " & myCube.Info.Name & vbCrLf
          
          ' Modify the name of the cube (if desired)
          myCube.Info.Name = "Edited Cube"
                    
          ' Retrieve attribute object
          Dim myAttribute As IDSSAttribute
          Dim attrID As String
          attrID = "ATTR GUID"
          Set myAttribute = oObjSource.FindObject(attrID, DssTypeAttribute)
          'text = text & "Attribute Name: " & myAttribute.Info.Name & vbCrLf
          
          ' Add attribute to the cube template
          Dim MyTemplateUnit As IDSSTemplateUnit
          Set MyTemplateUnit = myCube.Template.Rows.Add(DssTemplateAttribute)
          Set MyTemplateUnit.Special = myAttribute
          
          ' Save cube object (not publishing the cube)
          Call oObjSource.SaveObject(myCube.Info)
          
          ' Final output of text to textbox
          Text1.text = text
          mySession.Close

 
The example provided in this document is provided “as-is” to the user and assumes that the user:

• Can program, compile (e.g. javac, jikes, etc.), and execute Java programs
• Can configure environment variables (e.g. JAR files, property files, etc.)
• Have all the necessary tools to create Java applications (JDK, IDE, etc.)
• Has access to the Strategy SDK documentation.
• Has read the customization warning at the bottom of this document

PREREQUISITES: 
For the sample to work, the Strategy Web JAR files must be accessible by the Java Runtime Environment. The Strategy Web JAR files can be found under:

• Strategy Web Universal (JSP): {web_root}/WEB-INF/lib directory.
• Strategy Web (.NET): Program Files\Common Files\Strategy directory.

Note: More elaborate programs will require additional library files and are out of the scope of this document.
ADDITIONAL INFORMATION:
The Strategy SDK allows you to customize the standard Strategy Web interface, and extend and integrate the Strategy business intelligence functionality into other applications. However, before changing the way Strategy Web products look or behave, it is helpful to understand how the application is built. For more information regarding the Strategy Web architecture or the process of customizing Strategy Web, please refer to Strategy Developer Zone (https://community.strategy.com/topic/0TO44000000FliLGAS/sdk).
To access the Strategy Developer Zone, you must have access to the Strategy Knowledge Base, you must have purchased the Strategy SDK, and you must be current on your Strategy maintenance agreement. If you are a US-based business and believe that you satisfy all three of these conditions but you do not have access to the Strategy Developer Zone, please contact Strategy Technical Support at support@microstrategy.com or at (703) 848-8700. If you are an international business, please contact Strategy Technical Support at the appropriate email address or phone number found at https://www.microstrategy.com/en/support/contact-support.
CUSTOMIZATION WARNING:
This customization is provided as a convenience to Strategy users and is only directly applicable to the version stated. While this code may apply to other releases directly, Strategy Technical Support makes no guarantees that the code provided will apply to any future or previous builds. In the event of a code change in future builds, Strategy Technical Support makes no guarantee that an updated version of this particular customization will be provided. In the event of a code change in future builds, Strategy may not be able to provide additional code on this matter even though this customization is provided at this time for this specific build. For enhancements to this customization or to incorporate similar functionality into other versions, contact your Account Executive to inquire about Strategy Consulting assistance.