منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : DataGridView بطيء جدا ساعدوني لاجد حل
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

قمت سابقا بكتابة موضوع لنفس المشكله
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


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

وشكرا
غالباً يا صديقي المشكلة لا تخص الكائن 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 
(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 

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

فعلا هذا اللي اريده   بارك الله فيك ما اعرف يف اشكرك بس فعلا ريحتني كثير بارك الله فيك وجزاك الله  خير وخير وخير ويزيد علمك
اخي ابو ليلى

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

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

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


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

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

وشكرا من جديد

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


ما هيه المكتبات الاخرى ؟
هناك مكتبة XQuery و هي تتعامل مع ملفات XML وهي تستخدم التعليمات القياسية TSql للتعامل مع البيانات داخل ملفات XML
ابحث عنها و تعرف على طريقة استخدامها داخل مشروعك