تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في Update الداتا في DataGridview
#1
استخدام برنامج فيجوال بيسك 2010
اقوم بعمل برنامج سوبر ماركت عندما اعدل في بيانات الصنف في فاتوره الشراء لا يسمع التعديل في قاعدة البيانات الأكسيس 

الكود الذي اضفته كالتالي : للتعديل ثم الحفظ 

 Private Sub BuyPill_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'Hot Key adding New Item
        If e.KeyCode = Keys.Insert Then
            Item_Search1.ShowDialog()
        End If
        'Hot Key saving buypill & its contents
        If e.KeyCode = Keys.F10 Then

            If BuyInvoiceNo.Text = Nothing Then
                MsgBox("برجاء ادخال رقم الفاتورة")
                BuyInvoiceNo.Focus()
            ElseIf BuyImporter.Text = Nothing Then
                MsgBox("برجاء اختيار المورد")
                BuyImporter.Focus()
            ElseIf BuyCash.Checked = False And BuyPostpone.Checked = False Then
                MsgBox("برجاء اختيار نوع التعامل نقدي او اجل")
                BuyCash.Focus()
            ElseIf DataGridView1.Rows.Count = 0 Then
                MsgBox("لا توجد اصناف بالفاتورة لحفظها")
            Else
                '=========================================
                ' Check Buy Query Calculations
                BuyCalc()
                ' Update BuyPill Details 
                'Public sub Update_Operations()
                For i As Integer = 0 To DataGridView1.Rows.Count - 1
                    Operationscmd = New OleDbCommand(" Update Operations SET BuyDiscound=" & DataGridView1(9, DataGridView1.Rows(i).Index).Value & ",BuyEarn = " & DataGridView1(11, DataGridView1.Rows(i).Index).Value & ", BuyNotes ='" & DataGridView1(12, DataGridView1.Rows(i).Index).Value & "', BuyQty = " & DataGridView1(7, DataGridView1.Rows(i).Index).Value & ", BuyUnitePirce = " & DataGridView1(3, DataGridView1.Rows(i).Index).Value & ",OperItemExp =  #" & DataGridView1(5, DataGridView1.Rows(i).Index).Value & "#,TotalB =" & DataGridView1(10, DataGridView1.Rows(i).Index).Value & ",TotalG = " & DataGridView1(8, DataGridView1.Rows(i).Index).Value & ") Where OperID= " & DataGridView1(0, DataGridView1.Rows(i).Index).Value & "", con)
                    con.Open()
                    Operationscmd.ExecuteNonQuery()
                    con.Close()
                    ' Update Qty in Item table
                    ' Update for Supplier Balance
                Next
                ' حفظ بيانات الفاتورة
                Save_BuyPill()
                MsgBox("تم حفظ الفاتورة بنجاح")
                ' load buypill table
                load_Buypill()
                ' Making New Pill
                NewPill()
                'Load BuyQ table
                loadbuyQ()
            End If
        End If
    End Sub

اعتذر علي الاطالة  والمشروع كامل بالمرفقات


الملفات المرفقة
.rar   Project V.B.rar (الحجم : 2.65 م ب / التحميلات : 133)
الرد
تم الشكر بواسطة:
#2
المفروض لتجد حل بسرعة كان ارفقت الفورم اللي فيه مشكلة فقط مع قاعدة البيانات ,

فتحت المشروع وجدت اكثر من 15 فورم ولم توضح المشكلة وين بالظبط .
الرد
تم الشكر بواسطة:
#3
(31-03-17, 02:49 AM)حريف برمجة كتب : المفروض لتجد حل بسرعة كان ارفقت الفورم اللي فيه مشكلة فقط مع قاعدة البيانات ,

فتحت المشروع وجدت اكثر من 15 فورم ولم توضح المشكلة وين بالظبط .

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

الفورم هو BuyPill

الرجاء تقبلوا اعتذاري


الملفات المرفقة
.rar   SuperMarket.rar (الحجم : 47.81 ك ب / التحميلات : 65)
الرد
تم الشكر بواسطة:
#4
شكراً لكم جميعاً 
تم حل المشكله بعد بحث وفهم للمشكله
الرد
تم الشكر بواسطة: أبووسم , أبووسم
#5
(13-04-17, 01:46 PM)أحمد العرب كتب : شكراً لكم جميعاً 
تم حل المشكله بعد بحث وفهم للمشكله

قل الحل ليستفيد الجميع وشكرا
الرد
تم الشكر بواسطة:
#6
نرجو من الإخوة المشاركين وضع الكود ضمن القوالب المحددة له في عملية الرد :
PHP كود :
Private Sub BuyPill_KeyDown(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyEventArgsHandles Me.KeyDown
        
'Hot Key adding New Item
        If e.KeyCode = Keys.Insert Then
            Item_Search1.ShowDialog()
        End If
        '
Hot Key saving buypill its contents
        
If e.KeyCode Keys.F10 Then

            
If BuyInvoiceNo.Text Nothing Then
                MsgBox
("برجاء ادخال رقم الفاتورة")
                
BuyInvoiceNo.Focus()
            ElseIf 
BuyImporter.Text Nothing Then
                MsgBox
("برجاء اختيار المورد")
                
BuyImporter.Focus()
            ElseIf 
BuyCash.Checked False And BuyPostpone.Checked False Then
                MsgBox
("برجاء اختيار نوع التعامل نقدي او اجل")
                
BuyCash.Focus()
            ElseIf 
DataGridView1.Rows.Count 0 Then
                MsgBox
("لا توجد اصناف بالفاتورة لحفظها")
            Else
                
'=========================================
                ' 
Check Buy Query Calculations
                BuyCalc
()
                
' Update BuyPill Details 
                '
Public sub Update_Operations()
                For 
As Integer 0 To DataGridView1.Rows.Count 1
                    Operationscmd 
= New OleDbCommand(" Update Operations SET BuyDiscound=" DataGridView1(9DataGridView1.Rows(i).Index).Value ",BuyEarn = " DataGridView1(11DataGridView1.Rows(i).Index).Value ", BuyNotes ='" DataGridView1(12DataGridView1.Rows(i).Index).Value "', BuyQty = " DataGridView1(7DataGridView1.Rows(i).Index).Value ", BuyUnitePirce = " DataGridView1(3DataGridView1.Rows(i).Index).Value ",OperItemExp =  #" DataGridView1(5DataGridView1.Rows(i).Index).Value "#,TotalB =" DataGridView1(10DataGridView1.Rows(i).Index).Value ",TotalG = " DataGridView1(8DataGridView1.Rows(i).Index).Value ") Where OperID= " DataGridView1(0DataGridView1.Rows(i).Index).Value ""con)
                    
con.Open()
                    
Operationscmd.ExecuteNonQuery()
                    
con.Close()
                    
' Update Qty in Item table
                    ' 
Update for Supplier Balance
                Next
                
' حفظ بيانات الفاتورة
                Save_BuyPill()
                MsgBox("تم حفظ الفاتورة بنجاح")
                ' 
load buypill table
                load_Buypill
()
                
' Making New Pill
                NewPill()
                '
Load BuyQ table
                loadbuyQ
()
            
End If
        
End If
    
End Sub 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اجعل شريط التمرير ف الداتا جريد يتحرك اتوماتيك الي اخر سجل تم اضافته محمد صلاح ابراهيم 2 43 منذ 8 ساعة مضت
آخر رد: elgokr
  [سؤال] كيف اقوم بعمل فلتر DataGridView مرسل لها البيانات من فورم اخري dametucorazon 12 208 10-07-18, 06:03 PM
آخر رد: elgokr
  datagridview autofilter library abu ammar 3 73 09-07-18, 02:52 PM
آخر رد: elgokr
  [سؤال] اريد الطريقه الصحيحه لعمل FilterRow للداتا جريد ثم حفظ البيانات من الداتا جريد لقاعده dametucorazon 6 125 30-06-18, 12:45 AM
آخر رد: dametucorazon
  [VB.NET] مشكله في كود بحث بنص مشابهه DOX.1 6 95 28-06-18, 03:52 PM
آخر رد: elgokr
  البحث داخل الداتا جريد فيو Osama Bayoumy 3 135 19-06-18, 09:50 AM
آخر رد: elgokr
Photo [سؤال] لأهل الخبرة أواجه مشكلة في قراءة بيانات من الداتا جريد فيو الى كريستال ريبورت dametucorazon 11 264 17-06-18, 03:15 AM
آخر رد: elgokr
  إضافة الصور في الداتا بيس ZaerAllail 3 122 15-06-18, 11:22 AM
آخر رد: ZaerAllail
Smile سؤال في ما يخص جمع كمية الاصناف على DataGridView kalammoufid 3 122 14-06-18, 07:54 PM
آخر رد: elgokr
  مشكلة في الترقيم التلقائي DataGridView wweecw 5 201 13-06-18, 04:10 PM
آخر رد: larbihamri

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


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