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

السلام عليكم
ممكن تعديل هذا الكود لان كل مارغبت بتشغيل التعديل على سجل معين بتضهر رساله خطاء ايش الحل رحم الله والديكم

كود :

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" & _

             "('" & TextBox12.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox10.Text & "','" & TextBox9.Text & "','" & ComboBox4.Text & "','" & TextBox8.Text & "','" & TextBox7.Text & "')"

        cmd.ExecuteNonQuery()

        cnn.Close()

        clear1()

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

    End Sub

كود :

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

(02-08-18, 06:45 PM)GameOverاشكر سعه صدرك ووقتك ولاكن عباره الخطا التي تضهر هي هذهAn unhandled exception of type \System.Data.OleDb.OleDbException' occurred in System.Data.dll كتب : [ -> ]Additional information: Syntax error in UPDATE statement.

استخدم الصيغة

كود :

"update info set name ='" & textname.text &"'"

ثم باقى الحقول

تفضل اخى فراس محي

الكود بالصورة الصحيحة ...

كود :

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        dataconnection()

        cmd.Connection = cnn

        cmd.CommandText = "UPDATE [info] SET [name] = '" & TextBox12.Text & "', [department] = '" & ComboBox2.Text & "', [dgree] = '" & ComboBox3.Text & "', [pagn] = '" & TextBox10.Text & "', [typepag] = '" & TextBox9.Text & "', [typegan] = '" & ComboBox4.Text & "', [ngan] = '" & TextBox8.Text & "', [unti] = '" & TextBox7.Text & "' WHERE ID = " & vALID

        cmd.ExecuteNonQuery()

        cnn.Close()

        clear1()

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

End Sub

تذكر كل ما عليك فعله هو التعديل على هذا الجزء

كود :

ID = " & vALID

لاتمام عند التعديل على البيانات لا يقوم بالتعديل على البيانات المحددة

تحياتى لك

وتمنياتى لك التوفيق

أخوتي ما الفرق بين الكودين وما الأفضل والاسرع حيث انني أستخدم كود الاخ Gameover

اعجز عن شكرك اخي الكريم وربي يجعله في ميزان حسناتك ولك مني الف تحيه على مجهودك ووقت
وشكرا مجددا
الكود اصبح شغال 100% وبفضلك اخي العزيز

(09-08-18, 12:12 PM)نور الهدى الهدى كتب : [ -> ]أخوتي ما الفرق بين الكودين وما الأفضل والاسرع حيث انني أستخدم كود الاخ Gameover

كلاهما واحد ولكن طريقة الاخ Gameover

هو استخدام Parameters فى عملية الاستعلام والادخال والتعديل والحذف...

ويفضل دائماً استخدام الـ Parameters لحماية الحقن فى قاعدة البيانات

فهى كا حماية للتعامل فى اكواد قاعدة البيانات

تحياتى لك

وتمنياتى لك التوفيق

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

فراس محي

GameOver

فراس محي

محمود بكرى

elgokr

نور الهدى الهدى

فراس محي

elgokr