تقييم الموضوع :
  • 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()
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تحويل كود من c# الى vb.net aldery 2 91 منذ 6 ساعة مضت
آخر رد: aldery
  [VB.NET] مشكلة بالكريستال لا يريد التنصيب AhmedNagib 3 132 منذ 8 ساعة مضت
آخر رد: ابو انس
  [VB.NET] مشكلة في برنامج vb.net aliabdullah 3 182 13-05-21, 10:19 AM
آخر رد: Fantastico
Sad مشكلة عدم دقة توقيت التايمر أسعد 9 456 11-05-21, 12:11 AM
آخر رد: Alhootti1
  [VB.NET] كيف أستخدم TRansaction حتى أضمن تطبيق الكود بشكل جيد sniperjawadino 6 249 09-05-21, 05:29 PM
آخر رد: sniperjawadino
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 4 385 23-04-21, 08:30 AM
آخر رد: d3vc0d
  مشكلة عندالتعامل مع (My.Application.CommandLineArgs) عبدالله الصافي 12 761 21-04-21, 03:17 PM
آخر رد: عبدالله الصافي
  اريد خذف كل السجلات من قاعدة البيانات العواجي 1 183 20-04-21, 05:35 AM
آخر رد: messry
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 214 18-04-21, 12:42 PM
آخر رد: alfaiz678
  مشكلة في اضافة centent فيه boundary bden1 0 159 17-04-21, 07:13 PM
آخر رد: bden1

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


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