[قناص المدينة]

شوف هذا الكود

Dim cmdupdate1 As OleDbCommand = New OleDbCommand("update Student_Data set Student_Num=@Student_Num,Hawia_Num=@Hawia_Num,Student_Name=@Student_Name,Study_Path=@Study_Path,Saff=@Saff,Shoba=@Shoba,Phone=@Phone,Phone_Star=@Phone_Star where ID1=@ID1", con)

cmdupdate1.Parameters.Add("@ID1", OleDbType.Integer).Value = CInt(TextBox2.Text)
cmdupdate1.Parameters.Add("@Student_Num", OleDbType.VarChar).Value = TextBox3.Text
cmdupdate1.Parameters.Add("@Hawia_Num", OleDbType.VarChar).Value = TextBox4.Text
cmdupdate1.Parameters.Add("@Student_Name", OleDbType.VarChar).Value = ComboBox1.Text
cmdupdate1.Parameters.Add("@Study_Path", OleDbType.VarChar).Value = ComboBox3.Text
cmdupdate1.Parameters.Add("@Saff", OleDbType.VarChar).Value = ComboBox1.Text
cmdupdate1.Parameters.Add("@Shoba", OleDbType.VarChar).Value = ComboBox2.Text
cmdupdate1.Parameters.Add("@Phone", OleDbType.VarChar).Value = txtcode.Text
cmdupdate1.Parameters.Add("@Phone_Star", OleDbType.VarChar).Value = "*" + txtcode.Text + "*"

con.Open()
If cmdupdate1.ExecuteNonQuery > 0 Then
MsgBox(" تم التعديل بنجاح ")
End If
con.Close()