[Kamil]

جرب هذا التعديل

PHP كود :

Try
    ' إعداد الأمر
    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() = 1 Then
        MsgBox("تم التعديل بنجاح")
    Else
        MsgBox("لم يتم التعديل")
    End If
Catch ex As Exception
    MsgBox("حدث خطأ: " & ex.Message)
Finally
    con.Close()
End Try