تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عندى مشكله فى اضافه الكميه المشتراه فى الرصيد
#1
احبتى بارك الله لكم فى كل ما تتمنوا وتحبوا
فى فاتوره المشتريات وعند حفظ الفاتوره يجب ان تضاف الكميه المشتراه من الصمف الى المخزن 
الكود يعمل تمام وصح ولكن ان اشتريت اكثر من صنف فى الفاتوره لا يضيف الا الصنف الاةل فى الفاتوره وباقى الصناف لا تضاف كميتها
وهذا هو الكود الذى استعمله
كود :
Sub ADDkama()
       Dim R As Integer = Val(dgvBUYKAMA.CurrentRow.Cells(2).Value)

       Dim cmdmaden As New OleDbCommand
       With cmdmaden
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = " Update KHAMAT set khamarasedopen= khamarasedopen +" & R & "  where khamacode ='" & dgvBUYKAMA.CurrentRow.Cells(0).Value & "'"

       End With
       If con.State = 1 Then con.Close()
       con.Open()
       cmdmaden.ExecuteNonQuery()
       con.Close()
فاين الخطأ فى الكود
الرد
تم الشكر بواسطة:
#2
جرب هذا الكود :

PHP كود :
   Sub ADDkama()
 
       Dim cmdmaden As New OleDbCommand
        For i 
0 To dgvBUYKAMA.Rows.Count 1
            Dim R 
As Integer Val(dgvBUYKAMA.Rows(i).Cells(2).Value)
 
           With cmdmaden
                
.Connection con
                
.CommandType CommandType.Text
                
.CommandText " Update KHAMAT set khamarasedopen= khamarasedopen +" "  where khamacode ='" dgvBUYKAMA.Rows(i).Cells(0).Value "'"
 
           End With
            If con
.State 1 Then con.Close()
 
           con.Open()
 
           cmdmaden.ExecuteNonQuery()
 
           con.Close()
 
       Next
    End Sub 
الرد
تم الشكر بواسطة: خالد كامل1
#3
(31-08-19, 08:56 PM)asemshahen5 كتب : جرب هذا الكود :

PHP كود :
   Sub ADDkama()
 
       Dim cmdmaden As New OleDbCommand
        For i 
0 To dgvBUYKAMA.Rows.Count 1
            Dim R 
As Integer Val(dgvBUYKAMA.Rows(i).Cells(2).Value)
 
           With cmdmaden
                
.Connection con
                
.CommandType CommandType.Text
                
.CommandText " Update KHAMAT set khamarasedopen= khamarasedopen +" "  where khamacode ='" dgvBUYKAMA.Rows(i).Cells(0).Value "'"
 
           End With
            If con
.State 1 Then con.Close()
 
           con.Open()
 
           cmdmaden.ExecuteNonQuery()
 
           con.Close()
 
       Next
    End Sub 

الله يفتح عليك اخى الكريم ولكن ممكن اسال اين كان الخطأ فى الكود الاول ولك جزيل الشكر
الرد
تم الشكر بواسطة: asemshahen5
#4
لم يكن عندك خطا لكنك تعدل على السجل المحدد و ليس على كل السجلات الموجودة في الداتا غريد .

موفق انشاء الله .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في الوصول الى قاعدة بيانات 2007 عند تغيرها 2016 alshandodi 3 43 منذ 1 ساعه مضت
آخر رد: ابراهيم ايبو
Question [سؤال] اضافه رابط الى الزر 3booy201 7 4,338 27-05-20, 03:11 AM
آخر رد: mohamuudsad
Brick [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات x4ahmad 2 136 23-05-20, 01:09 AM
آخر رد: x4ahmad
  مشكله في namespace alshandodi 5 80 21-05-20, 06:21 PM
آخر رد: معاند الحظ
Rainbow عاجل جدا . مشكله في مشروع و خطأ غريب theend200x 2 233 08-05-20, 03:56 AM
آخر رد: سعود
  حل مشكله ظهور رموز غريبه اليوم السابع 2 119 05-05-20, 09:38 PM
آخر رد: اليوم السابع
  حل مشكله البرنامج لايعمل عندنا تشغيل مهمه علي ChromeDriver مثلا developermedo111 1 104 26-04-20, 02:31 AM
آخر رد: mohamedahmed1
  [VB.NET] اضافه عناصر الي قائمه disktop menu منه 6 180 25-04-20, 07:11 AM
آخر رد: ابراهيم ايبو
Smile مشكله فى ExecuteNonQuery ارجو المساعده هشام السيد 3 134 21-04-20, 09:03 PM
آخر رد: عبد العزيز البسكري
  اضافه عناصر الي الفورم اليوم السابع 19 429 20-04-20, 09:09 PM
آخر رد: atefkhalf2004

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


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