+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال حول البحث (/showthread.php?tid=29088)
سؤال حول البحث - ahmadpal - 20-03-19
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
اخوتي اخواتي الاعزاء في هذا المنتدى لدي سؤال حول البحث في قواعد البيانات من نوع اكسس
لدي جملة الاستعلام التالية
PHP كود :
Dim Str() As String = Txt_MultiSearsh.Text.Split(",")
Dim dt1 As New DataTable
Dim da1 As New OleDbDataAdapter
Try
For i As Integer = 0 To Str.Length - 1
da1 = New OleDbDataAdapter("select * from CV_Person where FName like '%" & Str(i) & "%'", con)
da1.Fill(dt1)
Dgv_Table.DataSource = dt1
Next
Catch ex As Exception
End Try
بمعنى انه بعد اضافة فاصلة "," يبحث البرنامج عن شيء جديد او عن اسم اخر ولكن المشكلة عند وضع الفاصلة اذا كان ما بعد الفاصلة فراغ او لا شي فأن جميع محتوى الجدول يظهر في نتائج البحث اريد ان يتجاهل اخر فاصلة في البحث فمثلا عند كتابه احمد , فان جميع الداتا تظهر وكأنني لم اكتب شيء في البحث
ما الحل برأيكم ولكم مني جزيل الشكر
RE: سؤال حول البحث - 5000 - 20-03-19
تعديل لأول سطر
Dim Str() As String = Txt_MultiSearsh.Text.Split({","}, StringSplitOptions.RemoveEmptyEntries)
يقوم RemoveEmptyEntries بإزالة أي فراغ ولا يحتسبه من مجموعة الأسماء المراد البحث عنها
RE: سؤال حول البحث - ahmadpal - 20-03-19
اخي الكريم 5000 اشكرك على الرد عند اضافة StringSplitOptions.RemoveEmptyEntrie فانه يظهر لي -1 في مربع البحث
يبدو انني لم استطع ان اضع الكود بالشكل الصحيح
RE: سؤال حول البحث - 5000 - 20-03-19
احذف try وجرب وانظر اين الخطأ
RE: سؤال حول البحث - ahmadpal - 20-03-19
عند اضافة الجملة التي تقول عنها فانها يضع سطر خطأ تحت split
كود :
Dt.Clear()
Txt_MultiSearsh.Text = StringSplitOptions.RemoveEmptyEntries
Dim Str() As String = Txt_MultiSearsh.Text.Split(",", StringSplitOptions.RemoveEmptyEntries).Length
Dim dt1 As New DataTable
Dim da1 As New OleDbDataAdapter
'Try
For i As Integer = 0 To Str.Length - 1
da1 = New OleDbDataAdapter("select * from CV_Person where FName like '%" & Str(i) & "%'", con)
da1.Fill(dt1)
Dgv_Table.DataSource = dt1
Next
'Catch ex As Exception
'End Try
End Subوارجوا ان لا اكون قد تسببت بازعاجك
RE: سؤال حول البحث - 5000 - 20-03-19
يجب وضع "," بين قوسين {} كما هو موضح في الكود الذي في مشاركتي الأولى
RE: سؤال حول البحث - ahmadpal - 20-03-19
اشكرك جزيل الشكر اخي وبارك الله بك وأسال الله تعالى ان يؤتيك من فضله
تم بنجاج المشكلة فقط كانت الأقواس كما قلت والكود الذي قدمته لي يعمل بشكل رائع تقبل مني شكري وتحياتي +1