GSK_DEV
asked on
'dsUserAccounts.UserAccountDetailsRow.Private Sub New(rb As System.Data.DataRowBuilder)' is not accessible in this context because it is 'Private'.
I am having a strongly typed dataset 'dsUserAccounts' with table adapter 'UserAccountDetailsTableAd apter'.
I am getting a error at line Dim UserInfo As New dsUserAccounts.UserAccount DetailsRow
Here is my code
Dim AccountDetailsTableAdapter As New dsUserAccountsTableAdapter s.UserAcco untDetails TableAdapt er
Dim AccountProfiles As New dsUserAccounts.UserAccount DetailsDat aTable
Dim UserInfo As New dsUserAccounts.UserAccount DetailsRow
AccountProfiles = AccountDetailsTableAdapter .GetUserAc countDetai ls(Request .QueryStri ng("UserID "))
For Each UserInfo In AccountProfiles
EmailAddress.Text = LTrim(RTrim(UserInfo.EMAIL _ADDRESS_I D))
cboSecurityQuestion.Select edValue = UserInfo.SECURITY_QUESTION _ID
SecurityAnswer.Text = LTrim(RTrim(UserInfo.SECUR ITY_ANSWER ))
Password.Text = UserInfo.PASSWORD
FirstName.Text = LTrim(RTrim(UserInfo.FIRST _NAME))
LastName.Text = LTrim(RTrim(UserInfo.LAST_ NAME))
AddressLine1.Text = LTrim(RTrim(UserInfo.ADDRE SS_LINE1))
AddressLine2.Text = LTrim(RTrim(UserInfo.ADDRE SS_LINE2))
City.Text = LTrim(RTrim(UserInfo.CITY) )
States.Text = LTrim(RTrim(UserInfo.STATE ))
cboCountry.SelectedValue = UserInfo.COUNTRY_ID
ZipCode.Text = LTrim(RTrim(UserInfo.ZIP_C ODE))
ContactPhone.Text = LTrim(RTrim(UserInfo.CONTA CT_PHONE))
If Not IsDBNull(UserInfo.FAX_NUMB ER) Then FaxNumber.Text = LTrim(RTrim(UserInfo.FAX_N UMBER))
cboReferralSource.Selected Value = UserInfo.REFERRAL_SOURCE_I D
Next
I am getting a error at line Dim UserInfo As New dsUserAccounts.UserAccount
Here is my code
Dim AccountDetailsTableAdapter
Dim AccountProfiles As New dsUserAccounts.UserAccount
Dim UserInfo As New dsUserAccounts.UserAccount
AccountProfiles = AccountDetailsTableAdapter
For Each UserInfo In AccountProfiles
EmailAddress.Text = LTrim(RTrim(UserInfo.EMAIL
cboSecurityQuestion.Select
SecurityAnswer.Text = LTrim(RTrim(UserInfo.SECUR
Password.Text = UserInfo.PASSWORD
FirstName.Text = LTrim(RTrim(UserInfo.FIRST
LastName.Text = LTrim(RTrim(UserInfo.LAST_
AddressLine1.Text = LTrim(RTrim(UserInfo.ADDRE
AddressLine2.Text = LTrim(RTrim(UserInfo.ADDRE
City.Text = LTrim(RTrim(UserInfo.CITY)
States.Text = LTrim(RTrim(UserInfo.STATE
cboCountry.SelectedValue = UserInfo.COUNTRY_ID
ZipCode.Text = LTrim(RTrim(UserInfo.ZIP_C
ContactPhone.Text = LTrim(RTrim(UserInfo.CONTA
If Not IsDBNull(UserInfo.FAX_NUMB
cboReferralSource.Selected
Next
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
hope this'll help
kGenius