EsbSetDatabaseAccess() sets a user database access structure, which contains information about user access to a database.
EsbSetDatabaseAccess (hCtx, Items, pUserDb)
ByVal hCtx As Long ByVal Items As Integer ByVal pUserDb As ESB_USERDB_T
hCtx | Essbase VB API context handle. |
Items | Reserved for future use. |
pUserDb | Pointer to a user database structure. |
Declare Function EsbSetDatabaseAccess Lib "ESBAPIW" (ByVal hCtx As Long, ByVal Items As Integer, pUserDb As ESB_USERDB_T) As Long Sub EsbSetDatabaseAccess () Dim sts As Long Dim Items As Integer Dim UserDb As ESB_USERDB_T '***************************** ' Initialize UserDb structure '***************************** UserDb.UserName = "Joseph" UserDb.AppName = "Sample" UserDb.DbName = "Basic" UserDb.Access = ESB_ACCESS_SUPER UserDb.MaxAccess = ESB_ACCESS_SUPER UserDb.FilterName = "" '*************************** ' Set Supervisor access level '*************************** sts = EsbSetDatabaseAccess (hCtx, Items, UserDb) End SubEsbGetDatabaseAccess()