تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير
#1
السلام عليكم الرجاء المساعدة في تعديل الكود حيث انني اعاني من مشكلة البطىء الشديد عند القيام بالتحديث على قيم موجوده في السابق  حيث ان عدد records تجاوز  ال50000   
الكود المراد تعديله  في الاسفل  ولكم جزيل الشكر مسبقا.

        & "'" Dim sql = "select * from invoice_add where invoice_number=N'" & (invoice_number.Text)
        Dim adp As New SqlDataAdapter(sql, sqlconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then

            For a = 0 To dgv.Rows.Count - 1
                adp = New SqlDataAdapter("select * from item where itemcode=N'" & (dgv.Rows(a).Cells(0).Value) & "'", sqlconn)
                ds = New DataSet
                adp.Fill(ds)
                dt = ds.Tables(0)
                Dim dr3 = dt.Rows(0)
                dr3!itemcount = Val(dgv.Rows(a).Cells(14).Value)
                dr3!total_price = dr3!itemcount * dr3!itembuyprice

                'حفظ سجل كمية المادة المباعه
                If dr3!out_count.ToString = "" Then
                    dr3!out_count = 0
                    dr3!out_count = Val(dr3!out_count) + Val(dgv.Rows(a).Cells(16).Value)
                    dr3!Profits = Val(dr3!Profits) + Val(dgv.Rows(a).Cells(8).Value)

                Else

                    dr3!out_count = Val(dr3!out_count) + Val(dgv.Rows(a).Cells(16).Value)
                    dr3!Profits = Val(dr3!Profits) + Val(dgv.Rows(a).Cells(8).Value)

                End If

                dr3!date_sale = invoice_date.Value
                Dim cmd4 As New SqlCommandBuilder(adp)
                adp.Update(dt)
            Next
            adp.Dispose()
            ds.Dispose()
            dt.Dispose()
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ماهو الخطا في هذا الكود ميدو الفنان 7 232 30-11-20, 11:04 PM
آخر رد: ميدو الفنان
  [VB.NET] التعديل علي كود خاص بي التعديل علي ملف ftp ميدو الفنان 4 179 26-11-20, 10:54 PM
آخر رد: ميدو الفنان
  مشكلة عند بدأ المشرع لا يفتح وتظهر رسالة Codack 1 103 25-11-20, 12:41 AM
آخر رد: Jounior_P
Photo [VB.NET] مشكلة عند ربط اكسس به دوال اجرائية بالفيجوال بيسك هيثم_هيثم 4 276 24-11-20, 03:01 PM
آخر رد: هيثم_هيثم
  مشكلة عند عمل نسخ احتياطي momani33 1 95 20-11-20, 02:40 AM
آخر رد: Jounior_P
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 142 10-11-20, 04:32 PM
آخر رد: mmali127
  مشكلة فى كريستال ريبورت nabil.1710 2 208 07-11-20, 11:42 PM
آخر رد: nabil.1710
  مشكلة حفظ البيانات الموجودة في اداة listview في قاعدة بيانات SQL shado1796 7 2,116 07-11-20, 02:47 PM
آخر رد: sherf
  ممكن تعديل علي الكود ليكون بشكل صحيح modywassem520 6 261 06-11-20, 11:16 PM
آخر رد: سعود
  مشكلة cursor position cordava 0 123 31-10-20, 01:18 PM
آخر رد: cordava

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


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