[فراس محي]

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

كود :

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

[GameOver]

كود :

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

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

[elgokr]

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

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

كود :

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% وبفضلك اخي العزيز

[elgokr]

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

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

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

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

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

تحياتى لك

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