This is how I create a users profile:

Protected Sub CreateUserWizard_CreatedUser(ByVal sender As Object, ByVal e
As System.EventArgs) Handles CreateUserWizard.CreatedUser

ProfileBase.Create(Profile.UserName)

Profile.FirstName = CustomProfileInfo.FirstName
Profile.LastName = CustomProfileInfo.LastName
Profile.StreetAddress = CustomProfileInfo.StreetAddress
Profile.City = CustomProfileInfo.City
Profile.State = CustomProfileInfo.State
Profile.ZipCode = CustomProfileInfo.ZipCode
Profile.EmailAddress = CreateUserWizard.Email
Profile.HomePhoneNumber = CustomProfileInfo.HomePhoneNumber
Profile.CellPhoneNumber = CustomProfileInfo.CellPhoneNumber

End Sub


This is how I delete a user and their profile:

Private Function DeleteUser(ByVal strUserName As String) As Boolean
Dim blnResult As Boolean = False

'Delete the user and their profile
If blnResult = ProfileManager.DeleteProfile(strUserName) = True Then
If blnResult = Membership.DeleteUser(strUserName) = True Then
blnResult = True
End If
End If

Return blnResult
End Function


I have a GridView control that gets populated with every users profile
information. However, when I run my delete function for a user it doesn't get
deleted even though it says it was deleted. When I look in the database
(ASPNETDB) is still has their profile information and their membership
informatin.



This is off topic, but can someone tell me how to select the browser I want
to use from within VS 2005. Even though my default browser is IE, it always

1. If I start from an empty database, and add two users to the membership
database, why does the second users profile overwrite the first users profile?

2. Why when I call ProfileManager.DeleteProfile(strUserName) does it not
actually delete the profile?

3. Lastly, why does it not remove the entry from the database when I call
Membership.DeleteUser()?






This is how I create a users profile:

Protected Sub CreateUserWizard_CreatedUser(ByVal sender As Object, ByVal e
As System.EventArgs) Handles CreateUserWizard.CreatedUser

ProfileBase.Create(Profile.UserName)

Profile.FirstName = CustomProfileInfo.FirstName
Profile.LastName = CustomProfileInfo.LastName
Profile.StreetAddress = CustomProfileInfo.StreetAddress
Profile.City = CustomProfileInfo.City
Profile.State = CustomProfileInfo.State
Profile.ZipCode = CustomProfileInfo.ZipCode
Profile.EmailAddress = CreateUserWizard.Email
Profile.HomePhoneNumber = CustomProfileInfo.HomePhoneNumber
Profile.CellPhoneNumber = CustomProfileInfo.CellPhoneNumber

End Sub


This is how I delete a user and their profile:

Private Function DeleteUser(ByVal strUserName As String) As Boolean
Dim blnResult As Boolean = False

'Delete the user and their profile
If blnResult = ProfileManager.DeleteProfile(strUserName) = True Then
If blnResult = Membership.DeleteUser(strUserName) = True Then
blnResult = True
End If
End If

Return blnResult
End Function