تعديل اكتر من صف بقاعدة البيانات - محمد اسماعيل - 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
الشكر لله والحمد لله
والحمد لله على كل حال
تحياتى لك
وتمنياتى لك التوفيق
|