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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده في كود التعديل (/showthread.php?tid=25956)

مساعده في كود التعديل - فراس محي - 02-08-18

السلام عليكم 
ممكن تعديل هذا الكود لان كل مارغبت بتشغيل التعديل على سجل معين بتضهر رساله خطاء ايش الحل رحم الله والديكم 
كود :
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


RE: مساعده في كود التعديل - GameOver - 02-08-18

كود :
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) )


RE: مساعده في كود التعديل - فراس محي - 07-08-18

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


RE: مساعده في كود التعديل - محمود بكرى - 07-08-18

استخدم الصيغة
كود :
"update info set name ='" & textname.text &"'"

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

RE: مساعده في كود التعديل - elgokr - 08-08-18

تفضل اخى فراس محي
الكود بالصورة الصحيحة ...
كود :
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

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

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


RE: مساعده في كود التعديل - نور الهدى الهدى - 09-08-18

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

RE: مساعده في كود التعديل - فراس محي - 09-08-18

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

RE: مساعده في كود التعديل - elgokr - 09-08-18

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


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

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

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

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