منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] بحث ضمن قاعدة البيانات في عمود معين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] بحث ضمن قاعدة البيانات في عمود معين (/showthread.php?tid=31908)

بحث ضمن قاعدة البيانات في عمود معين - EMADSSS - 30-10-19

اخواني الكرام سويت هذا البرنامج  الاسم- عنوان - هاتف - المدينة - ملاحظات
للبحث عن اسم معين واضهار البيانات الخاصة به لهون ماعندي مشكلة
كيف بقدر بنفس التكست بوكس ان ابحث عن رقم هاتف أو المدينة أو العنوان اي المقصود ليس البحث بشرطين أو أكثر إنما البحث بالاسم أو هاتف أو عنوان أو مدينة وشكرا سلفا
(30-10-19, 05:09 PM)EMADSSS كتب : اخواني الكرام سويت هذا البرنامج  الاسم- عنوان - هاتف - المدينة - ملاحظات
للبحث عن اسم معين واضهار البيانات الخاصة به لهون ماعندي مشكلة
كيف بقدر بنفس التكست بوكس ان ابحث عن رقم هاتف أو المدينة أو العنوان اي المقصود ليس البحث بشرطين أو أكثر إنما البحث بالاسم أو هاتف أو عنوان أو مدينة وشكرا سلفا

ملاحظة بدون ما اضع زر بوتن انما بوضعية التشينج للتكست بوكس وشكرا

RE: بحث ضمن قاعدة البيانات في عمود معين - asemshahen5 - 30-10-19

PHP كود :
   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'يعمل الكود بالضغط على زر انتر'
        If e.KeyCode = 13 Then
            If Char.IsNumber(TextBox1.Text) Then
                Me.EeBindingSource.Filter = "  [هاتف]=" & TextBox1.Text
            Else
                If TextBox1.Text.Length > 0 Then
                    Me.EeBindingSource.Filter = " [الاسم] LIKE '%" & TextBox1.Text & "%' or [عنوان] LIKE '%" & TextBox1.Text & "%'"
                Else
                    Me.EeBindingSource.RemoveFilter()
                End If
            End If
        End If
    End Sub 


RE: بحث ضمن قاعدة البيانات في عمود معين - EMADSSS - 31-10-19

شكرا اخي جازاك الله خيرا عنا

RE: بحث ضمن قاعدة البيانات في عمود معين - EMADSSS - 02-11-19

(31-10-19, 01:12 AM)EMADSSS كتب : شكرا اخي جازاك الله خيرا عنا

أخي الكريم عم عذبك معي الكود الذي ارسلته لي يبحث في عمود واحد ضمنه رقم ( هاتف ) وعمودين ضمنهم نص ( الاسم - عنوان )
لو سمحت حابب ضيف عمود أخر للبحث ضمنه رقم أيضا يكون رقم العميل
ياريت المساعدة بإضافة كود للبحث بعمودين ضمنهم ارقام وشكرا سلفا

RE: بحث ضمن قاعدة البيانات في عمود معين - asemshahen5 - 03-11-19

PHP كود :
   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'يعمل الكود بالضغط على زر انتر'
        If e.KeyCode = 13 Then
            If Char.IsNumber(TextBox1.Text) Then
                Me.EeBindingSource.Filter = "  [هاتف]=" & TextBox1.Text & " or [المعرف]=" & TextBox1.Text
            Else
                If TextBox1.Text.Length > 0 Then
                    Me.EeBindingSource.Filter = " [الاسم] LIKE '%" & TextBox1.Text & "%' or [عنوان] LIKE '%" & TextBox1.Text & "%'"
                Else
                    Me.EeBindingSource.RemoveFilter()
                End If
            End If
        End If
    End Sub 


RE: بحث ضمن قاعدة البيانات في عمود معين - EMADSSS - 04-11-19

(03-11-19, 05:24 AM)asemshahen5 كتب :
PHP كود :
   Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'يعمل الكود بالضغط على زر انتر'
        If e.KeyCode = 13 Then
            If Char.IsNumber(TextBox1.Text) Then
                Me.EeBindingSource.Filter = "  [هاتف]=" & TextBox1.Text & " or [المعرف]=" & TextBox1.Text
            Else
                If TextBox1.Text.Length > 0 Then
                    Me.EeBindingSource.Filter = " [الاسم] LIKE '%" & TextBox1.Text & "%' or [عنوان] LIKE '%" & TextBox1.Text & "%'"
                Else
                    Me.EeBindingSource.RemoveFilter()
                End If
            End If
        End If
    End Sub 
شكرا اخي مشي الحال كله تمام