EsbListGroups() lists all groups who have access to a particular Essbase server, application or database.
EsbListGroups (hCtx, AppName, DbName, pItems)
ByVal hCtx As Long
ByVal AppName As String
ByVal DbName As String
pItems As Integer
| hCtx | Essbase VB API context handle. |
| AppName | Application name. If an empty string, lists all groups. |
| DbName | Database name. If an empty string, lists groups for all databases within application. |
| pItems | Address of variable to receive Items of groups. |
Declare Function EsbListGroups Lib "ESBAPIW" (ByVal hCtx As Long, ByVal AppName As String, ByVal DbName As String, Items As Integer) As Long
Sub ESB_ListGroups ()
Dim Items As Integer
Dim AppName As String
Dim DbName As String
Dim GroupInfo As ESB_USERINFO_T
Dim sts As Long
AppName = "Sample"
DbName = "Basic"
'************
' List Groups
'************
sts = EsbListGroups (hCtx, AppName, DbName,
Items)
For n = 1 To Items
'*************************
' Get next Group structure
' from the list
'*************************
sts = EsbGetNextItem (hCtx,
ESB_GROUPINFO_TYPE, GroupInfo)
Next
End Sub
EsbGetGroup()