This code accomplishes two basic steps in establishing a 3-tier mode connection to Strategy Intelligence Server:
'STEP 1 : Connect to I-Server
Dim objServer As New DSSDataSource
objServer.Name = Servername.Text
objServer.Type = DssDataSourceTypeServer
objServer.Location = Servername.Text
objServer.Mode = DssConnectionModeServerAccess
objServer.AuthMode = DssAuthStandard
objServer.Login = Login.Text
objServer.Passwd = Pwd.Text
objServer.Init
'STEP 2: Login to Project
Dim objProjectList As DSSDataSourceEnumerator
Dim objDataSource As DSSDataSource
Set objProjectList = objServer.Enumerator
Set objDataSource = objProjectList.ItemByProjectName(ProjectName.Text)
objDataSource.Init
The Strategy 9.x MSDL > Intelligence Server Reference, shipped with the Strategy SDK, offers a description of each of the interface used in the code above.
Code 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 may not be able to provide additional code on this matter even though this customization is provided at this time for this specific build.