(01-04-20, 03:36 PM)سامي محمد كتب : اضف الليست بكس داخل شرط البحث ليكون الشكر النهائي هكذا
كود :
GgDataGridView.DataSource = Nothing
ListBox1.DataSource = Nothing
GgDataGridView.Rows.Clear()
ListBox1.Items.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox9.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
For Each x As DataRow In EeeeDataSet.gg.Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
GgDataGridView.Rows.Add()
GgDataGridView(0, N).Value = x(0)
GgDataGridView(1, N).Value = x(1)
GgDataGridView(2, N).Value = x(2)
ListBox1.Items.Add(x(1))
N += 1
End If
Next
شكرا اخي الكريم كلك ذوق الله يعطيك العافي
عندي سؤال بدي عذبك هلق لو كانت عملية البحث هذه فقط ضمن الليسيت بوكس وبدون الداتا كريت قيو مو افضل لان نتيجة الفلترة في الليست بوكس تلقائيا النتيجة تضهر في الداتا كريت قيو وشكرا لك مرة أخرى
ListBox1.DataSource = Nothing
ListBox1.Items.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox9.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
For Each x As DataRow In EeeeDataSet.gg.Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
ListBox1.Items.Add(x(1))
N += 1
End If
Next
ListBox1.DataSource = Nothing
ListBox1.Items.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox9.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
For Each x As DataRow In EeeeDataSet.gg.Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
ListBox1.Items.Add(x(1))
N += 1
End If
Next
02-04-20, 03:10 AM (آخر تعديل لهذه المشاركة : 02-04-20, 01:45 PM {2} بواسطة EMADSSS.)
(02-04-20, 12:10 AM)EMADSSS كتب :
(01-04-20, 08:53 PM)سامي محمد كتب :
كود :
ListBox1.DataSource = Nothing
ListBox1.Items.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox9.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
For Each x As DataRow In EeeeDataSet.gg.Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
ListBox1.Items.Add(x(1))
N += 1
End If
Next
في الخدمة
شكرا لك اخي الكريم جازاك الله خيرا
اخي الكريم عم عذبك معي الاكواد التي ارسلتها لي تعمل بشك ممتاز في حال كان الاتصال بقاعدة البيانات مباشراً الله يعطيك العافي
ولكن عندما نقلت الاكواد لبرنامجي الاساسي والمتصل بقاعدة البيانات بشكل غير مباشر عم يعطيني الكود خطأ في هذه الجملة وذلك باسم القاعدة والجدول رغم انني غيرته
عملية البحث السابقة ليست مباشرة بل يتم البحث في الداتا سيت وليس بقاعدة بيانات اكسس ....
لابد من وجود اختلاف بين مثالك الذي رفعته وبين المشروعك
----
ربط قاعدة البيانات باالاكواد سيكون الامر اسهل بكثير وعالجتها كذلك
02-04-20, 05:26 PM (آخر تعديل لهذه المشاركة : 02-04-20, 05:27 PM {2} بواسطة EMADSSS.)
(02-04-20, 02:54 PM)سامي محمد كتب : عملية البحث السابقة ليست مباشرة بل يتم البحث في الداتا سيت وليس بقاعدة بيانات اكسس ....
لابد من وجود اختلاف بين مثالك الذي رفعته وبين المشروعك
----
ربط قاعدة البيانات باالاكواد سيكون الامر اسهل بكثير وعالجتها كذلك
اخي الكريم راح ارسل لك مشروع مطابق جدا لمشروعي الاساسي كل ماارغبه منك بالمساعدة
1- كود البحث في زر يعطي فلترة للاسماء متجاهل الهمزات في الداتا والليست بوكس ( مثل أحمد واحمد )
2- كود بحث في زر يعطي فلترة في الداتا كريت فيو فقط ومتجاهلا الهمزات ايضا و ه و ة لكن ارجو منك هنا فقط ان يكون البحث في عمود الاسم في الداتا وليس من الليست
عسا ان اكون قد وصلت لك الفكرة جيدا وشكرا جدا جدا لك سلفا وجازاك الله خيرا
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = Nothing
DataGridView1.Rows.Clear()
ListBox1.DataSource = Nothing
ListBox1.Items.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox4.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
'BindingSource1هنا الخطا فقط بكلمة
For Each x As DataRow In DataSet1.Tables(0).Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
DataGridView1.Rows.Add()
DataGridView1(0, N).Value = x(0)
DataGridView1(1, N).Value = x(1)
DataGridView1(2, N).Value = x(2)
ListBox1.Items.Add(x(1))
N += 1
End If
Next
وفي زر : البحث وتجاهل الهمزات في الدات فقط
كود :
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = Nothing
DataGridView1.Rows.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox4.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
For Each x As DataRow In DataSet1.Tables(0).Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
DataGridView1.Rows.Add()
DataGridView1(0, N).Value = x(0)
DataGridView1(1, N).Value = x(1)
DataGridView1(2, N).Value = x(2)
N += 1
End If
Next
03-04-20, 01:35 AM (آخر تعديل لهذه المشاركة : 03-04-20, 03:50 AM {2} بواسطة EMADSSS.)
(02-04-20, 10:18 PM)سامي محمد كتب : في زر : البحث وتجاهل الهمزات في الداتا والليست
كود :
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = Nothing
DataGridView1.Rows.Clear()
ListBox1.DataSource = Nothing
ListBox1.Items.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox4.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
'BindingSource1هنا الخطا فقط بكلمة
For Each x As DataRow In DataSet1.Tables(0).Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
DataGridView1.Rows.Add()
DataGridView1(0, N).Value = x(0)
DataGridView1(1, N).Value = x(1)
DataGridView1(2, N).Value = x(2)
ListBox1.Items.Add(x(1))
N += 1
End If
Next
وفي زر : البحث وتجاهل الهمزات في الدات فقط
كود :
DataGridView1.AutoGenerateColumns = False
DataGridView1.DataSource = Nothing
DataGridView1.Rows.Clear()
Dim N As Integer
Dim Txt As String = Nothing
For Each x As String In TextBox4.Text
x = Regex.Replace(x, "[إأآا]", "[إأآا]")
x = Regex.Replace(x, "[هة]", "[هة]")
x = Regex.Replace(x, "[وؤ]", "[وؤ]")
x = Regex.Replace(x, "[يى]", "[يى]")
Txt &= x
Next
For Each x As DataRow In DataSet1.Tables(0).Rows
If Regex.IsMatch(x(1), "^" & Txt) = True Then
DataGridView1.Rows.Add()
DataGridView1(0, N).Value = x(0)
DataGridView1(1, N).Value = x(1)
DataGridView1(2, N).Value = x(2)
N += 1
End If
Next
شكرا اخي الكريم كله تمام الله يعطيك العافي
عم عذبك معي عندي سؤالين
1- بعد الفلترة في التكست بوكس فقط اريد لما اضغط بالماوس على احد الاسماء المفلترة في التكست تضهر المعلومات الخاصة به في الحقول ( اسم - ملاحظة وغيره) وتحديد اسمه في والداتا كريت اي ينقلني لسجلاته في الداتا وتضهر بياناته في الحقول
2- في البحث في الداتا كريت كيف بقدر غير رقم العمود الذي يبحث به فمثلا لا اريد البحث في العمود الاول انما الثاني او الثالث حسب كودك المرسل لي
وشكرا فهذه المشاكل لم تكن موجودة عندي بالاكواد السابقة قبل ان اتجاهل الهمزات وشكرا سلفا
عسا ان تكون مشكلتي وضحت بعد عملية البحث تضهر لي اسماء في التكست مثل امجد علي وامجد القاسم نتيجة البحث
اريد لما اضغط بالموس على احد هذه الاسماء تضهر بياناته في الحقول الخاصة بهذا الاسم ويضهر اسمه في اول صف في الداتا كريت ومحدد رقمه في الداتا كريت بلون مختلف وشكرا للجميع للمساعدة
03-04-20, 09:38 PM (آخر تعديل لهذه المشاركة : 03-04-20, 09:53 PM {2} بواسطة سامي محمد.)
أخ عماد انت استخدمة طريقة الربط الديناميكي بين الحقول واليست بكس و الكمبوبكس والداتا قريد ... بخاصية BindingSource عند استخدام هذا الطريقة سيكون هناك ارتباط بين كل هذه الادوات حتى لو حاولت ان تحذف عنصر من اليست بكس او الكمبوبكس اوكذلك الداتا قريد لا يسمح لك بذلك الا اذا فكيت هذا الارتباط بـــ DataGridView1.DataSource = Nothing واذا انفك الارتباط فلا تيم التنقل بين السجلات كما هو الحال في عملية تعبأتها بطريقتنا
ولكن اسلم حل هو تهيئة الأداة BindingSource لكي نتمكن من البحث فيها بكل المدخلات ....
انظر إلى هذا الأجراء لقد قمت بحذف جميع الاحرف المهموزة وكذلك الهمزة المنقوطه ... إلخ
واصبح النص في ادات BindingSource بهية واحده .... تم استبدال جميع الــ إأآ بــــ ا في جميع الكلمات وليست في كلمة احمد .... وكذلك الحال بالنسبة للهاء .... إلخ
في صفحة تحميل الفورم احذف هذا الكود
كود :
BindingSource2 = New BindingSource(DataSet1, "ARSH")
واستبدله بهذا
كود :
BindingSource2 = New BindingSource
For Each x As DataRow In DataSet1.Tables(0).Rows
Dim Txt As String = Nothing
For Each x As String In TextBox4.Text
x = Regex.Replace(x, "[إأآا]", "ا")
x = Regex.Replace(x, "[هة]", "ه")
x = Regex.Replace(x, "[وؤ]", "و")
x = Regex.Replace(x, "[يى]", "ي")
Txt &= x
Next
وفي خانة البحث عن النص استبدل هذا الكود
كود :
BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"
بهذا
كود :
BindingSource2.Filter = "Name like '%" & Txt & "%'"
لكن لا تستطيع البحث باليست بكس لوحدها او الداتا قريد لوعدها ...لانها كما قلت لك مرتبطة ببعضها
وبالنسبة لسؤلك الثاني انش كمبوبكس و اضف فيه عدد الاعمدة المراد البحث بها وبحسب اختيار العنصر يتم البحث
-----
وان كان هنك اي اشكل لن يقصر احد في هذا المنتدى
(03-04-20, 09:38 PM)سامي محمد كتب : أخ عماد انت استخدمة طريقة الربط الديناميكي بين الحقول واليست بكس و الكمبوبكس والداتا قريد ... بخاصية BindingSource عند استخدام هذا الطريقة سيكون هناك ارتباط بين كل هذه الادوات حتى لو حاولت ان تحذف عنصر من اليست بكس او الكمبوبكس اوكذلك الداتا قريد لا يسمح لك بذلك الا اذا فكيت هذا الارتباط بـــ DataGridView1.DataSource = Nothing واذا انفك الارتباط فلا تيم التنقل بين السجلات كما هو الحال في عملية تعبأتها بطريقتنا
ولكن اسلم حل هو تهيئة الأداة BindingSource لكي نتمكن من البحث فيها بكل المدخلات ....
انظر إلى هذا الأجراء لقد قمت بحذف جميع الاحرف المهموزة وكذلك الهمزة المنقوطه ... إلخ
واصبح النص في ادات BindingSource بهية واحده .... تم استبدال جميع الــ إأآ بــــ ا في جميع الكلمات وليست في كلمة احمد .... وكذلك الحال بالنسبة للهاء .... إلخ
في صفحة تحميل الفورم احذف هذا الكود
كود :
BindingSource2 = New BindingSource(DataSet1, "ARSH")
واستبدله بهذا
كود :
BindingSource2 = New BindingSource
For Each x As DataRow In DataSet1.Tables(0).Rows
Dim Txt As String = Nothing
For Each x As String In TextBox4.Text
x = Regex.Replace(x, "[إأآا]", "ا")
x = Regex.Replace(x, "[هة]", "ه")
x = Regex.Replace(x, "[وؤ]", "و")
x = Regex.Replace(x, "[يى]", "ي")
Txt &= x
Next
وفي خانة البحث عن النص استبدل هذا الكود
كود :
BindingSource2.Filter = "Name like '%" & TextBox4.Text & "%'"
بهذا
كود :
BindingSource2.Filter = "Name like '%" & Txt & "%'"
لكن لا تستطيع البحث باليست بكس لوحدها او الداتا قريد لوعدها ...لانها كما قلت لك مرتبطة ببعضها
وبالنسبة لسؤلك الثاني انش كمبوبكس و اضف فيه عدد الاعمدة المراد البحث بها وبحسب اختيار العنصر يتم البحث
-----
وان كان هنك اي اشكل لن يقصر احد في هذا المنتدى
