I am creating a update member page. I would like the page to auto retrieve the information he or she originally used while registering on my site and display them into the individual textboxes of the update profile page, this is to prevent the hassle to rekey in every individual details and allow the user to edit what he or she wants before it is updated into the database.
The problem that I encountered was not able to update the changes in the database. When key in the latest data in address text box and hit submit button, the old data in address text box remains and did not update the database
Imports System.Data Imports System.Data.SqlClient Imports System.Web.Configuration Partial Class UpdateEmployeeDetails Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = Session("Employee_ID") updaterecords() End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myConnection As SqlConnection Dim myCommand As SqlCommand Try myConnection = New SqlConnection("data source=.\SQLEXPRESS; initial catalog=Human_Resource_Management;" & "integrated security=true") myConnection.Open() myCommand = New SqlCommand("Update Employee_DB Set Address = '" & Address.Text & "' where Employee_ID = '3344'", myConnection) myCommand.ExecuteNonQuery() MsgBox("Record has been updated") myConnection.Close() Catch exception As SqlException MsgBox("Failed") End Try End Sub Function updaterecords() As String Dim connetionString As String Dim sqlCnn As SqlConnection Dim sqlCmd As SqlCommand Dim sql As String Dim DBConn As New SqlConnection("data source=.\SQLEXPRESS; initial catalog=Human_Resource_Management;" & "integrated security=true") Dim DBCmd As New SqlCommand DBConn.Open() connetionString = "data source=.\SQLEXPRESS; initial catalog=Human_Resource_Management;" & "integrated security=true" sql = "Select * from Employee_DB where Employee_ID = '" & Session("Employee_ID") & "'" sqlCnn = New SqlConnection(connetionString) sqlCnn.Open() sqlCmd = New SqlCommand(sql, sqlCnn) Dim sqlReader As SqlDataReader = sqlCmd.ExecuteReader() While sqlReader.Read() Label1.Text = Session("Employee_ID") Label2.Text = sqlReader.Item(3) Session("sqlReader.Item(2)") = Address.Text End While End Function End Class
Edited 3 Years Ago by Nick Evan: Fixed formatting