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 Sub
EsbGetDatabaseInfo()