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

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

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

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

الفورم هو BuyPill

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب زيادة قيمة في الداتا جريد فيو Codack 4 526 16-04-18, 07:58 PM
آخر رد: ahmad omar
  [سؤال] استعراض الداتا جريد فيو بين تاريخين الو0 3 100 16-04-18, 05:27 AM
آخر رد: الو0
  مساعده في كود عرض عدد معين من صفوف الداتا جريد فيو emamtron2014 9 263 11-04-18, 01:00 AM
آخر رد: emamtron2014
  [سؤال] كيفية تصدير datagridview الى pdf Dr.Sherif Alazizi 5 1,877 10-04-18, 06:12 PM
آخر رد: Ram132
  خطأ في كود الحذف من جدول البيانات داخل الداتا جريد فيو Mohamed Samy21 0 60 08-04-18, 05:41 PM
آخر رد: Mohamed Samy21
  اين توجد المشكلة في كود بحث في جميع اعمدة الداتا جرد فيو رسول555 3 141 08-04-18, 10:56 AM
آخر رد: رسول555
  combobox لا يعرض الداتا عند عمل select تناسيم 1 87 05-04-18, 02:52 PM
آخر رد: عبدالله الدوسري
  [VB.NET] مشكله في كود " الفترة التجريبة " e-coder 11 253 31-03-18, 03:18 AM
آخر رد: سعود
  [VB.NET] سؤال عن تنبيه بصوت عند البحث في Datagridview lord52436 3 104 29-03-18, 01:10 AM
آخر رد: محمود صالح
  [سؤال] عندى مشكله بكود التعديل فى قاعده البيانات waleedsss 3 154 28-03-18, 12:31 AM
آخر رد: عبدالله الدوسري

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


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