[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
استخدم الكود التالي للتعديل على بيانات محفوظة في جدول في قاعدة بيانات اكسس ولكن عملية التعديل لاتتم ولايظهر لي الخطأ الذي وقعت فيه مع العلم أن نوعية البيانات في حقول جدول اكسس هي نص مختصر
لكم جزيل شكري 

 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.Close()

        con.Open()

        If cmdupdate1.ExecuteNonQuery = 1 Then

            con.Close()

            MsgBox("  تم التعديل بنجاح  ")

        End If

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

شوف هذا الكود

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()

[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
اشكرك استاذ قناص المدينة على تفاعلك ولكن للأسف الكود لايعمل ولايظهر اي رسالة تبين المشكلة

[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 


[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل لك أستاذ كامل ومازالت المشكلة قائمة والغريب أنها عملية بسيطة لكن تعقد الموضوع بشكل غريب

[Taha Okla]

السلام عليكم ورحمة الله وبركاته :

- اذا كنت تستخدم العبارة السحرية عند المبتدئين (On Error Resume Next -- GoTo)  - أو ما شابهها -
   أمسحها وجرب مشروعك --- هذه العبارة ليست للمبرمجين في بيئة الدوت نت .. بل في حال استيراد مكتبات خارجية غير قياسية.

- إذا كنت تستخدم عبارات try - Catch ...   تخلص منها  أو عطلها مؤقتاً   حتى تنتهي من كتابة مشروعك والتحقق من صحته
   فإذا شعرت بأن مشروعك أكتمل (يصبح فيك إضافة متتبع الأخطاء - Try  Catch  ) ...

- إذا أي من الحلول أعلاه لم تستخدمه أساساً أو لم يجدي معك نفعاً  جرب الآتي :
- أرفع مشروعك للنظر فيه.
- اذا كنت لا تستطيع رفع المشروع :
   أنشئ مشروع جديد فيه نفس ما في هذه النافذة التي فيها المشكلة وجرب فيها (طبعاً بدون استخدام متتبع الأخطاء).
- اذا ما اشتغل مع المشروع الجديد - أرفعه هنا - للنظر فيه.


بالتوفيق ..

[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
أعتذر من جميع الإخوة لتأخري في الرد لظرف صحي وأقدم لكم بالشكر على اهتمامكم

تم حل المشكلة والحمد لله بإستخدام الكود التالي 

  Dim saveinto As New OleDbCommand

        saveinto.Connection = con

        saveinto.CommandType = CommandType.Text

        saveinto.CommandText = " 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"

        saveinto.Parameters.AddWithValue("@Student_Num", (TextBox3.Text))

        saveinto.Parameters.AddWithValue("@Hawia_Num", (TextBox4.Text))

        saveinto.Parameters.AddWithValue("@Student_Name", (TextBox1.Text))

        saveinto.Parameters.AddWithValue("@Study_Path", (ComboBox3.Text))

        saveinto.Parameters.AddWithValue("@Saff", (ComboBox1.Text))

        saveinto.Parameters.AddWithValue("@Shoba", (CInt(ComboBox2.Text)))

        saveinto.Parameters.AddWithValue("@Phone", (txtcode.Text))

        saveinto.Parameters.AddWithValue("@Phone_Star", (txtcode.Text))

        saveinto.Parameters.AddWithValue("@ID1", (TextBox2.Text))

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        saveinto.ExecuteNonQuery()

        con.Close()