ASP.NET Test-Drive: Listing 2.

The UpdateMethod property.

Public Sub UpdateCustomer(Cust As Customer)
  Using nw As New NorthwindEntities
    Dim resCust = (From c In nw.Customers
                     Where c.CustomerID = Cust.CustomerID
                     Select c).FirstOrDefault
    If resCust IsNot Nothing Then
      Select Case Cust.EntityState
        Case EntityState.Deleted
          nw.DeleteObject(resCust)
        Case EntityState.Modified
          resCust.CompanyName = Cust.CompanyName
        Case EntityState.Added
          nw.Customers.AddObject(Cust)
      End Select
      nw.SaveChanges()
    End If
  End Using
End Sub

About the Author

Peter Vogel is a system architect and principal in PH&V Information Services. PH&V provides full-stack consulting from UX design through object modeling to database design. Peter tweets about his VSM columns with the hashtag #vogelarticles. His blog posts on user experience design can be found at http://blog.learningtree.com/tag/ui/.