منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] تعديل اكتر من صف بقاعدة البيانات
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] تعديل اكتر من صف بقاعدة البيانات
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
#1
06-05-19, 02:01 AM (آخر تعديل لهذه المشاركة : 06-05-19, 02:18 AM {2} بواسطة محمد اسماعيل.)
السلام عليكم

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

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



كود :
  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()
البحث
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي
اسامه الهرماوي غير متصل
عضو نشيط
*
المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة : 64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
#2
07-05-19, 02:48 AM
عدل بال id لكل سجل افضل
المبرمج لا يفكر في المشكلة بل في الحل!!
البحث
الرد }}}
تم الشكر بواسطة:
Rabeea Qbaha غير متصل
مراقب منتدى
المشاركات : 669
المواضيع 88
الإنتساب : Aug 2016
السمعة : 97
الشكر: 798
تم شكره 1154 مرات في 488 مشاركات
#3
08-05-19, 04:55 PM
قم بعمل array تحتوي على جميع ال id المراد تحديث البيانات فيها 
وكذالك array تحتوي على جميع البيانات الجديدة المراد تحديثها.

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

البحث
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي , ابراهيم ايبو
حريف برمجة غير متصل
مشرف عام
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة : 253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات

mem0
#4
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()

جملة التحديث يجب ان تكون داخل الفور .
يا رحمن الدنيا والآخرة ورحيمهما
البحث
الرد }}}
تم الشكر بواسطة: asemshahen5 , محمد اسماعيل , ابراهيم ايبو , ابراهيم ايبو
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
#5
09-05-19, 01:50 AM
(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()

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

جزاكم الله كل خير علي المتابعة
البحث
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
elgokr غير متصل
|-| E L G O K R |-|
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة : 724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات

mem0
#6
11-05-19, 02:51 PM
وعليكم السلام ورحمة الله وبركاته

فقط استخدم الكود بهذا الشكل
كود :
       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 , محمد اسماعيل , ابراهيم ايبو
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
#7
11-05-19, 07:13 PM
(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 , ابراهيم ايبو
elgokr غير متصل
|-| E L G O K R |-|
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة : 724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات

mem0
#8
11-05-19, 09:21 PM
الشكر لله والحمد لله
والحمد لله على كل حال

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب تعديل كود عرض بيانات xlsx ABDULLAH HASSAN 1 21 منذ 3 ساعة مضت
آخر رد: justforit
  تعديل على فاتورة مبيعات خالد كامل1 4 124 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 172 21-03-24, 10:07 PM
آخر رد: new_programer
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 659 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 174 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 108 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 201 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 171 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 264 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 271 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1

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


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