"esbapin" function in Excel Macro stopped working in essbase 11 plugin

Question

Hello All,
We have an excel file with essbase macros that has been working fine in office 2007/essbase 7 client environment. We recently upgraded to essbase 11 and the file started crashing.
Here is the line where it is crashing.
Function EssbaseConnectAPI(strUserName As String, strPassword As String, strServer As String, _
strApplication As String, strDatabase As String) As Boolean
'## Function to log into Essbase server using API. Part of port cueing routine. Pass in username, password, server, _
application and database. If first login, API function ESBInit is called to create a context handle. Using context _
handle EsbAutoLogin is called. Return value on 0 is successful, other values unsuccessful. Error codes 1051027 and 1051080 _
are trapped to allow port cueing until port frees up. Defined counter to prompt user if port congestion is extreme. Failure _
returns a long integer. ##
On Error GoTo errH
Dim Init As ESB_INIT_T
Dim intpAccess As Integer
Dim intCounter As Integer
Dim intResponse As Integer
Dim intMultiplier As Integer
Dim intRetryCounter As Integer
intRetryCounter = ListVars.Range("LoginRetryCounter").Value
If blnNew = True Then
lngSts = EsbInit(Init, lngHInst)
If lngSts = 1051027 Then lngSts = 0
If lngSts <> 0 Then GoTo errH
ListVars.Range("APIInst").Value = lngHInst
End If
lngHInst = ListVars.Range("APIInst").Value
RetryLogin:
lngSts = EsbAutoLogin(lngHInst, strServer, strUserName, strPassword, strApplication, strDatabase, ESBAUTO_NODIALOG, intpAccess, lnghCtx) _*
If lngSts = 1051080 Or lngSts = 1051027 Then
intCounter = intCounter + 1
If intCounter = intRetryCounter Then
application.ScreenUpdating = True
intResponse = MsgBox("System is temporarily busy, Retry?", vbYesNo)
If intResponse = vbYes Then
intMultiplier = intMultiplier + 1
intCounter = 1
GoTo RetryLogin
Else
GoTo errH
End If
End If
application.StatusBar = "Login Atttempted " & (intCounter + 1) + intRetryCounter * (intMultiplier) & " Times"
GoTo RetryLogin
ElseIf lngSts <> 0 Then GoTo errH
MsgBox "Connection Failed", vbOKOnly
GoTo errH
End If
application.StatusBar = ""
EssbaseConnectAPI = True
Exit Function
errH:
application.StatusBar = ""
frmLogin.tbPassword.Text = ""
frmLogin.tbPassword.SetFocus
End Function
The function "esbautologin" is delcared as:
Declare Function EsbAutoLogin Lib "esbapin" (ByVal hInst As Long, ByVal Server As String, ByVal User As String, ByVal Password As String, ByVal AppName As String, ByVal DbName As String, ByVal opt As Integer, pAccess As Integer, phCtx As Long) As Long
Edited by: user8762894 on Nov 16, 2009 1:39 PM
Edited by: user8762894 on Nov 16, 2009 5:04 PM

Answer 1

Just wondering if you have updated the Function definitions found in the esb32.bas file (found in Hyperion\products\essbase\essbaseclient\api\include)? if the definitions are wrong or you have the wrong version it is likely to crash