منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تعديل اكتر من صف بقاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تعديل اكتر من صف بقاعدة البيانات (/showthread.php?tid=29562)



تعديل اكتر من صف بقاعدة البيانات - محمد اسماعيل - 06-05-19

السلام عليكم

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

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



كود :
  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()



RE: تعديل اكتر من صف بقاعدة البيانات - اسامه الهرماوي - 07-05-19

عدل بال id لكل سجل افضل


RE: تعديل اكتر من صف بقاعدة البيانات - Rabeea Qbaha - 08-05-19

قم بعمل array تحتوي على جميع ال id المراد تحديث البيانات فيها 
وكذالك array تحتوي على جميع البيانات الجديدة المراد تحديثها.

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


RE: تعديل اكتر من صف بقاعدة البيانات - حريف برمجة - 08-05-19

(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()

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


RE: تعديل اكتر من صف بقاعدة البيانات - محمد اسماعيل - 09-05-19

(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()

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

جزاكم الله كل خير علي المتابعة


RE: تعديل اكتر من صف بقاعدة البيانات - elgokr - 11-05-19

وعليكم السلام ورحمة الله وبركاته

فقط استخدم الكود بهذا الشكل
كود :
       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()

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



RE: تعديل اكتر من صف بقاعدة البيانات - محمد اسماعيل - 11-05-19

(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()

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

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


كل الشكر والتوفيق


RE: تعديل اكتر من صف بقاعدة البيانات - elgokr - 11-05-19

الشكر لله والحمد لله
والحمد لله على كل حال

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