EsbKillRequest

特定のユーザー・セッションまたは要求を終了します。

構文

              EsbKillRequest (hCtx, ReqInfo)
  ByVal hCtx     As Long
  ByVal pReqInfo  As ESB_REQUESTINFO_T
         
パラメータ説明

hCtx

コンテキスト・ハンドル

pReqInfo

要求情報構造体を指すポインタ。

備考

戻り値

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

アクセス

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

         Declare Function EsbKillRequest Lib "ESAPINW" (ByVal hCtx As Long, pReqInfo As ESB_REQUESTINFO_T) As Long
  
  Sub ESB_KillRequest() 
   Dim Items As Integer 
   Dim ReqInfo As ESB_REQUESTINFO_T 
   Dim sts As Long 
   Dim pAccess As Integer 

   '********* 
   ' List Requests 
   '************* 
   'sts = EsbSetActive(hCtx, AppName, DbName, pAccess) 
   'Debug.Print "EsbSetActive = " & sts 
   'sts = EsbDefaultCalc(hCtx) 
   'Debug.Print "EsbDefaultCalc = " & sts 
    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 
     sts = EsbKillRequest(hCtx, ReqInfo) 
     Debug.Print "EsbKillRequest = " & sts 
   Next 
End Sub

      

関連トピック

  • EsbListRequests