[محمد مسافر]

الاخوة جميعاً :

عندي مشروع لقراءه بيانات المدن من قاعده بيانات اكسس مرتبه - القريه- العزله- المديريه- المحافظه وتحتوى قاعده البيانات في الاكسس اكثر من تسعين الف سجل فكره البرنامج البحث من قاعده البيانات عن اسم قريه او عزله او مديريه او محافظه   بحث بأحد هذه الاسماء يظهر لي السجل كامل ، 

المشكله عند البدء بالكتابه من البرنامج والبحث في خانه البحث للبيانات المتصل به المشروع في قاعده البيانات يعلق الكتابه ولا يتم اكمال الكلمه ويحصل تعليق السبب هو بسبب كثره البيانات في قاعده البيانات الموجوده في الاكسس ويصعب عليه البحث بسبب الكم الهائل من البيانات كيف اجد حلاً لهذه الاشكاليه ، 

وعندما يتم تخفيف البيانات في قاعده البيانات يتم الاتصال والبحث بشكل طبيعي وتظهر النتائح .

قاعده البيانات حجمها تقريباً 7 ميجا ونصف وتحتوي على 90442  كماهو موضح في الصوره


مرفق لكم ايضأ تلخيص للاشكاليه كما في الصوره صوره فيها الاشكاليه وصوره اخرى طبيعي 

---

كود :

Imports System.Text.RegularExpressions
Imports System.Data.OleDb


Public Class Form1

   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Coverage Claims.accdb;Password=")
   Dim da As New OleDbDataAdapter("SELECT * FROM [Coverage Claims] WHERE [القرية]&[العزلة]&[المحافظة]&[المديرية] LIKE @c ", con)

             

   Dim dt As New DataTable

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


       DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
       DataGridView1.RowsDefaultCellStyle.WrapMode = DataGridViewTriState.True
       For Each l In InputLanguage.InstalledInputLanguages
           If l.culture.ToString.StartsWith("ar") Then InputLanguage.CurrentInputLanguage = l
       Next
   End Sub

   Private Sub textSerch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textSerch.TextChanged
       dt.Clear()
       Label1.Hide()

       Dim txt As String = ""

       'الكود منقول من مشاركة الأستاذ حريف برمجةالبحث بالحروف المشكله
       For Each s As String In textSerch.Text
           s = Regex.Replace(s, "[أإآا]", "[أإآا]")
           s = Regex.Replace(s, "[هة]", "[هة]")
           s = Regex.Replace(s, "[ىي]", "[ىي]")
           s = Regex.Replace(s, "[وؤ]", "[وؤ]")

           txt &= s

           If textSerch.Text.Trim = "" Then Label1.Visible = False : Exit Sub
           If textSerch.Text.Trim.Length < 2 Then
               Label1.Visible = True
               Exit Sub
           End If


           dt.Clear()
           Label1.Hide()
           If textSerch.Text.Trim.Length >= 2 Then
               da.SelectCommand.Parameters.Clear()
               da.SelectCommand.Parameters.AddWithValue("@c", "%" & txt.Trim & "%")
               da.Fill(dt)
               DataGridView1.DataSource = dt
               DataGridView1.ClearSelection()
               If dt.Rows.Count = 0 Then Label1.Show()
           End If
           If textSerch.Text = "" Then
               Label2.Show()
           Else
               Label2.Hide()
           End If
       Next
   End Sub