[GameOver]

كود :

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
   dataconnection()
   cmd.Connection = cnn

   cmd.CommandText = " UPDATE [info] " & _
              "([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti]) VALUES" & _
          "(@name,@department,@dgree,@pagn,@typepag,@typegan,@ngan,@unti)"

   cmd.Parameters.AddWithValue("@name", TextBox12.Text)
   cmd.Parameters.AddWithValue("@department", ComboBox2.Text)
   cmd.Parameters.AddWithValue("@dgree", ComboBox3.Text)
   cmd.Parameters.AddWithValue("@pagn", TextBox10.Text)
   cmd.Parameters.AddWithValue("@typepag", TextBox9.Text)
   cmd.Parameters.AddWithValue("@typegan", ComboBox4.Text)
   cmd.Parameters.AddWithValue("@ngan", TextBox8.Text)
   cmd.Parameters.AddWithValue("@unti", TextBox7.Text)

   cmd.ExecuteNonQuery()
   cnn.Close()
   clear1()

   MessageBox.Show("تم التعديل بنجاح", "تعديل ", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

اذا كان الحقل رقمي يجب وضع القيمة في امر Val مثل

كود :

   cmd.Parameters.AddWithValue("@ngan", Val(TextBox8.Text) )