منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ما هو الخطأ في كود التعديل التالي

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

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

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

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

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 

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

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

- اذا كنت تستخدم العبارة السحرية عند المبتدئين (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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

صالح عبدالله

قناص المدينة

صالح عبدالله

Kamil

صالح عبدالله

Taha Okla

صالح عبدالله