EsbLockObject() locks an object on the server or client object system to prevent other users from updating it.
EsbLockObject (hCtx, ObjType, AppName, DbName, ObjName)
ByVal hCtx As Long ByVal ObjType As Long ByVal AppName As String ByVal DbName As String ByVal ObjName As String
| hCtx | Essbase VB API context handle. May be local context handle returned by EsbCreateLocalContext(). |
| ObjType | Object type (must be single type. Refer to Bitmask Data Types for a list of possible values. |
| AppName | Application name. |
| DbName | Database name. If an empty string, uses the application sub-directory. |
| ObjName | Name of an object to lock. |
Declare Function EsbLockObject Lib "ESBAPIW" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, ByVal ObjName As String) As Long
Sub ESB_LockObject ()
Dim sts As Long
Dim AppName As String
Dim DbName As String
Dim ObjName As String
Dim ObjType As Integer
AppName = "Sample"
DbName = "Basic"
ObjName = "Basic"
ObjType = ESB_OBJTYPE_OUTLINE
'******************
' Lock Rules Object
'******************
sts = EsbLockObject (hCtx, ObjType, AppName,
DbName, ObjName)
End Sub
EsbGetObject()