13-12-17, 12:58 AM
بردك نفس المشكلة
con.Open()
Dim cmd As New OleDbCommand("update web_tb set name_web=@name_web where ID_web=@ID_web", con)
cmd.Parameters.AddWithValue("@ID_web", Label1.Text)
cmd.Parameters.AddWithValue("@name_web", TextBox1.Text)
cmd.ExecuteNonQuery()
DataGridView1.Refresh()
DataSet1.Tables("web_tb").AcceptChanges()
DataAdapter1.Update(DataSet1, "web_tb")
con.Open()
Dim cmd As New OleDbCommand("update web_tb set name_web=@name_web where ID_web=@ID_web", con)
cmd.Parameters.AddWithValue("@ID_web", Label1.Text)
cmd.Parameters.AddWithValue("@name_web", TextBox1.Text)
cmd.ExecuteNonQuery()
DataGridView1.Refresh()
DataSet1.Tables("web_tb").AcceptChanges()
DataAdapter1.Update(DataSet1, "web_tb")