Programación de bases de datos con Visual Basic .NET
Listado 7.7
Uso del adaptador de datos para
verificar los datos antes de actualizar el conjunto de datos.
Private Sub OleDbDataAdapter5_RowUpdating(ByVal
sender As Object, ByVal e As System.Data.OleDb.OleDbRowUpdatingEventArgs)
Handles OleDbDataAdapter5.RowUpdating
Dim idPedido As Integer
Dim
fechaPedido As Date
Dim fechaEntrega
As Date
Dim miDia As
Integer
If e.StatementType =
StatementType.Insert Then
idPedido =
e.Row("idPedido", DataRowVersion.Current)
fechaPedido = CDate(e.Row("dtPedido",
DataRowVersion.Current))
fechaEntrega = CDate(e.Row("dtEntrega",
DataRowVersion.Current))
miDia = DateDiff(DateInterval.Day, fechaPedido,
fechaEntrega)
If miDia
< 10 Then
MsgBox("Tiene que haber al menos 10 días de diferencia
entre la " _
&
"fecha de pedido y la fecha de entrega del pedido " & idPedido
& "")
e.Status =
UpdateStatus.SkipCurrentRow
End If
End If
End Sub