EsbSetApplicationAccess

Sets a user application access structure, which contains information about user access to an application.

Syntax

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

Notes

The Access field of the user application structure is used to set the user's granted access to the application. For this call the MaxAccess field is ignored.

Return Value

None.

Access

This function requires the caller to have Application Design privilege (ESB_PRIV_APPDESIGN) for the specified application.

Example

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

See Also

• EsbGetApplicationAccess
• EsbListUsers
• EsbSetDatabaseAccess
• EsbSetUser