[RADOS]

السلام عليكم ورحمة الله وبركاته

أعاني من مشكلة أثناء تحميل البيانات من قاعدة البيانات الى الداتا قريد يوجد لدي أكثر من 10 ألاف صف

هل ممكن طريقة بأستخدام أداء background Worker

vb.net and SqlServer
اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف[b]اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صفاعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف[b]اعاني من بطئ بتاعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صفحميل[b]اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف[b]اعاني من بطئ بتحميل البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف[/b] البيانات داخل الداتا جيرد يوجد لدي اكثر من 100 الف صف[/b][/b][/b]

[غزة العزة]

وعليكم السلام ورحمة الله وبركاته 

تفضل هذا مثال لاستخدام   background Worker

PHP كود :

Imports System.ComponentModel
Imports System.Data.SqlClient

Public Class Form1

    ' تعريف الـ BackgroundWorker
    Private WithEvents bgWorker As New BackgroundWorker()

    ' تهيئة النموذج وتحميل البيانات عند فتح النموذج
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' تهيئة الـ BackgroundWorker
        bgWorker.WorkerReportsProgress = False
        bgWorker.WorkerSupportsCancellation = True

        ' ابدأ تحميل البيانات
        bgWorker.RunWorkerAsync()
    End Sub

    ' الحدث الذي يتم تشغيله في الخلفية لتحميل البيانات
    Private Sub bgWorker_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgWorker.DoWork
        ' إعداد الاتصال بقاعدة البيانات
        Dim connectionString As String = "Data Source=YOUR_SERVER;Initial Catalog=YOUR_DATABASE;Integrated Security=True"
        Dim query As String = "SELECT * FROM YOUR_TABLE"

        ' تحميل البيانات
        Dim dt As New DataTable()
        Using conn As New SqlConnection(connectionString)
            Using cmd As New SqlCommand(query, conn)
                conn.Open()
                Using reader As SqlDataReader = cmd.ExecuteReader()
                    dt.Load(reader)
                End Using
            End Using
        End Using

        ' تمرير البيانات للحدث RunWorkerCompleted
        e.Result = dt
    End Sub

    ' الحدث الذي يتم تشغيله بعد الانتهاء من تحميل البيانات
    Private Sub bgWorker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bgWorker.RunWorkerCompleted
        If e.Error IsNot Nothing Then
            ' التعامل مع الأخطاء
            MessageBox.Show("Error: " & e.Error.Message)
        Else
            ' عرض البيانات في DataGridView
            DataGridView1.DataSource = CType(e.Result, DataTable)
        End If
    End Sub
End Class 


آمل ان تستفيد منه