EsbListRequests

アクティブなセッションおよび要求に関する情報を戻します。

構文

              EsbListRequests (hCtx, UserName, AppName, DbName, Items)
  ByVal hCtx     As Long
  ByVal UserName As String
  ByVal AppName  As String
  ByVal DbName   As String
        Items    As Long
         
パラメータ説明

hCtx

コンテキスト・ハンドル

AppName

アプリケーション名

DbName

データベース名

UserName

ユーザー名

Items

戻されるインデックス・ファイルおよびデータ・ファイルの数

備考

戻り値

正常終了の場合は、ユーザー数がItemsに戻され、指定したアプリケーションおよびデータベースに対してアクセス権を持っているユーザーのリストが生成されます。このリストにアクセスするには、EsbGetNextItem()を使用します。

アクセス

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

         Declare Function EsbListRequests Lib "ESBAPIN" (ByVal hCtx As Long, ByVal UserName As String, ByVal AppName As String, ByVal DbName As String, pItems As Integer) As Long
  
Sub ESB_ListRequests() 
     Dim Items As Integer 
     Dim ReqInfo As ESB_REQUESTINFO_T 
     Dim sts As Long 
     Dim pAccess As Integer 
  
     'sts = EsbSetActive(hCtx, AppName, DbName, pAccess) 
     'sts = EsbDefaultCalc(hCtx) 
     '************* 
     ' List Requests 
     '************* 
     sts = EsbListRequests(hCtx, UserName, AppName, DbName, Items) 
     Debug.Print "EsbListRequests = " & sts & " " & Items 
      
     For n = 1 To Items 
       '******************** 
       ' Get next Request Info 
       ' from the list 
       '******************** 
       sts = EsbGetNextItem(hCtx, ESB_REQUESTINFO_TYPE, ReqInfo) 
       Debug.Print "EsbGetNextItem = " & sts & " " & ReqInfo.LoginId & " " & 
ReqInfo.DbRequestCode 

     Next 
  End Sub

      

関連トピック

  • EsbKillRequest