EsbListObjects() lists all objects of the specified types on the server or locally on the client.
EsbListObjects (hCtx, ObjType, AppName, DbName, pItems)
ByVal hCtx As Long
ByVal ObjType As Long
ByVal AppName As String
ByVal DbName As String
pItems As Integer
| hCtx | Essbase VB API context handle. Can be local context handle returned from EsbCreateLocalContext(). |
| ObjType | Object type (may be multiple types). Refer to "Bitmask Types" for a list of possible values. |
| AppName | Application name. |
| DbName | Database name. If an empty string, lists objects in the application sub-directory. |
| pItems | Address of variable to receive the Items of objects of the appropriate type(s). |
Declare Function EsbListObjects Lib "ESBAPIW" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, Items As Integer) As Long
Sub ESB_ListObjects ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String
Dim ObjType As Integer
Dim ObjInfo As ESB_OBJINFO_T
Dim sts As Long
Appname = "Sample"
DbName = "Basic"
ObjType = ESB_OBJTYPE_OUTLINE
'*********************
' List Outline Objects
'*********************
sts = EsbListObjects (hCtx, ObjType,
AppName, DbName, Items)
For n = 1 To Items
'**************************
' Get next Object Structure
' from the list
'**************************
sts = EsbGetNextItem (hCtx,
ESB_OBJINFO_TYPE, ObjInfo)
Next
End Sub
EsbGetObject()