EsbCopyObject

サーバーまたはクライアントのオブジェクト・システムのオブジェクトをコピーします。

構文

            EsbCopyObject
             (
            hCtx, hDestCtx, ObjType, AppName, nAppName, DbName, nDbName,
objName, nobjName
            )
ByVal 
            hCtx
                 As Long
ByVal 
            hDestCtx
             As Long
ByVal 
            ObjType
              As Long
ByVal 
            AppName
              As String
ByVal 
            nAppName
             As String
ByVal 
            DbName
               As String
ByVal 
            nDbName
              As String
ByVal 
            objName
              As String
ByVal 
            nObjName
             As String

パラメータ	説明
hCtx	コピー元オブジェクトのVB APIコンテキスト・ハンドル。EsbCreateLocalContext()によって戻されたローカル・コンテキスト・ハンドルの場合もあります。
hDestCtx	コピー先オブジェクトのVB APIコンテキスト・ハンドル。
ObjType	オブジェクト・タイプ(単一のタイプのみ)。使用可能な値のリストは、表 15を参照してください。
AppName	コピー元アプリケーション名。
nAppName	コピー先アプリケーション名。
DbName	コピー元データベース名。空の文字列の場合は、コピー元のアプリケーションのサブディレクトリを使用します。
nDbName	宛先データベース名。空の文字列の場合は、コピー先のアプリケーションのサブディレクトリを使用します。
objName	コピー元のオブジェクト名。
nobjName	コピー先のオブジェクトの名前。オブジェクト名の制限を参照してください。

備考

オブジェクトはクライアントからサーバーへ、サーバーからクライアントへ、同一サーバー内で、または異なるサーバー間でコピーできます。いずれの場合も、コピー先のオブジェクトは存在していない、または呼出し元がロックしている必要があります。
アウトライン・オブジェクトはコピーできません。関連するアウトラインも含めてデータベースをコピーする場合は、EsbCopyDatabase()関数を使用します。

戻り値

なし。

アクセス

この関数を使用するには、呼出し元は、オブジェクトがある指定したコピー元アプリケーションまたはデータベース(あるいはその両方)に対して、適切なレベルのアクセス権(オブジェクト・タイプによる)を持っている必要があります。さらに呼出し元は、指定したコピー先アプリケーションまたはデータベースに対して、アプリケーションデザイン権限またはデータベースデザイン権限(ESB_PRIV_APPDESIGNまたはESB_PRIV_DBDESIGN)を持っている必要があります。

例

         Declare Function EsbCopyObject Lib "ESBAPIN" (ByVal hCtx As Long, ByVal hDestCtx As Long, ByVal ObjType As Integer, ByVal SrcApp As String, ByVal DestApp As String, ByVal SrcDb As String, ByVal DestDb As String, ByVal SrcObj As String, ByVal DestName As String) As Long

Sub ESB_CopyObject ()
   Dim sts As Long
   Dim hDestCtx As Long
   Dim SrcApp As String
   Dim SrcDb As String
   Dim SrcObj As String
   Dim DestApp As String
   Dim DestDb As String
   Dim DestObj As String
   Dim ObjType As Integer   hDestCtx = hCtx
   SrcApp = "Sample"
   SrcDb = "Basic"
   SrcObj = "Basic"
   DestApp = "NewSamp"
   DestDb = "NewBasic"
   DestObj = "NewBasic" 
   ObjType = ESB_OBJTYPE_RULES   '******************
   ' Copy rules object 
   '******************
   sts = EsbCopyObject (hCtx, hDestCtx, ObjType,
   SrcApp, DestApp, SrcDb, DestDb, SrcObj,
   DestObj) 
End Sub