EsbListGroups

ある特定のEssbaseサーバー、アプリケーションまたはデータベースへのアクセス権を持つすべてのグループをリストします。

構文

            EsbListGroups
             (
            hCtx, AppName, DbName, pItems
            )
ByVal 
            hCtx
                As Long
ByVal 
            AppName
             As String
ByVal 
            DbName
              As String
      
            pItems
              As Integer
         

備考

AppNameとDbNameの両方が空の文字列でない場合、指定したアプリケーションとデータベースへのアクセス権を持つグループのみがリストされます。DbNameが空の文字列の場合、指定したアプリケーションへのアクセス権を持つグループのみがリストされます。AppNameが空の文字列の場合、ログオンしているサーバー上のすべてのグループがリストされます。

戻り値

正常終了の場合、グループの数のアイテムがpItemsに戻され、EsbGetNextItem()を介してアクセス可能な指定されたアプリケーションおよびデータベースに対してアクセス権を持っているグループのリストが生成されます。

アクセス

この関数を使用するのに、特別な権限は必要ありません。

例

         Declare Function EsbListGroups Lib "ESBAPIN" (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
• EsbListUsers
• EsbGetNextItem