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/.