الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Checkbox كيف استخدمها في الإستعلام Sql

بدأه hgool في 7 سبتمبر 2009 · 3 رد · 432 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بســم الله الـرحمــن الرحيــم

السلام عليكم يا أخوان .

عندي طلب للخبراء لو تكرمتوا . احتاج تكنيك سريع .

هو / عندي شاشة بها أكثر من عشرة CheckBox وسوف أعمل جملة إستعلام على موجب CheckBox . بمعنى جملة SELECT تعتمد على CheckBox

في Where .

يعني لو المستخدم اختر (ذكر ، متزوج ، موظف ، محترف ....) سوف استخدمها في where . يعني كل خيار يختاره يدخل معي بالجملة where

بصراحة بالطريقة العادية متعبه جدا كلها if . متعبه وليس فيها ديناميكيه .

شاكر لكم بعد شكري لله.

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

يمكنك كتابة إسم الحقل المرتبط بالـCheckBox فى الخاصية Tag ثم عمل حلقة تكرارية على هذه الأدوات وتكوين الاستعلام ديناميكيا

هذا الكود يوضح الفكرة

  1.  
  2. Imports System.Text
  3. Public Class Form1
  4.  
  5.     Private Function GetFilter() As StringBuilder
  6.         Dim sb As New StringBuilder
  7.         For Each ctrl As Control In Me.Controls
  8.             If TypeOf ctrl Is CheckBox AndAlso CType(ctrl, CheckBox).Tag IsNot Nothing Then
  9.                 sb.Append(ctrl.Tag & "=" & IIf(CType(ctrl, CheckBox).Checked, 1, 0) & ",")
  10.             End If
  11.         Next
  12.         If sb.ToString.EndsWith(",") Then
  13.             sb = sb.Remove(sb.Length - 1, 1)
  14.         End If
  15.         Return sb
  16.     End Function
  17.  
  18. End Class
  19.  


      
      

      
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

    

  

    
    

      
#3
        
        

      
مشكور أخوي ...
بارك الله فيك .
يعني الأن sb هو يكون الهدف اخذه وأعمل له ربط بجملة select

      
      

      
    

  

    
    

      
#4
        
        

      
اقتباس
يعني الأن sb هو يكون الهدف اخذه وأعمل له ربط بجملة select
نعم ,, القيمة الناتجة من استدعاء الوظيفة GetFilter ستكون هى جملة الشرط فى الاستعلام أى تضيفها بعد Where مع مراعاة استدعاء الوظيفة ToString أى تستخدمها هكذا
  1.  
  2. GetFilter.ToString()
  3.  
انتظر ,, هناك خطأ لاحظته ,, الكود الذى كتبته لك ينتج جملة Update وليس جملة شرط :blink: 
معذرة لأنى أستخدم هذا الكود بكثرة فتعودت على كتابته ,, على كل يمكنك إصلاح الخطأ باستبدال الكود السابق بهذا الكود
  1.  
  2. Private Function GetFilter() As StringBuilder
  3.         Dim sb As New StringBuilder
  4.         For Each ctrl As Control In Me.Controls
  5.             If TypeOf ctrl Is CheckBox AndAlso CType(ctrl, CheckBox).Tag IsNot Nothing Then
  6.                 sb.Append("And " & ctrl.Tag & "=" & IIf(CType(ctrl, CheckBox).Checked, 1, 0) & 
    " ")
  7.             End If
  8.         Next
  9.         If sb.ToString.StartsWith("And") Then
  10.             sb = sb.Remove(0, 3)
  11.         End If
  12.         Return sb
  13.     End Function
  14.  


      
      

      
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

    

  

    
    
    
 مواضيع مشابهة