منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
اخوتي اخواتي الاعزاء في هذا المنتدى لدي سؤال حول البحث في قواعد البيانات من نوع اكسس
لدي جملة الاستعلام التالية

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 

بمعنى انه بعد اضافة فاصلة "," يبحث البرنامج عن شيء جديد او عن اسم اخر ولكن المشكلة عند وضع الفاصلة اذا كان ما بعد الفاصلة فراغ او لا شي فأن جميع محتوى الجدول يظهر في نتائج البحث اريد ان يتجاهل اخر فاصلة في البحث فمثلا عند كتابه احمد , فان جميع الداتا تظهر وكأنني لم اكتب شيء في البحث
ما الحل برأيكم ولكم مني جزيل الشكر

تعديل لأول سطر
Dim Str() As String = Txt_MultiSearsh.Text.Split({","}, StringSplitOptions.RemoveEmptyEntries)

يقوم RemoveEmptyEntries بإزالة أي فراغ ولا يحتسبه من مجموعة الأسماء المراد البحث عنها

اخي الكريم 5000 اشكرك على الرد عند اضافة StringSplitOptions.RemoveEmptyEntrie فانه يظهر لي -1 في مربع البحث
يبدو انني لم استطع ان اضع الكود بالشكل الصحيح

احذف try وجرب وانظر اين الخطأ

عند اضافة الجملة التي تقول عنها فانها يضع سطر خطأ تحت 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

وارجوا ان لا اكون قد تسببت بازعاجك

يجب وضع "," بين قوسين {} كما هو موضح في الكود الذي في مشاركتي الأولى

اشكرك جزيل الشكر اخي وبارك الله بك وأسال الله تعالى ان يؤتيك من فضله
تم بنجاج المشكلة فقط كانت الأقواس كما قلت والكود الذي قدمته لي يعمل بشكل رائع تقبل مني شكري وتحياتي +1

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmadpal

5000

ahmadpal

5000

ahmadpal

5000

ahmadpal