EsbListCurrencyDatabases() lists all currency databases within a specific application which are accessible to the caller.
EsbListCurrencyDatabases (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 Items of currency databases. |
Declare Function EsbListCurrencyDatabases Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, Items As Integer) As Long
Sub ESB_ListCurrencyDatabases ()
Dim Items As Integer
Dim AppName As String
Dim AppDb As ESB_APPDB_T
Dim sts As Long
AppName = "Sample"
'************************
' List Currency Databases
'************************
sts = EsbListCurrencyDatabases (hCtx, AppName,
Items)
For n = 1 to Items
'******************************
' Get next Application/Database
' item from the list
'******************************
sts = EsbGetNextItem (hCtx,
ESB_CAPPDB_TYPE, AppDb)
Next
End Sub
EsbGetDatabaseInfo()