how to update a database with data in textbox
I try to load a student record from database
every field of record will load into a textbox... then i try to modify the content of some textbox, and then try to click on the edit button to update them... but i never successfully modify any recrod.. would any one can help.. the following is my code..
in page load event i load the select record in the page... have edit event to update the record.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim studentID As String = Session("stduentID")
cn = New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("College.mdb")
Dim MySQL As String = "SELECT * FROM Students WHERE StudentId= " & studentID & " "
da = New OleDbDataAdapter(MySQL, cn)
ds = New DataSet
da.Fill(ds)
txtStudentID.Text = ds.Tables(0).Rows(0).Item(0)
txtFirstName.Text = ds.Tables(0).Rows(0).Item(1)
txtLastName.Text = ds.Tables(0).Rows(0).Item(2)
txtAddress.Text = ds.Tables(0).Rows(0).Item(3)
txtCity.Text = ds.Tables(0).Rows(0).Item(4)
txtProvince.Text = ds.Tables(0).Rows(0).Item(5)
txtPostalCode.Text = ds.Tables(0).Rows(0).Item(6)
txtPhoneNumber.Text = ds.Tables(0).Rows(0).Item(7)
txtEmailName.Text = ds.Tables(0).Rows(0).Item(8)
txtMajor.Text = ds.Tables(0).Rows(0).Item(9)
txtStudentNumber.Text = ds.Tables(0).Rows(0).Item(10)
txtPassword.Text = ds.Tables(0).Rows(0).Item(11)
End Sub
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
Dim studentID As String = Session("stduentID")
Dim strsql As String
cn = New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("College.mdb")
strsql = "Update students set FirstName=?, LastName=?, Address=?, City=?," & _
"StateOrProvince=?, PostalCode=?, PhoneNumber=?, EmailName=?," & _
"Major=?, StudentNumber=?, StudentPassword=? Where StudentId= ? "
Dim cmd As New OleDbCommand("update students set FirstName = ? where StudentId = ?")
cmd.Connection = cn
cmd.Connection.Open()
cmd.Parameters.Add("fn", txtFirstName.Text)
'cmd.Parameters.Add(New OleDbParameter("LastName", txtLastName.Text))
'cmd.Parameters.Add(New OleDbParameter("Address", txtAddress.Text))
'cmd.Parameters.Add(New OleDbParameter("City", txtCity.Text))
'cmd.Parameters.Add(New OleDbParameter("Province", txtProvince.Text))
'cmd.Parameters.Add(New OleDbParameter("PostalCode", txtPostalCode.Text))
'cmd.Parameters.Add(New OleDbParameter("PhoneNumber", txtPhoneNumber.Text))
'cmd.Parameters.Add(New OleDbParameter("EmailName", txtEmailName.Text))
'cmd.Parameters.Add(New OleDbParameter("Major", txtMajor.Text))
'cmd.Parameters.Add(New OleDbParameter("studentNumber", txtStudentNumber.Text))
'cmd.Parameters.Add(New OleDbParameter("password", txtPassword.Text))
'cmd.Parameters.Add("id", txtStudentID.Text)
cmd.ExecuteNonQuery()
cn.Close()
Response.Redirect("edit.aspx")
End Sub
Hui Deng
|
