منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تعديل الكود يا جماعه محدش بيرد عليا خالص insert

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 

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

المشكله ان دى فاتورة مشتريات
الــــ 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} ", xt, txC, ad) cmd.ExecuteNonQuery() Next
ده كود الـUPDATE شغال تمام بشرطين وهم ال ID و PRICE

بشرط واحد علشان حذفت الشرط التانى علشان المشكله الاصليه وهى اضافه نفس الاسم بجواره رقم 1

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

(13-07-17, 01:37 PM)http://vb4arb.com/vb/showthread.php?tid=21034 كتب : [ -> ]الكود بالتفصيل

تمام بس لو مستحت الى فى الجدول هيبدا من جديد اما الترقيم التلقائى لا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نبيل كونكت

mstfa1991

نبيل كونكت

نبيل كونكت

نبيل كونكت