[h2551996]

السلام عليكم
لدي قاعدة بيانات 
واجلب كامل اللي بها حوالي 3000 او يزيد
وعند الفتح يتم التحميل ببطئ
حوالي 20 ثانية

كود :

Public Sub LoadAllQuick_Sale()
       DgvQuick.Rows.Clear()
       con = New SqlConnection(cs)
       If con.State = 1 Then con.Close()
       con.Open()
       cmd = New SqlCommand(" Select * from QuickSale_Tbl ", con)
       rdr = cmd.ExecuteReader
       While rdr.Read()
           DgvQuick.Rows.Add(rdr("Sale_ID").ToString, rdr("Order_ID").ToString, Convert.ToDateTime(rdr("OrderDate")).ToString("dd/MM/yyyy"), rdr("CustomerName").ToString, rdr("Total").ToString, rdr("Tax_Value").ToString, rdr("Discount_Value").ToString, rdr("FinalTotal").ToString)

       End While
       rdr.Close()
       con.Close()
       Load_Totals()
   End Sub

[aljzazy]

عند جلب عدد كبير من السجلات (مثل 3000 سجل أو أكثر) في تطبيق فيجوال بيسك (VB)، يمكن أن يؤدي ذلك إلى بطء في الأداء. لتحسين سرعة التحميل، يمكن اتباع هذه النصائح:

---

1. تقليل البيانات المعروضة عند التحميل الأولي
بدلًا من جلب جميع السجلات دفعة واحدة، قم بجلب مجموعة صغيرة من السجلات (مثل أول 50 أو 100 سجل) وعرضها في البداية. يمكن استخدام تقنية Pagination أو التقسيم إلى صفحات.
مثال:
vb
نسخ الكود

كود :

Dim sqlQuery As String = "SELECT TOP 100 * FROM TableName ORDER BY ID"

ويمكنك تعديل الاستعلام لاحقًا لجلب الصفحة التالية عند طلب المستخدم.

---

2. استخدام الفهرسة في قاعدة البيانات
تأكد من أن الحقول المستخدمة في البحث أو التصفية (مثل الحقول التي يتم فرزها أو البحث بها) تحتوي على فهرسة (Index). هذا يمكن أن يحسن سرعة جلب البيانات بشكل كبير.
مثال:
إذا كان لديك حقل

كود :

ID

يُستخدم كشرط في الاستعلام، تأكد من أن الحقل مفهرس في قاعدة البيانات.

---

3. تحميل البيانات بشكل غير متزامن (Asynchronous)
استخدم التحميل غير المتزامن حتى لا يتجمد واجهة المستخدم أثناء جلب البيانات.
مثال:
vb
نسخ الكود

كود :

Private Async Sub LoadDataAsync()
   Dim sqlQuery As String = "SELECT * FROM TableName"
   Dim dataTable As New DataTable()
   
   Await Task.Run(Sub()
                      ' تنفيذ الجلب في مهمة منفصلة
                      Using connection As New SqlConnection("Connection_String")
                          Dim adapter As New SqlDataAdapter(sqlQuery, connection)
                          adapter.Fill(dataTable)
                      End Using
                  End Sub)

   ' تحميل البيانات في واجهة المستخدم
   DataGridView1.DataSource = dataTable
End Sub

---

4. استخدام الاستعلامات الفعالة
تجنب جلب الأعمدة التي لا تحتاجها. على سبيل المثال، إذا كنت تحتاج فقط إلى أعمدة معينة، حددها بدلًا من استخدام

كود :

SELECT *

.
مثال:
vb
نسخ الكود

كود :

Dim sqlQuery As String = "SELECT Name, Age, Address FROM TableName"

[h2551996]

شكرا لك لكن لو حبيت يحمل لي اخر 100 سطر من الاخير
select * botton

[أبو خالد الشكري]

جرب هذا الكود 

كود :

SELECT *
FROM TableName
ORDER BY ColumnName DESC
OFFSET 0 ROWS FETCH NEXT 100 ROWS ONLY;

[h2551996]

مشكور ياعزيزي