EsbSetApplicationAccess

Description

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

Parameters

hCtxEssbase VB API context handle.
ItemsReserved for future use.
pUserAppPointer to a user application structure.

Return Value

None.

Notes

Access

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

Example

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

Sub EsbSetApplicationAccess ()
   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 Supervisor access level
   '***************************
   sts = EsbSetApplicationAccess (hCtx, Items,
         UserApp)
End Sub

See Also

EsbGetApplicationAccess()
EsbListUsers()
EsbSetDatabaseAccess()
EsbSetUser()