проблема form_load с обновлением деталей с использованием переменных сеанса и текстовых полей

Question

Я пытаюсь разрешить пользователям обновлять свои данные после входа на сайт asp с помощью vb. Текстовые поля заполняются пользовательской информацией, используя переменные сеанса в form_load. Текстовые поля должны быть редактируемыми, но по какой-то причине не регистрируют изменения при нажатии кнопки отправки.

Есть похожий вопрос с той же проблемой База данных не обновляется после оператора UPDATE SQL в ASP.net , на который так и не был получен ответ.

Пожалуйста, может кто-нибудь посоветовать

Заранее спасибо

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Txt_Fname.Text = Session("First_Name")
    Txt_LName.Text = Session("Last_Name")
    Txt_ContactNumber.Text = Session("Cell_Number")
    Txt_Email.Text = Session("Email_Address")
End Sub

Protected Sub Cmd_Submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmd_Submit.Click



    Command.Connection = Connection
    Command.CommandText = "UPDATE dbo.User_Account Set First_Name = @First_Name, Last_Name = @Last_Name, Cell_Number = @Cell_Number, Email_Address = @Email_Address where Overall_ID = @Overall_ID"
    Command.Parameters.AddWithValue("@First_Name", Txt_Fname.Text)
    Command.Parameters.AddWithValue("@Last_Name", Txt_LName.Text)
    Command.Parameters.AddWithValue("@Cell_Number", Txt_ContactNumber.Text)
    Command.Parameters.AddWithValue("@Email_Address", Txt_Email.Text)
    Command.Parameters.AddWithValue("@Overall_ID", Session("ID"))

    Connection.Open()
    Command.ExecuteNonQuery()
    Connection.Close()

    Response.Redirect("MyAccount.aspx")
End Sub

Answer 1

Добавьте, если не page.ispostback, перед вашим кодом в page_load.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If (Not Page.IsPostBack) then
        Txt_Fname.Text = Session("First_Name")
        Txt_LName.Text = Session("Last_Name")
        Txt_ContactNumber.Text = Session("Cell_Number")
        Txt_Email.Text = Session("Email_Address")
   End If
End Sub