Asp.net 如何更改profilebase的默认连接字符串
我正在web应用程序中使用配置文件功能。我在网上得到一篇有用的文章。根据本文,我编写了我的Asp.net 如何更改profilebase的默认连接字符串,asp.net,vb.net,asp.net-profiles,web-application-project,Asp.net,Vb.net,Asp.net Profiles,Web Application Project,我正在web应用程序中使用配置文件功能。我在网上得到一篇有用的文章。根据本文,我编写了我的web.config,一个自定义概要文件类,一个概要文件信息类。下面是我的代码 Dim profile As UserProfile = UserProfile.GetProfile(lblEmail.Text) With profile.UserProfileInfo .Address1 = txtAddress1.Text .Address2 = txtAddress2.Text
web.config
,一个自定义概要文件类,一个概要文件信息类。下面是我的代码
Dim profile As UserProfile = UserProfile.GetProfile(lblEmail.Text)
With profile.UserProfileInfo
.Address1 = txtAddress1.Text
.Address2 = txtAddress2.Text
.City = txtCity.Text
profile.Save()
End With
我的代码
Dim profile As UserProfile = UserProfile.GetProfile(lblEmail.Text)
With profile.UserProfileInfo
.Address1 = txtAddress1.Text
.Address2 = txtAddress2.Text
.City = txtCity.Text
profile.Save()
End With
web.config
Dim profile As UserProfile = UserProfile.GetProfile(lblEmail.Text)
With profile.UserProfileInfo
.Address1 = txtAddress1.Text
.Address2 = txtAddress2.Text
.City = txtCity.Text
profile.Save()
End With
UserProfileInfo.vb
Public Class UserProfile
Inherits ProfileBase
Public ReadOnly Property UserProfileInfo As UserProfileInfo
Get
Return DirectCast(GetPropertyValue("UserProfileInfo"), UserProfileInfo)
End Get
End Property
Public Shared Function GetProfile() As UserProfile
Return DirectCast(HttpContext.Current.Profile, UserProfile)
End Function
Public Shared Function GetProfile(ByVal UserName As String) As UserProfile
Return DirectCast(Create(UserName), UserProfile)
End Function
End Class
<Serializable()>
Public Class UserProfileInfo
Dim _Name As String
Dim _Company As String
Dim _Address1 As String
Dim _Address2 As String
Dim _City As String
Dim _State As String
Dim _Country As String
Dim _Zip As String
Dim _PhoneNo As String
Dim _Mobile As String
Dim _FaxNo As String
Dim _Website As String
Dim _Registration_Email As String
Public Property Name As String
Set(ByVal value As String)
_Name = value
End Set
Get
Return _Name
End Get
End Property
Public Property Company As String
Set(ByVal value As String)
_Company = value
End Set
Get
Return _Company
End Get
End Property
Public Property Address1 As String
Set(ByVal value As String)
_Address1 = value
End Set
Get
Return _Address1
End Get
End Property
Public Property Address2 As String
Set(ByVal value As String)
_Address2 = value
End Set
Get
Return _Address2
End Get
End Property
Public Property City As String
Set(ByVal value As String)
_City = value
End Set
Get
Return _City
End Get
End Property
Public Property State As String
Set(ByVal value As String)
_State = value
End Set
Get
Return _State
End Get
End Property
Public Property Country As String
Set(ByVal value As String)
_Country = value
End Set
Get
Return _Country
End Get
End Property
Public Property Zip As String
Set(ByVal value As String)
_Zip = value
End Set
Get
Return _Zip
End Get
End Property
Public Property PhoneNo As String
Set(ByVal value As String)
_PhoneNo = value
End Set
Get
Return _PhoneNo
End Get
End Property
Public Property Mobile As String
Set(ByVal value As String)
_Mobile = value
End Set
Get
Return _Mobile
End Get
End Property
Public Property FaxNo As String
Set(ByVal value As String)
_FaxNo = value
End Set
Get
Return _FaxNo
End Get
End Property
Public Property Website As String
Set(ByVal value As String)
_Website = value
End Set
Get
Return _Website
End Get
End Property
Public Property Registration_Email As String
Set(ByVal value As String)
_Registration_Email = value
End Set
Get
Return _Registration_Email
End Get
End Property
Public Sub New()
End Sub
Public Sub New(ByVal Name As String, ByVal Company As String, ByVal Address1 As String, ByVal Address2 As String, ByVal City As String, ByVal State As String, ByVal Country As String, ByVal Zip As String, ByVal PhoneNo As String, ByVal Mobile As String, ByVal FaxNo As String, ByVal Website As String, ByVal Registration_Email As String)
Me.Name = Name
Me.Company = Company
Me.Address1 = Address1
Me.Address2 = Address2
Me.City = City
Me.State = State
Me.Country = Country
Me.Zip = Zip
Me.PhoneNo = PhoneNo
Me.FaxNo = FaxNo
Me.Website = Website
Me.Registration_Email = Registration_Email
End Sub
End Class
Dim profile As UserProfile = UserProfile.GetProfile(lblEmail.Text)
With profile.UserProfileInfo
.Address1 = txtAddress1.Text
.Address2 = txtAddress2.Text
.City = txtCity.Text
profile.Save()
End With
我的问题上面的代码工作得很好。但问题是,如果我将连接字符串名称设置为我想要的任何名称,它会给出错误。更改连接字符串名称时,我还将配置文件提供程序的“connectionStringName”属性设置为新名称。ProfileBase类似乎只在connectionStringName设置为LocalSqlServer的情况下工作。我怎样才能解决这个问题 解决了它。在添加配置文件提供程序之前添加了
Dim profile As UserProfile = UserProfile.GetProfile(lblEmail.Text)
With profile.UserProfileInfo
.Address1 = txtAddress1.Text
.Address2 = txtAddress2.Text
.City = txtCity.Text
profile.Save()
End With
<providers>
<clear />
<add name="ProfileProvider" applicationname="delivermatic" connectionstringname="myCon" type="System.Web.Profile.SqlProfileProvider, System.Web, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
</providers>