تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل الكود يا جماعه محدش بيرد عليا خالص insert
#1
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 
الرد
تم الشكر بواسطة:
#2
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
الرد
تم الشكر بواسطة: Amir_Alzubidy , نبيل كونكت
#3
المشكله ان دى فاتورة مشتريات
الــــ price السعر لو لقى السعر مختلف
المشكله بقى فى كود انه ياخد اسم الـ label ويعمل Insert باضافة رقم 1 جمب الاسم

(13-07-17, 01:29 PM)نبيل كونكت كتب : المشكله ان دى فاتورة مشتريات
الــــ price  السعر لو لقى السعر مختلف
المشكله بقى فى كود انه ياخد اسم الـ label ويعمل Insert باضافة رقم 1 جمب الاسم
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 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} "xttxCad)
 
           cmd.ExecuteNonQuery()
 
       Next 
ده كود الـUPDATE شغال تمام بشرطين وهم ال ID و PRICE

بشرط واحد علشان حذفت الشرط التانى علشان المشكله الاصليه وهى اضافه نفس الاسم بجواره رقم 1
الرد
تم الشكر بواسطة:
#4
الترقيم التلقائى مشكلته معايا انه مش بيتكرر
فانا او هو لو مسح فاتوره الرقم مبيرجعش
يعنى يبدا فواتيره مثلا من 156 ودى تكون اول فاتوره ليه فشغال يدور
"select max (ID) from [tab_older] " مثلا
والــ ID  فى قاعدة البيانات مفتاح اساسى مش ترقيم تلقائى

(13-07-17, 01:37 PM)http://vb4arb.com/vb/showthread.php?tid=21034 كتب : الكود بالتفصيل
الرد
تم الشكر بواسطة:
#5
تمام بس لو مستحت الى فى الجدول هيبدا من جديد اما الترقيم التلقائى لا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 1 31 منذ 6 ساعة مضت
آخر رد: enjoy
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 40 , 12:27 AM
آخر رد: Anas Mahmoud
  [VB.NET] مساعدة في تعديل كود ميدو الفنان 4 132 16-09-20, 06:17 PM
آخر رد: ميدو الفنان
  [كود] تصحيح او تعديل كود البحث في نص مشكل عبد الهادي بهاب 6 202 16-09-20, 03:54 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] تعديل البيانات من خلال فورم آخر EbrNaj00 6 195 16-09-20, 12:42 AM
آخر رد: EbrNaj00
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 73 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  [VB.NET] تعديل في عملية البحث abu7shihab 4 183 11-09-20, 08:20 PM
آخر رد: T 1
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 104 09-09-20, 01:33 PM
آخر رد: momani33
  ماهو الخطاء في هذا الكود عمور2016 1 92 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 922 05-09-20, 03:36 PM
آخر رد: معاند الحظ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم