تقييم الموضوع :
  • 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
تمام بس لو مستحت الى فى الجدول هيبدا من جديد اما الترقيم التلقائى لا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002

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


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