EsbCopyFilter

既存のフィルタをコピーします。

構文

            EsbCopyFilter
             (
            hCtx, hSrcCtx, AppName, nAppName, DbName, nDbName, FltName, nFltName
            )
ByVal 
            hCtx
                 As Long
ByVal 
            hSrcCtx
              As Long
ByVal 
            AppName
              As String
ByVal 
            nAppName
             As String
ByVal 
            DbName
               As String
ByVal 
            nDbName
              As String
ByVal 
            FltName
              As String
ByVal 
            nFltName
             As String

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
hSrcCtx	使用されていません - hCtxと同じになります。
AppName	コピー元アプリケーション名。
nAppName	コピー先アプリケーション名。
DbName	コピー元データベース名。
nDbName	宛先データベース名。
FltName	コピーする既存のフィルタのコピー元での名前。
nFltName	コピーしたフィルタのコピー先での名前。フィルタ名の制限を参照してください。

備考

ソース・フィルタが存在している必要があります。
既存のフィルタを誤って上書きするのを防ぐため、呼出し元はコピー先フィルタが存在しているかどうかを確認する必要があります。

戻り値

なし。

アクセス

この関数を使用するには、指定したデータベースに対して、呼出し元がデータベース・デザイン権限(ESB_PRIV_DBDESIGN)を持っている必要があります。

例

         Declare Function EsbCopyFilter Lib "ESBAPIN" (ByVal hCtx As Long, ByVal hSrcCtx As Long, ByVal SrcApp As String, ByVal DestApp As String, ByVal SrcDb As String, ByVal DestDb As String, ByVal SrcName As String, ByVal DestName As String) As Long

Sub ESB_CopyFilter ()
   Dim sts As Long
   Dim SrcApp As String
   Dim SrcDb As String
   Dim SrcName As String
   Dim DestApp As String
   Dim DestDb As String
   Dim DestName As String
   Dim hDestCtx As Long   hDestCtx = hCtx 
   SrcApp = "Sample"
   SrcDb = "Basic"
   SrcName = "Filter"
   DestApp = "NewSamp"
   DestDb = "NewBasic"
   DestName = "NewFilter"   '************
   ' Copy Filter  
   '************
   sts = EsbCopyFilter (hCtx, hDestCtx, SrcApp,
    DestApp, SrcDb, DestDb, SrcName, DestName) 
End Sub