تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية تحديث الكمية المخزنة عند حفظ فاتورة جديدة باستخدام ACCESS
#1
السلام عليكم 

بدي مساعدة في موضوع :

كيفية تحديث الكمية المخزنة عند حفظ فاتورة جديدة باستخدام ACCESS

مع العلم اني استخدمت كود 

 For i As Integer = 0 To Guna2DataGridView1.RowCount - 2

                Dim a As Integer = Guna2DataGridView1.Rows(i).Cells(3).Value

 Try
                    Dim cmdupdateitems As New OleDbCommand("update tbl_itembaseinfo set itemqty = itemqty +" & -a & " where itemid = @iditemtogetqty ", conitems)

                    cmdupdateitems.Parameters.Add("@iditemtogetqty", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value

                    conitems.Open()

                Catch ex As Exception

                    MsgBox(ex.Message + "خطأ   1")

                Finally

con.close()

                End Try




 وعند التنفيذ تكون الرسالة "تجاوز لوجود عملية حسابية"



الرجاء المساعدة في اقرب وقت
الرد
تم الشكر بواسطة:
#2
كود :
Public Sub UpdateStore()
       For i As Integer = 0 To Guna2DataGridView1.Rows.Count - 1
           Dim cmd1 As New OleDbCommand("select * from tbl_itembaseinfo where itemid  =@itemid  ", Con)
           cmd1.Parameters.Clear()
           cmd1.Parameters.AddWithValue("@itemid ", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value
           Dim dt As New DataTable
           Dim adp As New OleDbDataAdapter(cmd1)
           adp.Fill(dt)
           If dt.Rows.Count > 0 Then
         Dim Cmd2 As New oledbCommand
               With Cmd2
                   .Connection = Con
                   .CommandType = CommandType.Text
                   .CommandText = "Update tbl_itembaseinfo  Set itemqty  = Qty + " & Guna2DataGridView1.Rows(i).Cells(3).Value & " Where itemid  = @itemid "
                   .Parameters.Clear()
                   .Parameters.AddWithValue("@itemid ", OleDbType.Integer).Value = Guna2DataGridView1.Rows(i).Cells(0).Value
               End With
               If Con.State = 1 Then Con.Close()
               Con.Open()
               Cmd2.ExecuteNonQuery()
               Con.Close()
               Cmd2 = Nothing

           End If
       Next
       MsgBox("تم تعديل الكميات  في المستودع بنجاح", MsgBoxStyle.Information, "تعديل")
   End Sub
الرد
تم الشكر بواسطة: AwsEsam
#3
كن ان شاء الله

سوف


يتم بكم

1-عمل فاتورة للبيع بوحدات جزئية من وحدات كلية
بمعني
الشراء ب كارتونة مثل كارتونة شيبسي بها 24 كيس
البيع بالكيس

وكيفية اظهار الرصيد


اتمني لحرف برمجة والزملاء الافاضل يعملو لنا مثال او يعدلوا علي المثال السابق
وانا اراهن علي حجم وعدد الدعاء لكم بكل خير
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 2 35 منذ 6 ساعة مضت
آخر رد: boudyonline
  كيفية التعديل على برنامج hasanqo 1 59 21-05-20, 06:45 AM
آخر رد: معاند الحظ
  [سؤال] كيفية عمل شاشة اصناف المطاعم عاصم النجار 0 51 14-05-20, 08:35 AM
آخر رد: عاصم النجار
Exclamation [سؤال] كيفية تحديد النيم سبيس xml cayo12300 2 83 12-05-20, 02:07 AM
آخر رد: cayo12300
  كيفية إضافة ادوات للمشروع ؟؟ paveldida 4 94 11-05-20, 07:06 PM
آخر رد: paveldida
Lightbulb [VB.NET] حذف صفوف من Access Database تاريخها قبل تاريخ اليوم Doctor GME 2 231 07-05-20, 11:03 PM
آخر رد: Doctor GME
  كيفية قراءة ملفات كقاعدة. بيانات أمجد وضاح 2 109 02-05-20, 08:49 PM
آخر رد: أمجد وضاح
  [سؤال] سؤال عن كيفية تنسيق النص في الكريستال رييورت Annir81 0 51 01-05-20, 07:45 PM
آخر رد: Annir81
  [VB.NET] طباعة فاتورة كريستال محمد القطيبي 0 55 01-05-20, 01:59 AM
آخر رد: محمد القطيبي
  سؤال سريع : كيف يمكن اضافة كمية ( +1 ) الى صنف موجود مسبقا في فاتورة AwsEsam 9 158 30-04-20, 02:25 AM
آخر رد: aljzazy

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


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