Greetings - I used the code on page 471 to insert data using a stored procedure. I am trying to insert into 3 tables. The code works, but it only inserts data into the first table (Member). It creates a record in the other two tables (MemberCompany and MemberDemographic) with an ID that matches the first table (Member), but does not insert the data (the fields are NULL). I would appreciate any help to correct this - thanks!
Code:
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) Handles finish.ServerClick
Dim dc AsNew MemberDataClassesDataContext()
Dim mobjMember AsNew Member With {.FirstName = Trim(FirstName.Value), _
.LastName = Trim(LastName.Value), _
.GenderID = Trim(rblGender.SelectedItem.Value), _
.Address = Trim(Address.Value), _
.City = Trim(City.Value), _
.State = Trim(State.Value), _
.ZipCode = Trim(ZipCode.Value), _
.PhoneNumber = Trim(PhoneNumber.Value), _
.EmailAddress = Trim(EmailAddress.Value), _
.MembershipTypeID = Trim(rblMembershipType.SelectedItem.Value), _
.SendMailTypeID = Trim(rblSendMailTo.SelectedItem.Value), _
.SendEmailTypeID = Trim(rblSendEmailTo.SelectedItem.Value), _
.ReferredBy = Trim(ReferredBy.Value), _
.DateTime = Today(), _
.RegistrationDate = Today(), _
.ShareInformation = (chkShareInformation.Checked)}
'Set member company properties.
Dim MemberCompany AsNew MemberCompany With {.CoName = Trim(CoName.Value), _
.JobTitle = Trim(JobTitle.Value), _
.CoAddress = Trim(CoAddress.Value), _
.CoCity = Trim(CoCity.Value), _
.CoState = Trim(CoState.Value), _
.CoZipCode = Trim(CoZipCode.Value), _
.CoPhoneNumber = Trim(CoPhoneNumber.Value), _
.CoEmailAddress = Trim(CoEmailAddress.Value)}
'Set member demographic properties.
Dim MemberDemographic AsNew MemberDemographic With {.EducationLevel = Trim(rblEducationLevel.SelectedItem.Value), _
.WorkedInTechnology = Trim(rblWorkedInTechnology.SelectedItem.Value), _
.Degrees = Trim(rblDegrees.SelectedItem.Value)}
dc.Members.InsertOnSubmit(mobjMember)
dc.SubmitChanges()
Response.Redirect("PayJoin.aspx")
EndSub