+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل الكود يا جماعه محدش بيرد عليا خالص insert (/showthread.php?tid=21042)
تعديل الكود يا جماعه محدش بيرد عليا خالص insert - نبيل كونكت - 13-07-17
PHP كود :
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txP As String = Val(r.Cells(1).Value)
Dim txt As Integer = Val(r.Cells(2).Value)
'Dim txC As Integer = Val(r.Cells(3).Value)
Dim STTR As String
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} , [price] = {2} WHERE [id] = {1} and [price] = {2} ", txt, ad, txP)
If cmd.ExecuteNonQuery() Then
Dim txC As Integer = ("select label from [tab_pro] WHERE [id] = {'" & ad & "'} ")
STTR = ("insert into tab_pro (label,qty,price,id) values ({0},{1},{2},{3'" & 1 & "'})", txP, txt, txC , ad )
cmd.ExecuteNonQuery()
End If
Next
RE: تعديل الكود يا جماعه محدش بيرد عليا خالص insert - mstfa1991 - 13-07-17
cmd.ExecuteNonQuery يعيد رقم عبارة عن عدد الأسطر
ويكون التصحيح لديك هنا
PHP كود :
If cmd.ExecuteNonQuery = 0 Then
وهنا يعني لو رجع بعدد صفر معناه لم يجد اسطر ليحدثها وبالتالي تقدر تعتبرها غير موجود فتضيفها بالامر Insert
لكن لا داعي لشرط price في جملة Update فتكون هكذا ولو انه الافضل استخدم Paramaeter لتمرير القيم لها
PHP كود :
" UPDATE [tab_pro] SET [qty] = qty +{0} , [price] = {2} WHERE [id] = {1} "
لقيت لك هذا الموضوع فيه طريقة Parameters لا ادري لم تستفيد منه
http://vb4arb.com/vb/showthread.php?tid=21002
RE: تعديل الكود يا جماعه محدش بيرد عليا خالص insert - نبيل كونكت - 13-07-17
المشكله ان دى فاتورة مشتريات
الــــ price السعر لو لقى السعر مختلف
المشكله بقى فى كود انه ياخد اسم الـ label ويعمل Insert باضافة رقم 1 جمب الاسم
(13-07-17, 01:29 PM)نبيل كونكت كتب : المشكله ان دى فاتورة مشتريات
الــــ price السعر لو لقى السعر مختلف
المشكله بقى فى كود انه ياخد اسم الـ label ويعمل Insert باضافة رقم 1 جمب الاسم
ده كود الـUPDATE شغال تمام بشرطين وهم ال ID و PRICEPHP كود :
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txP As String = Val(r.Cells(1).Value)
Dim xt As Integer = Val(r.Cells(2).Value)
Dim txC As Integer = Val(r.Cells(3).Value)
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} , [price] = {1} WHERE [id] = {2} ", xt, txC, ad)
cmd.ExecuteNonQuery()
Next
بشرط واحد علشان حذفت الشرط التانى علشان المشكله الاصليه وهى اضافه نفس الاسم بجواره رقم 1
RE: تعديل الكود يا جماعه محدش بيرد عليا خالص insert - نبيل كونكت - 13-07-17
الترقيم التلقائى مشكلته معايا انه مش بيتكرر
فانا او هو لو مسح فاتوره الرقم مبيرجعش
يعنى يبدا فواتيره مثلا من 156 ودى تكون اول فاتوره ليه فشغال يدور
"select max (ID) from [tab_older] " مثلا
والــ ID فى قاعدة البيانات مفتاح اساسى مش ترقيم تلقائى
(13-07-17, 01:37 PM)http://vb4arb.com/vb/showthread.php?tid=21034 كتب : الكود بالتفصيل
RE: تعديل الكود يا جماعه محدش بيرد عليا خالص insert - نبيل كونكت - 13-07-17
تمام بس لو مستحت الى فى الجدول هيبدا من جديد اما الترقيم التلقائى لا