تقييم الموضوع :
  • 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
الشكر لله والحمد لله
والحمد لله على كل حال

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلةفي تحديث البيانات او تحميل البيانات على الداتا جريد فيو alshandodi 1 87 14-07-19, 04:58 PM
آخر رد: سعود
Question كيفية التخلص من تكرار تخزين البيانات الرائد 12 346 11-07-19, 10:51 PM
آخر رد: Al Wilaya
  [VB.NET] سؤال حول فرز البيانات في Combobox Al Wilaya 5 176 11-07-19, 12:12 AM
آخر رد: Al Wilaya
  ربط الفورم بقاعدة بيانات اكسل ابو العلاء 2 86 09-07-19, 01:16 AM
آخر رد: ابو العلاء
Question [VB.NET] كيفية عرض الصور من قاعدة البيانات على picturebox الرائد 9 287 07-07-19, 02:30 AM
آخر رد: ابراهيم ايبو
  هل هناك امكانية لتشفير نص اتصال قاعدة البيانات سامي محمد 7 199 06-07-19, 01:11 AM
آخر رد: سامي محمد
  [VB.NET] مشكل مفتاح قاعدة البيانات Autonumber sniperjawadino 4 254 30-06-19, 06:38 PM
آخر رد: sniperjawadino
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 13 470 26-06-19, 02:16 AM
آخر رد: الرائد
  تعديل كود حفظ الصورة من PictureBox1 ابو خليل99 6 201 25-06-19, 01:07 PM
آخر رد: ابو خليل99
  [VB.NET] سؤال عن ترتيب البيانات عند الاستعلام محمد اسماعيل 6 209 18-06-19, 04:44 PM
آخر رد: محمد اسماعيل

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


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