EsbPutObject() copies an object from a local file to the server or client object system, and optionally unlocks it.
EsbPutObject (hCtx, ObjType, AppName, DbName, ObjName, LocalName, isUnlock)
ByVal hCtx As Long ByVal ObjType As Long ByVal AppName As String ByVal DbName As String ByVal ObjName As String ByVal LocalName As String ByVal isUnlock As Integer
hCtx | Essbase VB API context handle. Can 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 put. |
LocalName | Full path name of local source file on client. |
isUnlock | Flag to control object unlocking. If TRUE, the server object is unlocked to allow updates by other users. |
Declare Function EsbPutObject Lib "ESBAPIW" (ByVal hCtx As Long, ByVal ObjType As Integer, ByVal AppName As String, ByVal DbName As String, ByVal ObjName As String, ByVal LocalName As String, ByVal Unlock As Integer) As Long Sub ESB_PutObject () Dim sts As Long Dim AppName As String Dim DbName As String Dim ObjName As String Dim ObjType As Integer Dim LocalName As String Dim Unlock As Integer AppName = "Sample" DbName = "Basic" ObjName = "Basic" ObjType = ESB_OBJTYPE_TEXT LocalName = "C:\ESSBASE\CLIENT\BASIC.TXT" Unlock = ESB_YES '*********** ' Put Object '*********** sts = EsbPutObject (hCtx, ObjType, AppName, DbName, ObjName, LocalName, Unlock) End SubEsbGetObject()