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 SubEsbGetDatabaseInfo()