تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة في كود الفلتر
#1
السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء
 
برجاء المساعدة في كود الفلتر للمفاتيح الملونة باللون الاخضر في الشاشة  
 
 
     المفتاح الاول لعمل فلتر علي الاسم المكرر اكثر من او يساوي خمس مرات


  المفتاح الثاني لعمل فلتر علي الاسم الذي عمره اكبر من اويساوي 50  وايضا مرتبه اكبر من اويساوي 1000



 برجاء فحص المرفقات

مع جزيل الشكر


الملفات المرفقة
.rar   Repetitive01.rar (الحجم : 105.15 ك ب / التحميلات : 25)
الرد }}}
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
    Dim sqlstr 
As String "SELECT Name FROM Staff GROUP BY Name HAVING COUNT(Name)>=5"
    
da = New OleDbDataAdapter(sqlstrcon)
    
dt.Clear()
    
da.Fill(dt)

    
DGVSearch.DataSource dt

End Sub

Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim sqlstr 
As String "SELECT * FROM Staff WHERE (Age>=50) And (Salary>=1000) "
    
da = New OleDbDataAdapter(sqlstrcon)
    
dt.Clear()
    
da.Fill(dt)

    
DGVSearch.DataSource dt

End Sub 
لكن الطلب الأول لا يصلح بإحضار كامل الأعمدة بسبب عدك تطابق البيانات
لهذا تم الاكتفاء بالبحث لتكرار الاسم فقط
الرد }}}
تم الشكر بواسطة:
#3
(08-01-18, 12:20 PM)طالب برمجة كتب :
PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
    Dim sqlstr 
As String "SELECT Name FROM Staff GROUP BY Name HAVING COUNT(Name)>=5"
 
   da = New OleDbDataAdapter(sqlstrcon)
 
   dt.Clear()
 
   da.Fill(dt)

 
   DGVSearch.DataSource dt

End Sub

Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim sqlstr 
As String "SELECT * FROM Staff WHERE (Age>=50) And (Salary>=1000) "
 
   da = New OleDbDataAdapter(sqlstrcon)
 
   dt.Clear()
 
   da.Fill(dt)

 
   DGVSearch.DataSource dt

End Sub 
لكن الطلب الأول لا يصلح بإحضار كامل الأعمدة بسبب عدك تطابق البيانات
لهذا تم الاكتفاء بالبحث لتكرار الاسم فقط


مشكوووووور جدا جدا جدا استاذي الحبيب

الكود يعمل تمام التمام Smile
الرد }}}
تم الشكر بواسطة:
#4
(08-01-18, 12:48 PM)khaled12345 كتب :
(08-01-18, 12:20 PM)طالب برمجة كتب :
PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
    Dim sqlstr 
As String "SELECT Name FROM Staff GROUP BY Name HAVING COUNT(Name)>=5"
 
   da = New OleDbDataAdapter(sqlstrcon)
 
   dt.Clear()
 
   da.Fill(dt)

 
   DGVSearch.DataSource dt

End Sub

Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    Dim sqlstr 
As String "SELECT * FROM Staff WHERE (Age>=50) And (Salary>=1000) "
 
   da = New OleDbDataAdapter(sqlstrcon)
 
   dt.Clear()
 
   da.Fill(dt)

 
   DGVSearch.DataSource dt

End Sub 
لكن الطلب الأول لا يصلح بإحضار كامل الأعمدة بسبب عدك تطابق البيانات
لهذا تم الاكتفاء بالبحث لتكرار الاسم فقط


مشكوووووور جدا جدا جدا استاذي الحبيب

الكود يعمل تمام التمام Smile



السلام عليكم الاخوة الاعزاء

استاذي الحبيب طالب برمجة واساتذتي الاعزاء

من فضلك  اضفت فلتر بشرط اخر ---- وهو مطلوب في المشروع

الفلتر المطلوب مضاف بلون مختلف علي الفورم  وهو  لعمل الاتي :

اذا الاسم تكرر اكبر من او يساوي خمس مرات ومرتبه اكبر من او يساوي 1000

برجاء فحص المرفقات

مع جزيل الشكر


الملفات المرفقة
.rar   Repetitive0.rar (الحجم : 106.29 ك ب / التحميلات : 18)
الرد }}}
تم الشكر بواسطة:
#5
PHP كود :
Dim sqlstr As String "SELECT Name FROM Staff  WHERE (Age>=50) And (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5" 
لكن المفروض أن يكون هناك جدول للأسماء مع البيانات الثابتة
وجدول آخر للبيانات الكثيرة التي تخص كل اسم
الرد }}}
تم الشكر بواسطة:
#6
(09-01-18, 12:13 AM)طالب برمجة كتب :
PHP كود :
Dim sqlstr As String "SELECT Name FROM Staff  WHERE (Age>=50) And (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5" 
لكن المفروض أن يكون هناك جدول للأسماء مع البيانات الثابتة
وجدول آخر للبيانات الكثيرة التي تخص كل اسم

شكرا اخي الحبيب علي الرد والمساعدة

للاسف نفذت الكود ولكن لم يعمل معي Huh


الملفات المرفقة
.rar   Repetitive0.rar (الحجم : 104.74 ك ب / التحميلات : 22)
الرد }}}
تم الشكر بواسطة:
#7
لكنك لم تضع بقية الكود كما الأزارير السابقة
PHP كود :
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click

    Dim sqlstr 
As String "SELECT Name FROM Staff  WHERE (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5"

 
   da = New OleDbDataAdapter(sqlstrcon)
 
   dt.Clear()
 
   da.Fill(dt)

 
   DGVSearch.DataSource dt

End Sub 
الرد }}}
تم الشكر بواسطة:
#8
(09-01-18, 12:43 AM)طالب برمجة كتب : لكنك لم تضع بقية الكود كما الأزارير السابقة
PHP كود :
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click

    Dim sqlstr 
As String "SELECT Name FROM Staff  WHERE (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5"

 
   da = New OleDbDataAdapter(sqlstrcon)
 
   dt.Clear()
 
   da.Fill(dt)

 
   DGVSearch.DataSource dt

End Sub 

بارك الله فيك يا هندسة

مع جزيييييييل الشكر Smile
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم