تقييم الموضوع :
  • 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 م ب / التحميلات : 135)
الرد
تم الشكر بواسطة:
#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 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 2 66 أمس, 12:15 AM
آخر رد: جيولوجي مبتدئ
  طريقة تعبئة الداتا جريد فيو من اكثر من جدول سمير جمال 1 63 19-10-18, 08:56 PM
آخر رد: سمير جمال
  سؤال بخصوص الداتا جريد فيو احمد خطاب 2 60 19-10-18, 12:42 PM
آخر رد: احمد خطاب
  مشكله فى الداتا جريد فيو خالد كامل1 2 72 18-10-18, 02:56 AM
آخر رد: خالد كامل1
  سؤال :- فى كيغية ادراج بيانات فى الداتا جريد فيو احمد خطاب 1 92 18-10-18, 02:54 AM
آخر رد: EYADISMAIL
  سؤال فى الحفظ من الداتا جريد salah mansour 5 135 17-10-18, 06:31 AM
آخر رد: mero5000
  مساعدة هامة : احتاج طريقة مرنه لعرض منتجات من الداتا بيز في شكل صور او حتى button mohamedgadain61 2 96 16-10-18, 04:55 PM
آخر رد: mohamedgadain61
  مشكله فى حفظ قاعده بيانات اكسس فى مشروع فيجوال بيزك مع تلك القاعده خالد كامل1 2 79 16-10-18, 08:34 AM
آخر رد: خالد كامل1
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 3 95 15-10-18, 08:09 PM
آخر رد: عبدالله الدوسري
  مشكله في كود الحفظ فراس محي 1 77 15-10-18, 04:19 PM
آخر رد: rnmr

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


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