[DBMoto][スクリプト]条件付きレプリケーションを行うサンプルVBスクリプト

Imports System
Imports System.Data
Imports Microsoft.VisualBasic
Imports DBMotoPublic
Imports DBMotoScript
Imports DBRS.GlobalScript

Namespace DBRS
    Public Class ReplicationScript : Inherits IReplicationScript
    Public Overrides Sub Record_onBeforeMapping( recSource As DBMotoPublic.IRecord, ByRef AbortRecord As Boolean, ByRef DisableReplication As Boolean)
        ' カラム名の変数
        Dim strField As String
        ' 登録・更新・削除時
        If (recSource.OperationType = enmOperationType.Insert) Or (recSource.OperationType = enmOperationType.Update) Or (recSource.OperationType = enmOperationType.Delete) Then
        ' DBのカラム名を指定して値を取得
        strField = CType(recSource.GetValueAfter("Field").ToString(), Integer)
        ' 20140711 未満はレプリケーションをスキップ(Abort=True)する
        If (strField < "20140711") Then
            AbortRecord = True
        Else
            AbortRecord = False
        End If
        End If
    End Sub

    End Class
End Namespace