EsbGetActive() gets the names of the caller's current active application and database.
EsbGetActive (hCtx, AppName, szApp, DbName, szDb, pAccess)
ByVal hCtx As Long ByVal AppName As String ByVal szApp As Integer ByVal DbName As String ByVal szDb As Integer ByVal pAccess As Integer
hCtx | Essbase VB API context handle. |
AppName | Buffer to receive an application name string. |
szApp | Size of an application name string buffer. |
DbName | Buffer to receive a database name string. |
szDb | Size of the database name string buffer. |
pAccess | Address of variable to receive the user's access level to the selected database. |
Declare Function EsbGetActive Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal szApp As Integer, ByVal DbName As String, ByVal szDb As Integer, Access As Integer) As Long Sub ESB_GetActive () Dim AppName As String * ESB_APPNAMELEN Dim DbName As String * ESB_DBNAMELEN Dim sts As Long Dim szApp As Integer Dim szDb As Integer Dim pAccess As Integer szApp = ESB_APPNAMELEN szDb = ESB_DBNAMELEN '********************************** ' Get active Application & Database '********************************** sts = EsbGetActive (hCtx, AppName, szApp, DbName, szDb, Access) End SubEsbClearActive()