منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] تعديل اكتر من صف بقاعدة البيانات
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] تعديل اكتر من صف بقاعدة البيانات
محمد اسماعيل غير متصل
عضو نشيط
*
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة : 18
الشكر: 379
تم شكره 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()
البحث
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي
اسامه الهرماوي غير متصل
عضو نشيط
*
المشاركات : 765
المواضيع 131
الإنتساب : Feb 2018
السمعة : 64
الشكر: 1633
تم شكره 1074 مرات في 529 مشاركات
#2
07-05-19, 02:48 AM
عدل بال id لكل سجل افضل
المبرمج لا يفكر في المشكلة بل في الحل!!
البحث
الرد }}}
تم الشكر بواسطة:
Rabeea Qbaha غير متصل
مراقب منتدى
المشاركات : 669
المواضيع 88
الإنتساب : Aug 2016
السمعة : 97
الشكر: 788
تم شكره 1155 مرات في 488 مشاركات
#3
08-05-19, 04:55 PM
قم بعمل array تحتوي على جميع ال id المراد تحديث البيانات فيها 
وكذالك array تحتوي على جميع البيانات الجديدة المراد تحديثها.

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

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

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
الشكر: 379
تم شكره 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,771
المواضيع 36
الإنتساب : Mar 2014
السمعة : 725
الشكر: 7108
تم شكره 6714 مرات في 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
الشكر: 379
تم شكره 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,771
المواضيع 36
الإنتساب : Mar 2014
السمعة : 725
الشكر: 7108
تم شكره 6714 مرات في 3265 مشاركات

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة تعديل على الكود ZEEN4ZEEN 2 209 08-10-25, 02:20 PM
آخر رد: salamandal
  تصدير البيانات إلى ملف RTF مصمم هاوي 4 823 15-08-25, 04:13 PM
آخر رد: أبو خالد الشكري
  [VB.NET] ما هو أفضل موقع استضافة لقواعد البيانات MSSQL ؟ mmaalmesry 0 796 16-07-25, 10:45 PM
آخر رد: mmaalmesry
  مساعدة في كيفية ترحيل البيانات من داتا قريدفيو إلى داتا قريدفيو في فيجوال بيسك ahmedfa71 13 2,221 09-07-25, 11:24 PM
آخر رد: أبو خالد الشكري
  مشكلة في حفظ البيانات مصمم هاوي 2 1,019 30-06-25, 08:51 AM
آخر رد: مصمم هاوي
  بطء في جلب البيانات مصمم هاوي 9 1,001 08-05-25, 07:51 AM
آخر رد: مصمم هاوي
  تعديل كود تحديث البيانات مصمم هاوي 1 784 26-04-25, 06:07 PM
آخر رد: مصمم هاوي
Photo لايمكن تعرف على تنسيق قاعدة البيانات الدريساوي 2 697 26-04-25, 12:24 AM
آخر رد: الدريساوي
  مساعدة في طريقة تحميل الفيديوهات المخزنة في قاعدة البيانات foad8920 0 660 24-04-25, 12:58 PM
آخر رد: foad8920
  إغلاق الفورم مع حذف جميع البيانات الموجودة به صالح عبدالله 10 1,038 19-04-25, 08:54 PM
آخر رد: Kamil

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


يقوم بقرائة الموضوع: