EsbPutObject

ローカル・ファイルからサーバーまたはクライアントのオブジェクト・システムにオブジェクトをコピーし、オプションでロック解除します。

構文

            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
         

備考

サーバー上に存在しているオブジェクトを配置するには、呼出し元によって事前にロックされている必要があります。オブジェクトがサーバー上になければ、新規作成されます。

戻り値

正常終了の場合は、オブジェクトがLocalNameで指定したローカル・ファイルからサーバーにコピーされます。

アクセス

この関数を使用するには、オブジェクトが含まれている指定されたアプリケーションまたはデータベース(あるいはその両方)に対して、呼出し元が(オブジェクト・タイプに応じて)適切なレベルのアクセス権を持っている必要があります。オブジェクトのロックを解除するには(unlockフラグがTRUE)、呼出し元はオブジェクトを含む指定のアプリケーションまたはデータベースに対するアプリケーションまたはデータベースのデザイン権限(ESB_PRIV_APPDESIGNまたはESB_PRIV_DBDESIGN)が必要です。

例

         Declare Function EsbPutObject Lib "ESBAPIN" (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 Sub
      

関連トピック

• EsbGetObject
• EsbLockObject
• EsbUnlockObject
• EsbListObjects