Batch Update Sample

Updated 1997/08/05

By 富士通ＳＳＬ）福岡寿和

Private Sub cmdUpdate_Click()
    rdcServer.Resultset.BatchUpdate
    If rdcServer.Resultset.BatchCollisionCount > 0 Then
        If MsgBox("同期更新が発生しました。更新しますか。", vbOKCancel) = vbOK Then
            rdcServer.Resultset.BatchUpdate False, True
        Else
            If MsgBox("更新結果を破棄しますか。", vbOKCancel) = vbOK Then
                rdcServer.Resultset.CancelBatch
            End If
        End If
    Else
        MsgBox "バッチオプティミスティック更新が成功しました。"
    End If
End Sub

図8　バッチ更新での同時更新の結果