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()تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية