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

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

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

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

الفورم هو BuyPill

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


الملفات المرفقة
.rar   SuperMarket.rar (الحجم : 47.81 ك ب / التحميلات : 48)
الرد }}}}
تم الشكر بواسطة:
#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] اسناد التاريخ الي الداتا تيم من الداتا جريد محمد اسماعيل 8 74 19-01-18, 09:42 PM
آخر رد: محمد اسماعيل
  كيف يمكن العرض من قاعده البيانت الى الداتا جريد يوجد صورة مراد بورجي 1 48 19-01-18, 01:21 PM
آخر رد: محمود صالح
  ارسال الداتا جريد فيو بالايميل السيد الجوهري 9 210 13-01-18, 10:04 PM
آخر رد: hglogtd
  للخبـراء مشكله تحويل صيغه طـلال 1 45 11-01-18, 04:29 PM
آخر رد: عبدالله الدوسري
  مشكله بتمنع عمل داتا ادابتر نبيل فتحى 1 38 09-01-18, 09:48 PM
آخر رد: عبدالله الدوسري
  [VB.NET] جملة الاستعلام في تعبئة الداتا جريد فيو خاطئة altho8 5 153 27-12-17, 02:19 PM
آخر رد: abiza
  [كود] مشكله في الكود بخصوص Crystal Report dfouad 1 56 26-12-17, 03:06 PM
آخر رد: adel2012
  مشكله في Infragistics2.WebUI.Shared.v8.1 dfouad 2 75 26-12-17, 01:33 PM
آخر رد: dfouad
  تعبئة الداتا جريد من الجدول ( بالوضع المنفصل ) Abdelazez.Ahmad 10 232 24-12-17, 01:58 AM
آخر رد: abohamad
  [VB.NET] تحديث بينات DataGridView جاسم عوط 2 102 19-12-17, 05:23 PM
آخر رد: جاسم عوط

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


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