EsbListDatabases() lists all databases which are accessible to the caller, either within a specific application, or on an entire server.
EsbListDatabases (hCtx, AppName, pItems)
ByVal hCtx As Long ByVal AppName As String pItems As Integer
hCtx | Essbase VB API context handle. |
AppName | Application name. |
pItems | Address of variable to receive count of applications and databases. |
Declare Function EsbListDatabases Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, Count As Integer) As Long Sub ESB_ListDatabases () Dim pItems As Integer Dim AppName As String Dim AppDb As ESB_APPDB_T Dim sts As Long AppName = "Sample" '*************** ' List Databases '*************** sts = EsbListDatabases (hCtx, AppName, pItems) For n = 1 To pItems '****************************** ' Get next Application/Database ' item from the list '****************************** sts = EsbGetNextItem (hCtx, ESB_APPDB_TYPE, AppDb) Next End SubEsbGetDatabaseInfo()