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

نسخة كاملة : بحث ضمن قاعدة البيانات في عمود معين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اخواني الكرام سويت هذا البرنامج  الاسم- عنوان - هاتف - المدينة - ملاحظات
للبحث عن اسم معين واضهار البيانات الخاصة به لهون ماعندي مشكلة
كيف بقدر بنفس التكست بوكس ان ابحث عن رقم هاتف أو المدينة أو العنوان اي المقصود ليس البحث بشرطين أو أكثر إنما البحث بالاسم أو هاتف أو عنوان أو مدينة وشكرا سلفا

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

ملاحظة بدون ما اضع زر بوتن انما بوضعية التشينج للتكست بوكس وشكرا
PHP كود :
   Private Sub TextBox1_KeyDown(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDown
        
'يعمل الكود بالضغط على زر انتر'
 
       If e.KeyCode 13 Then
            If Char
.IsNumber(TextBox1.TextThen
                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 
شكرا اخي جازاك الله خيرا عنا
(31-10-19, 01:12 AM)EMADSSS كتب : [ -> ]شكرا اخي جازاك الله خيرا عنا

أخي الكريم عم عذبك معي الكود الذي ارسلته لي يبحث في عمود واحد ضمنه رقم ( هاتف ) وعمودين ضمنهم نص ( الاسم - عنوان )
لو سمحت حابب ضيف عمود أخر للبحث ضمنه رقم أيضا يكون رقم العميل
ياريت المساعدة بإضافة كود للبحث بعمودين ضمنهم ارقام وشكرا سلفا
PHP كود :
   Private Sub TextBox1_KeyDown(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDown
        
'يعمل الكود بالضغط على زر انتر'
 
       If e.KeyCode 13 Then
            If Char
.IsNumber(TextBox1.TextThen
                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 
(03-11-19, 05:24 AM)asemshahen5 كتب : [ -> ]
PHP كود :
   Private Sub TextBox1_KeyDown(sender As ObjectAs KeyEventArgsHandles TextBox1.KeyDown
        
'يعمل الكود بالضغط على زر انتر'
 
       If e.KeyCode 13 Then
            If Char
.IsNumber(TextBox1.TextThen
                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 
شكرا اخي مشي الحال كله تمام