EsbPartitionGetReplCells

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

構文

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

パラメータ	説明
hCtx	APIコンテキスト・ハンドル。
ReplicatePartition	パーティション情報。
HostAppDbList	CR/LFで区切られたサーバー、アプリケーションおよびデータベース・セットの文字列。

戻り値

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

アクセス

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

例

         Public Sub ESB_PartitionGetReplCells()   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 = EsbPartitionGetReplCells(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