تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده في كود التعديل
#1
السلام عليكم 
ممكن تعديل هذا الكود لان كل مارغبت بتشغيل التعديل على سجل معين بتضهر رساله خطاء ايش الحل رحم الله والديكم 
كود :
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
الرد }}
تم الشكر بواسطة:
#2
كود :
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) )
الرد }}
تم الشكر بواسطة: alsouf
#3
(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.
الرد }}
تم الشكر بواسطة:
#4
استخدم الصيغة
كود :
"update info set name ='" & textname.text &"'"

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: alsouf
#6
أخوتي ما الفرق بين الكودين وما الأفضل والاسرع حيث انني أستخدم كود الاخ Gameover
الرد }}
تم الشكر بواسطة:
#7
اعجز عن شكرك اخي الكريم وربي يجعله في ميزان حسناتك ولك مني الف تحيه على مجهودك ووقت 
وشكرا مجددا 
الكود اصبح شغال 100% وبفضلك اخي العزيز
الرد }}
تم الشكر بواسطة: elgokr
#8
(09-08-18, 12:12 PM)نور الهدى الهدى كتب : أخوتي ما الفرق بين الكودين وما الأفضل والاسرع حيث انني أستخدم كود الاخ Gameover


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

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية التعديل علي firebase من خلال auth ميدو الفنان 2 316 12-06-22, 01:36 AM
آخر رد: أبو خالد الشكري
  لا استطيع التعديل على صفخة كريستور ريبورت ارجوا المساعدة rochdi191 4 819 02-04-22, 01:43 AM
آخر رد: rochdi191
  مشكله زر التعديل ضرورى افادكم الله حسين ادريس 6 610 12-03-22, 03:43 AM
آخر رد: حسين ادريس
  كيفية برمجه زر التعديل والحفظ حسين ادريس 0 476 10-03-22, 10:12 PM
آخر رد: حسين ادريس
  [VB.NET] خطأ في كود التعديل بقاعدة بيانات SQL SErver haithammoftah 1 518 13-12-21, 07:59 PM
آخر رد: haithammoftah
  احتاج مساعدة في التعديل على كود شغال تمام في wpf اما winform يظهر مشكل farfour 3 795 10-11-21, 12:27 AM
آخر رد: mrfenix93
  [سؤال] مساعده حسن الجلب 1 374 05-11-21, 08:27 PM
آخر رد: Anas Mahmoud
  كود التعديل على السجلات aftfm 0 481 17-10-21, 08:03 PM
آخر رد: aftfm
  [VB.NET] التعديل على المثال AHMED213 1 564 08-09-21, 12:40 AM
آخر رد: ابراهيم ايبو
  [VB.NET] مساعده فى keybd event Programmer.Net 0 381 07-09-21, 04:41 AM
آخر رد: Programmer.Net

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم