تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] DataGridView بطيء جدا ساعدوني لاجد حل
#1
السلام عليكم

قمت سابقا بكتابة موضوع لنفس المشكله
http://vb4arb.com/vb/thread-17613.html

وقمت بالبحث في اكثر من مكان

هنا احد الحلول
http://rdatagridview.blogspot.ae/

بس ما قدرة احصل على ملف
SpeedUpDGV.DLL

علما باني قمت بمراسلة المبرمج
وبحثت في قوقل
DataGridView very slow VB.NET

علما بان مشروعي واقف علي هذه المشكله 

فكرة في التغيير الى database access 
ان يقراء من XML

بس احد المبرمجين قال لي بان في حالت تعاملي معdatabase access  يصعب على بعض المستخدمين لفتح المشروع في اجهزتهم

اخر فكرة فكرة بان في حالت عمل 
Import  للملف 

اقصم الداتا  الى ملفات مثلا

مثلا الملف اللي ينزل الداتا الي في كذا


PHP كود :
<CALL:6>IT9AUG <qso_date:8>20111119 <time_on:4>1147 <bands:3>20M <modes:3>SSB 
 
<CALL:4>LY7M <qso_date:8>20121215 <time_on:4>1809 <bands:4>160M <modes:2>CW 
 
<CALL:5>A41ZZ <qso_date:8>20111119 <time_on:4>1149 <bands:3>20M <modes:3>SSB 
 
<CALL:5>A41ZZ <qso_date:8>20141119 <time_on:4>1149 <bands:3>20M <modes:3>SSB 
 
<CALL:5>A41ZZ <qso_date:8>20161119 <time_on:4>1149 <bands:3>20M <modes:3>SSB 
 
<CALL:5>A41ZZ <qso_date:8>20161119 <time_on:4>1149 <bands:3>20M <modes:3>SSB 
 
<CALL:5>A41ZZ <qso_date:8>20141119 <time_on:4>1149 <bands:3>20M <modes:3>SSB 
 
<CALL:5>A41ZZ <qso_date:8>20141119 <time_on:4>1149 <bands:3>20M <modes:3>SSB 


التاريخ هنا
<qso_date:8>20111119

اذا كان التاريخ 2016
يعمل لي ملف
2016.XML

وينزل لي جميع الداتا اللي لها تاريخ 2016


و2015  كذالك نفس الشي
2015.XML
2014.XML
موضوع ال Import هنا
http://vb4arb.com/vb/thread-16602.html

وفي العرض اقوم بعرض  سنه واحده بهذا اعتقد بيكون الفتح اسرع ل DataGridView


اتمنى اجد منكم الحل ورايكم يهمني خصوصا باني مبرمج مبتدء 

وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
غالباً يا صديقي المشكلة لا تخص الكائن DataGridView في مثل هذه الحالة
فالعمل يجري وفق سيناريو مختلف

انت تريد ان تحمل كم كبير من البيانات الى الذاكرة و تحديداً الى العنصر DataSet القابع في الذاكرة
هنا تحصل المشكلة , المشكلة التالية التي انت بصددها هي عملية التحرك ضمن هذا الكم الهائل في عنصر DataGridView
فلو اردت عمل فرز او فلترة سترى البطئ في عنصر DataGridview
المهم في الموضوع اذا اردت الحفاظ على ملف XML و ان تتعامل معه وفق نفس الالية الخاصة بقواعد البيانات بحيث تحافظ على سلاسة 
الحركة في كائن DataGridView فيتوجب عليك تخفيض كمية البيانات المعروضة فيه
و لتخفف الضغط و البطئ في عملية تحميل الملف الى الذاكرة
فيتوجب ان تتوفر على جهاز بذواكر عالية وسرعة Bus عالية ايضاً للذواكر لان حجم البيانات المحملة كبير (هذا من جهة HardWare)
اما من ناحية البرمجة و الكود فالافضل ان تنتقي المكتبات الاكثر سرعة في التعامل مع البيانات من جلب و استعراض...الخ

و كذلك ان تغير من السيناريو المتبع في طريقة الربط مع عنصر القريد (امور كثيرة يجب توفيرها لا اريد ان ادخل في تفاصيلها...)
بكل الاحوال انا عملت لك تعديل على المثال يقوم بجلب البيانات في غضون 14-20 ثانية و يحملها في الذاكرة بعد ان كان الكود لديك يستغرق اكثر من دقيقة.
ثم قمت بعملية تقسيم للبيانات الى صفحات لتسهيل عملية عرضها في الكائن DataGridView
قمت بعرض 15 عنصر في كل صفحة (طبعاً يمكن التغير من الكود لعدد السجلات المعروضة)
وقمت بتوفير الازرار المناسبة لعمليات التنقل لباقي الصفحات كما ترى في هذه الصور




سارفق الكود و المثال (ربما لا يعمل المثال لديك , المثال معمول على VS2015)

الكود  


PHP كود :
ImportsSystem.IO

Public Class WORK

    Const PAGE_SIZE 
As Integer 15
    Private _nPage 
As Integer 0
    Private _maxPages 
As Integer

    Private Sub Frmmain_Load
(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim myXMLfile 
As String My.Application.Info.DirectoryPath "\" & "data.xml"

        If File.Exists(myXMLfile) Then

            Dim fsReadXml As New FileStream(myXMLfile, FileMode.Open)
            DS.ReadXml(fsReadXml)

            _maxPages = Convert.ToInt32(Math.Ceiling(CDbl(DS.Tables(0).Rows.Count) / PAGE_SIZE))

            BindPageToGrid()
            LbNumber.Text = _nPage

        Else
            DS.WriteXml(My.Application.Info.DirectoryPath & "
\" & "data.xml")
        End If

    End Sub


    Private Sub BindPageToGrid()
        Dim dsPage = DS.Tables(0).AsEnumerable().Skip(_nPage * PAGE_SIZE).Take(PAGE_SIZE).[Select](Function(x) x)
        dgvData.DataSource = dsPage.CopyToDataTable
    End Sub

    Private Sub BtnNext_Click(sender As Object, e As EventArgs) Handles BtnNext.Click
        _nPage = (_nPage + 1) Mod _maxPages
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub

    Private Sub BtnPrev_Click(sender As Object, e As EventArgs) Handles BtnPrev.Click
        _nPage = (_nPage - 1) Mod _maxPages
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub


    Private Sub Enables_Btns()
        Select Case _nPage
            Case = 0
                BtnPrev.Enabled = False
                BtnFirst.Enabled = False
                BtnNext.Enabled = True
                BtnLast.Enabled = True
            Case < (_maxPages - 1)
                BtnPrev.Enabled = True
                BtnNext.Enabled = True
                BtnFirst.Enabled = True
                BtnLast.Enabled = True
            Case = _maxPages - 1
                BtnPrev.Enabled = True
                BtnFirst.Enabled = True
                BtnNext.Enabled = False
                BtnLast.Enabled = False
        End Select
    End Sub

    Private Sub BtnLast_Click(sender As Object, e As EventArgs) Handles BtnLast.Click
        _nPage = _maxPages - 1
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub

    Private Sub BtnFirst_Click(sender As Object, e As EventArgs) Handles BtnFirst.Click
        _nPage = 0
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub

End Class 


الملفات المرفقة
.rar   with2.rar (الحجم : 2.65 م ب / التحميلات : 15)
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة: جميل علي , جميل علي , dubai.eig , myalsailamy , Amir_alzubidy , Adrees
#3
(20-11-16, 04:39 AM)ابو ليلى كتب : غالباً يا صديقي المشكلة لا تخص الكائن DataGridView في مثل هذه الحالة
فالعمل يجري وفق سيناريو مختلف

انت تريد ان تحمل كم كبير من البيانات الى الذاكرة و تحديداً الى العنصر DataSet القابع في الذاكرة
هنا تحصل المشكلة , المشكلة التالية التي انت بصددها هي عملية التحرك ضمن هذا الكم الهائل في عنصر DataGridView
فلو اردت عمل فرز او فلترة سترى البطئ في عنصر DataGridview
المهم في الموضوع اذا اردت الحفاظ على ملف XML و ان تتعامل معه وفق نفس الالية الخاصة بقواعد البيانات بحيث تحافظ على سلاسة 
الحركة في كائن DataGridView فيتوجب عليك تخفيض كمية البيانات المعروضة فيه
و لتخفف الضغط و البطئ في عملية تحميل الملف الى الذاكرة
فيتوجب ان تتوفر على جهاز بذواكر عالية وسرعة Bus عالية ايضاً للذواكر لان حجم البيانات المحملة كبير (هذا من جهة HardWare)
اما من ناحية البرمجة و الكود فالافضل ان تنتقي المكتبات الاكثر سرعة في التعامل مع البيانات من جلب و استعراض...الخ

و كذلك ان تغير من السيناريو المتبع في طريقة الربط مع عنصر القريد (امور كثيرة يجب توفيرها لا اريد ان ادخل في تفاصيلها...)
بكل الاحوال انا عملت لك تعديل على المثال يقوم بجلب البيانات في غضون 14-20 ثانية و يحملها في الذاكرة بعد ان كان الكود لديك يستغرق اكثر من دقيقة.
ثم قمت بعملية تقسيم للبيانات الى صفحات لتسهيل عملية عرضها في الكائن DataGridView
قمت بعرض 15 عنصر في كل صفحة (طبعاً يمكن التغير من الكود لعدد السجلات المعروضة)
وقمت بتوفير الازرار المناسبة لعمليات التنقل لباقي الصفحات كما ترى في هذه الصور




سارفق الكود و المثال (ربما لا يعمل المثال لديك , المثال معمول على VS2015)

الكود  


PHP كود :
ImportsSystem.IO

Public Class WORK

    Const PAGE_SIZE 
As Integer 15
    Private _nPage 
As Integer 0
    Private _maxPages 
As Integer

    Private Sub Frmmain_Load
(sender As ObjectAs EventArgsHandles MyBase.Load

        Dim myXMLfile 
As String My.Application.Info.DirectoryPath "\" & "data.xml"

        If File.Exists(myXMLfile) Then

            Dim fsReadXml As New FileStream(myXMLfile, FileMode.Open)
            DS.ReadXml(fsReadXml)

            _maxPages = Convert.ToInt32(Math.Ceiling(CDbl(DS.Tables(0).Rows.Count) / PAGE_SIZE))

            BindPageToGrid()
            LbNumber.Text = _nPage

        Else
            DS.WriteXml(My.Application.Info.DirectoryPath & "
\" & "data.xml")
        End If

    End Sub


    Private Sub BindPageToGrid()
        Dim dsPage = DS.Tables(0).AsEnumerable().Skip(_nPage * PAGE_SIZE).Take(PAGE_SIZE).[Select](Function(x) x)
        dgvData.DataSource = dsPage.CopyToDataTable
    End Sub

    Private Sub BtnNext_Click(sender As Object, e As EventArgs) Handles BtnNext.Click
        _nPage = (_nPage + 1) Mod _maxPages
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub

    Private Sub BtnPrev_Click(sender As Object, e As EventArgs) Handles BtnPrev.Click
        _nPage = (_nPage - 1) Mod _maxPages
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub


    Private Sub Enables_Btns()
        Select Case _nPage
            Case = 0
                BtnPrev.Enabled = False
                BtnFirst.Enabled = False
                BtnNext.Enabled = True
                BtnLast.Enabled = True
            Case < (_maxPages - 1)
                BtnPrev.Enabled = True
                BtnNext.Enabled = True
                BtnFirst.Enabled = True
                BtnLast.Enabled = True
            Case = _maxPages - 1
                BtnPrev.Enabled = True
                BtnFirst.Enabled = True
                BtnNext.Enabled = False
                BtnLast.Enabled = False
        End Select
    End Sub

    Private Sub BtnLast_Click(sender As Object, e As EventArgs) Handles BtnLast.Click
        _nPage = _maxPages - 1
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub

    Private Sub BtnFirst_Click(sender As Object, e As EventArgs) Handles BtnFirst.Click
        _nPage = 0
        BindPageToGrid()
        Enables_Btns()
        LbNumber.Text = _nPage
    End Sub

End Class 

جزاك الله الجنه 

فعلا هذا اللي اريده   بارك الله فيك ما اعرف يف اشكرك بس فعلا ريحتني كثير بارك الله فيك وجزاك الله  خير وخير وخير ويزيد علمك
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , ابو ليلى
#4
اخي ابو ليلى

عندي سؤال بارك الله فيك

في مجال اعرض فقط عدد معين من الاسطر يعني ما نحتاج لتعدد الصفحات

يعني نقول للكود اسحب من ملف ال xml فقط 50 اسطر


حاليا يعرض 15 في كل صفحة بس مع الاسف لازال البطيء في الفتح لان هو ساحب جميع ابيانات من الملف ولو في مجال نسحب فقط 50 سطر بيكون افضل بكثير

طمعان بخيرك بارك الله فيك

وشكرا من جديد

إقتباس :اما من ناحية البرمجة و الكود فالافضل ان تنتقي المكتبات الاكثر سرعة في التعامل مع البيانات من جلب و استعراض


ما هيه المكتبات الاخرى ؟
الرد }}}}
تم الشكر بواسطة:
#5
هناك مكتبة XQuery و هي تتعامل مع ملفات XML وهي تستخدم التعليمات القياسية TSql للتعامل مع البيانات داخل ملفات XML
ابحث عنها و تعرف على طريقة استخدامها داخل مشروعك
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعديل علي datagridview باستخدام sql command dark1459 6 138 21-11-16, 11:55 AM
آخر رد: dark1459
  اضافة عمود من نوع image ل bound datagridview noway 1 70 17-11-16, 12:08 PM
آخر رد: Genius Live
Photo [سؤال] لدي مشكله DataGridView أحمد العرب 4 138 16-11-16, 10:26 AM
آخر رد: أحمد العرب
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 68 15-11-16, 10:30 PM
آخر رد: السرور
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 138 15-11-16, 09:06 AM
آخر رد: noway
  [سؤال] مشكلة في حفظ البيانات باستخدام datagridview abdalla89 6 359 05-11-16, 02:47 AM
آخر رد: نايف 2006
  ارسال بيانات DataGridView الى report Viewer. Rabeea Qbaha 6 201 23-10-16, 06:16 PM
آخر رد: Rabeea Qbaha
  [VB.NET] استفسار عن DataGridView dubai.eig 2 81 21-10-16, 08:09 AM
آخر رد: أبو عمر
  [VB.NET] how to add row to bound datagridview programmatically? noway 11 261 19-09-16, 12:39 AM
آخر رد: noway
  [VB.NET] تصدير بيانات DataGridView الى RDLC Report ابراهيم النعيمي 0 94 17-09-16, 05:53 PM
آخر رد: ابراهيم النعيمي

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


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