الاخوة جميعاً :
عندي مشروع لقراءه بيانات المدن من قاعده بيانات اكسس مرتبه - القريه- العزله- المديريه- المحافظه وتحتوى قاعده البيانات في الاكسس اكثر من تسعين الف سجل فكره البرنامج البحث من قاعده البيانات عن اسم قريه او عزله او مديريه او محافظه بحث بأحد هذه الاسماء يظهر لي السجل كامل ،
المشكله عند البدء بالكتابه من البرنامج والبحث في خانه البحث للبيانات المتصل به المشروع في قاعده البيانات يعلق الكتابه ولا يتم اكمال الكلمه ويحصل تعليق السبب هو بسبب كثره البيانات في قاعده البيانات الموجوده في الاكسس ويصعب عليه البحث بسبب الكم الهائل من البيانات كيف اجد حلاً لهذه الاشكاليه ،
وعندما يتم تخفيف البيانات في قاعده البيانات يتم الاتصال والبحث بشكل طبيعي وتظهر النتائح .
قاعده البيانات حجمها تقريباً 7 ميجا ونصف وتحتوي على 90442 كماهو موضح في الصوره
مرفق لكم ايضأ تلخيص للاشكاليه كما في الصوره صوره فيها الاشكاليه وصوره اخرى طبيعي
عندي مشروع لقراءه بيانات المدن من قاعده بيانات اكسس مرتبه - القريه- العزله- المديريه- المحافظه وتحتوى قاعده البيانات في الاكسس اكثر من تسعين الف سجل فكره البرنامج البحث من قاعده البيانات عن اسم قريه او عزله او مديريه او محافظه بحث بأحد هذه الاسماء يظهر لي السجل كامل ،
المشكله عند البدء بالكتابه من البرنامج والبحث في خانه البحث للبيانات المتصل به المشروع في قاعده البيانات يعلق الكتابه ولا يتم اكمال الكلمه ويحصل تعليق السبب هو بسبب كثره البيانات في قاعده البيانات الموجوده في الاكسس ويصعب عليه البحث بسبب الكم الهائل من البيانات كيف اجد حلاً لهذه الاشكاليه ،
وعندما يتم تخفيف البيانات في قاعده البيانات يتم الاتصال والبحث بشكل طبيعي وتظهر النتائح .
قاعده البيانات حجمها تقريباً 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
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
