EsbSetApplicationAccess

アプリケーションへのユーザー・アクセスに関する情報が含まれているユーザーのアプリケーション・アクセス構造体を設定します。

構文

            EsbSetApplicationAccess
             (
            hCtx, Items, pUserApp
            )
ByVal 
            hCtx
                 As Long
ByVal 
            Items
                As Long
ByVal 
            pUserApp
             As ESB_USERAPP_T
         

備考

ユーザー・アプリケーション構造体のAccessフィールドを使用して、ユーザーに付与されたアプリケーションへのアクセスを設定します。この呼出しではMaxAccessフィールドは無視されます。

戻り値

なし。

アクセス

この関数を使用するには、指定されたアプリケーションに対して、呼出し元がアプリケーション・デザイン権限(ESB_PRIV_APPDESIGN)を持っている必要があります。

例

         Declare Function EsbSetApplicationAccess Lib "esbapin" (ByVal hCtx As Long, ByVal Items As Integer, UserApp As ESB_USERAPP_T) As Long

Sub Esb_SetApplicationAccess ()
   Dim sts As Long
   Dim Items As Integer 
   Dim UserApp As ESB_USERAPP_T
   '*****************************
   ' Initialize UserApp structure
   '*****************************
   UserApp.UserName = "Joseph"
   UserApp.AppName = "Sample"
   UserApp.Access = ESB_ACCESS_SUPER
   UserApp.MaxAccess = ESB_ACCESS_SUPER 
   '***************************
   ' Set Administrator access level
   '***************************
   sts = EsbSetApplicationAccess (hCtx, Items,
         UserApp)
End Sub
      

関連トピック

• EsbGetApplicationAccess
• EsbListUsers
• EsbSetDatabaseAccess
• EsbSetUser