تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل اكتر من صف بقاعدة البيانات
#1
السلام عليكم

اريد تعديل اكتر من صف بقاعدة البيانات

حاولت بالطريقة دية تم بها تعديل الأول فقط لاغير



كود :
  Dim DEBIT, BLANCE As Single
               Dim comg As New OleDbCommand("UPDATE PARTENDETAILS_TB SET  PARTENDETAILS_DEBIT=@PARTENDETAILS_DEBIT,PARTENDETAILS_BLANCE=@PARTENDETAILS_BLANCE   WHERE PARTENDETAILS_ID = @PARTENDETAILS_ID", con)

               con.Open()

               For I = 0 To DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows.Count - 1

                   DEBIT = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_DEBIT").ToString()) 5
                   BLANCE = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_CREDIT").ToString()) - DEBIT


                   comg.Parameters.AddWithValue("@PARTENDETAILS_DEBIT", DEBIT)
                   comg.Parameters.AddWithValue("@PARTENDETAILS_BLANCE", BLANCE)
                   comg.Parameters.AddWithValue("@PARTENDETAILS_ID", Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_ID").ToString()))


                   comg.ExecuteNonQuery()
               Next

               con.Close()
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي
#2
عدل بال id لكل سجل افضل
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة:
#3
قم بعمل array تحتوي على جميع ال id المراد تحديث البيانات فيها 
وكذالك array تحتوي على جميع البيانات الجديدة المراد تحديثها.

وقم بتحديث البيانات باستخدام for loop

الرد }}}
تم الشكر بواسطة: اسامه الهرماوي , ابراهيم ايبو
#4
(06-05-19, 02:01 AM)محمد اسماعيل كتب : السلام عليكم

اريد تعديل اكتر من صف بقاعدة البيانات

حاولت بالطريقة دية تم بها تعديل الأول فقط لاغير



كود :
  Dim DEBIT, BLANCE As Single
               Dim comg As New OleDbCommand("UPDATE PARTENDETAILS_TB SET  PARTENDETAILS_DEBIT=@PARTENDETAILS_DEBIT,PARTENDETAILS_BLANCE=@PARTENDETAILS_BLANCE   WHERE PARTENDETAILS_ID = @PARTENDETAILS_ID", con)

               con.Open()

               For I = 0 To DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows.Count - 1

                   DEBIT = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_DEBIT").ToString()) 5
                   BLANCE = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_CREDIT").ToString()) - DEBIT


                   comg.Parameters.AddWithValue("@PARTENDETAILS_DEBIT", DEBIT)
                   comg.Parameters.AddWithValue("@PARTENDETAILS_BLANCE", BLANCE)
                   comg.Parameters.AddWithValue("@PARTENDETAILS_ID", Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_ID").ToString()))


                   comg.ExecuteNonQuery()
               Next

               con.Close()

جملة التحديث يجب ان تكون داخل الفور .
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#5
(08-05-19, 05:15 PM)حريف برمجة كتب :
(06-05-19, 02:01 AM)محمد اسماعيل كتب : السلام عليكم

اريد تعديل اكتر من صف بقاعدة البيانات

حاولت بالطريقة دية تم بها تعديل الأول فقط لاغير



كود :
  Dim DEBIT, BLANCE As Single
               Dim comg As New OleDbCommand("UPDATE PARTENDETAILS_TB SET  PARTENDETAILS_DEBIT=@PARTENDETAILS_DEBIT,PARTENDETAILS_BLANCE=@PARTENDETAILS_BLANCE   WHERE PARTENDETAILS_ID = @PARTENDETAILS_ID", con)

               con.Open()

               For I = 0 To DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows.Count - 1

                   DEBIT = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_DEBIT").ToString()) 5
                   BLANCE = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_CREDIT").ToString()) - DEBIT


                   comg.Parameters.AddWithValue("@PARTENDETAILS_DEBIT", DEBIT)
                   comg.Parameters.AddWithValue("@PARTENDETAILS_BLANCE", BLANCE)
                   comg.Parameters.AddWithValue("@PARTENDETAILS_ID", Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_ID").ToString()))


                   comg.ExecuteNonQuery()
               Next

               con.Close()

جملة التحديث يجب ان تكون داخل الفور .

جزاكم الله كل خير علي المتابعة
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#6
وعليكم السلام ورحمة الله وبركاته

فقط استخدم الكود بهذا الشكل
كود :
       con.Open()
       Dim DEBIT, BLANCE As Integer
       For I = 0 To DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows.Count - 1
           Dim comg As New OleDbCommand("UPDATE PARTENDETAILS_TB SET  PARTENDETAILS_DEBIT=@PARTENDETAILS_DEBIT,PARTENDETAILS_BLANCE=@PARTENDETAILS_BLANCE WHERE PARTENDETAILS_ID = @PARTENDETAILS_ID", con)
           DEBIT = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_DEBIT").ToString())
           BLANCE = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_CREDIT").ToString()) - DEBIT
           comg.Parameters.AddWithValue("@PARTENDETAILS_DEBIT", DEBIT.ToString())
           comg.Parameters.AddWithValue("@PARTENDETAILS_BLANCE", BLANCE.ToString())
           comg.Parameters.AddWithValue("@PARTENDETAILS_ID", Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_ID").ToString()))
           comg.ExecuteNonQuery()
       Next
       con.Close()

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#7
(11-05-19, 02:51 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

فقط استخدم الكود بهذا الشكل
كود :
       con.Open()
       Dim DEBIT, BLANCE As Integer
       For I = 0 To DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows.Count - 1
           Dim comg As New OleDbCommand("UPDATE PARTENDETAILS_TB SET  PARTENDETAILS_DEBIT=@PARTENDETAILS_DEBIT,PARTENDETAILS_BLANCE=@PARTENDETAILS_BLANCE WHERE PARTENDETAILS_ID = @PARTENDETAILS_ID", con)
           DEBIT = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_DEBIT").ToString())
           BLANCE = Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_CREDIT").ToString()) - DEBIT
           comg.Parameters.AddWithValue("@PARTENDETAILS_DEBIT", DEBIT.ToString())
           comg.Parameters.AddWithValue("@PARTENDETAILS_BLANCE", BLANCE.ToString())
           comg.Parameters.AddWithValue("@PARTENDETAILS_ID", Val(DSDETAILSFIL.Tables("PARTENDETAILS_TB").Rows(I)("PARTENDETAILS_ID").ToString()))
           comg.ExecuteNonQuery()
       Next
       con.Close()

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

تمام اخي الجوكر


كل الشكر والتوفيق
الرد }}}
تم الشكر بواسطة: asemshahen5 , elgokr , ابراهيم ايبو
#8
الشكر لله والحمد لله
والحمد لله على كل حال

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 599 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775

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


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