EsbPartitionPutReplCells

複製パーティションで識別されているすべてのデータ・セルを、選択したソース・データベースからターゲット・データベースに複製します。

構文

            EsbPartitionPutReplCells
             (
            hCtx, ReplicatedRegion, HostAppDbList
            )
ByVal 
            hCtx
                         As Long
      
            ReplicatedRegion
             As ESB_PART_REPL_T
ByVal 
            HostAppDbList
                As String

パラメータ	説明
hCtx	APIコンテキスト・ハンドル。
ReplicatedPartition	パーティション情報。
HostAppDbList	ホスト・サーバー上のデータベースまたはアプリケーション、またはその両方のリスト。

備考

このルーチンは、削除後ファイルが空になれば削除します。

戻り値

正常終了の場合は0が戻され、失敗した場合はエラー・コードが戻されます。

アクセス

この関数を呼び出すには、データベース・マネージャ権限が必要です。

例

         Public Sub ESB_PartitionPutReplCells()

   Dim ReplPartition As ESB_PART_REPL_T
   Dim HostAppDbList As String
   Dim ProcState     As ESB_PROCSTATE_T
   Dim ind, i        As Long
   
   
   ReplPartition.PartitionCount   = -1  'All areas
   ReplPartition.UpdatedOnly      = 0 'Updated only cells
   HostAppDbList                  = "localhost" & vbCrLf & _
                                    "Sampeast" & vbCrLf & _
                                    "East"
      
   sts = EsbPartitionPutReplCells(hCtx, ReplPartition, HostAppDbList)
   
   If sts = 0 Then
      sts = EsbGetProcessState(hCtx, ProcState)
      Do Until ProcState.State = ESB_STATE_DONE
         sts = EsbGetProcessState(hCtx, ProcState)
      Loop
   End If

End Sub