Chapter 11: Deploying Web Services with WCF | 313 |
Return (From cust In ctx.Customers
Select cust).ToList()
End Function
Public Function InsertCustomer(ByVal cust As Customer) As Integer Implements ICustomerService.InsertCustomer
Dim ctx = New MyShopDataContext
ctx.Customers.InsertOnSubmit(cust)
ctx.SubmitChanges()
Return cust.CustomerID
End Function
Public Sub UpdateCustomer(ByVal cust As Customer) Implements ICustomerService.UpdateCustomer Dim ctx As New MyShopDataContext
Dim customer = (From cst In ctx.Customers
Where cst.CustomerID = cust.CustomerID Select cst).SingleOrDefault()
If Not (customer Is Nothing) Then
With customer
.Age = cust.Age
.Birthday = cust.Birthday
.Income = cust.Income
.Name = cust.Name End With
ctx.SubmitChanges()
End If
End Sub
Public Sub DeleteCustomer(ByVal custID As Integer)
Dim ctx As New MyShopDataContext
Dim customer = (From cst In ctx.Customers
