SmartView VBA code to connect to Essbase

Question

Hi,
I am trying to connect to Essbase v 11.1.13 via Smartview v 11 using Macro (VBA code). Thing is that I am able to make connection, but not able to autneticate after connecting to Appname and Dbname in that server. In right hand side after this macro is run, I need to manually click on the server and then go ahead to that appname and Dbname and then do adhoc analysis.
Any inputs how to proceed with this step using SmartView VBA code?
The code I am using is -
bIsConnection = HypIsConnectedToAPS()
If bIsConnection = True Then
bIsConnection = HypDisconnectFromAPS()
End If
bIsConnection = HypConnectionExists("Sampleconn")
If bIsConnection = True Then
bIsConnection = HypRemoveConnection("Sampleconn")
End If
X = HypCreateConnection(Sheet1, User, pwd, "HYP_ESSBASE", url, sServer, app, db, connectionname, "Analytic Provider Services")
X = HypConnect(Empty, User, pwd, connectionname)
Please let me know even after this code, why it is not selecting appname.dbname in Smart view Data source manager?

Answer 1

In the code below there is no existing connection called “My DMDemo Basic”. So using HypCreateConnection, this connection is created which connects automatically to the application database using username and password as per the sample code.
If the connection string already exists, then you can call HypConnect to connect.
The HypCreateConnection does not really need a valid username and password. But when we are using HypConnect, it validates the username and password and recognizes with the friendly name per the connection name - for example "My DMDemo Basic".
If you want the user to be prompted for login details instead o f hardcoding the values, then you can assign null values to them - username and password as null values which is - "" (note this is open and close double quotes without any space). This will bring up the window where you can give the username and password values.
Run the following code by opening a brand new Excel file and then copying the code below into the Visual Basic Editor Module. Make sure you modify all the parameters according to your setup including username, password, server name, application name, etc.
Private Declare Function HypConnect Lib "HsAddin.dll" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtFriendlyName As Variant) As Long
Private Declare Function HypCreateConnection Lib "HsAddin" (ByVal vtSheetName As Variant, ByVal vtUserName As Variant, ByVal vtPassword As Variant, ByVal vtProvider As Variant, ByVal vtProviderURL As Variant, ByVal vtServerName As Variant, ByVal vtApplicationName As Variant, ByVal vtDatabase As Variant, ByVal vtFriendlyName As Variant, ByVal vtDescription As Variant) As Long
Sub Conn()
Dim username As Variant
Dim password As Variant
Dim x As Variant
Dim HYP_ESSBASE As Variant
HYP_ESSBASE = "ESSBASE"
username = "admin"
password = "password"
x = HypCreateConnection(Empty, username, password, HYP_ESSBASE, "http://localhost:13080/aps/SmartView", "localhost", "DMDemo", "Basic", "My DMDemo Basic", "Analytic Provider Services")
MsgBox x
x = HypConnect(Empty, username, password, "My DMDemo Basic")
MsgBox x
End Sub
HTH-
Jasmine