المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة :
18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
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 مشاركات
عدل بال id لكل سجل افضل
المبرمج لا يفكر في المشكلة بل في الحل!!
المشاركات : 669
المواضيع 88
الإنتساب : Aug 2016
السمعة :
97
الشكر: 798
تم شكره 1154 مرات في 488 مشاركات
قم بعمل array تحتوي على جميع ال id المراد تحديث البيانات فيها
وكذالك array تحتوي على جميع البيانات الجديدة المراد تحديثها.
وقم بتحديث البيانات باستخدام for loop
المشاركات : 1,556
المواضيع 14
الإنتساب : Apr 2013
السمعة :
253
الشكر: 3551
تم شكره 4875 مرات في 1243 مشاركات
(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()
جملة التحديث يجب ان تكون داخل الفور .
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة :
18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
(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()
جملة التحديث يجب ان تكون داخل الفور .
جزاكم الله كل خير علي المتابعة
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
وعليكم السلام ورحمة الله وبركاته
فقط استخدم الكود بهذا الشكل
كود :
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()
تحياتى لك
وتمنياتى لك التوفيق
المشاركات : 684
المواضيع 248
الإنتساب : Dec 2013
السمعة :
18
الشكر: 381
تم شكره 381 مرات في 232 مشاركات
(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()
تحياتى لك
وتمنياتى لك التوفيق
تمام اخي الجوكر
كل الشكر والتوفيق
المشاركات : 3,815
المواضيع 36
الإنتساب : Mar 2014
السمعة :
724
الشكر: 7238
تم شكره 6709 مرات في 3265 مشاركات
الشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
|