+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : المساعدة في كود الفلتر (/showthread.php?tid=23241)
المساعدة في كود الفلتر - khaled12345 - 08-01-18
السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء
برجاء المساعدة في كود الفلتر للمفاتيح الملونة باللون الاخضر في الشاشة
المفتاح الاول لعمل فلتر علي الاسم المكرر اكثر من او يساوي خمس مرات
المفتاح الثاني لعمل فلتر علي الاسم الذي عمره اكبر من اويساوي 50 وايضا مرتبه اكبر من اويساوي 1000
برجاء فحص المرفقات
مع جزيل الشكر
RE: المساعدة في كود الفلتر - طالب برمجة - 08-01-18
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sqlstr As String = "SELECT Name FROM Staff GROUP BY Name HAVING COUNT(Name)>=5"
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlstr As String = "SELECT * FROM Staff WHERE (Age>=50) And (Salary>=1000) "
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
لهذا تم الاكتفاء بالبحث لتكرار الاسم فقط
RE: المساعدة في كود الفلتر - khaled12345 - 08-01-18
(08-01-18, 12:20 PM)طالب برمجة كتب :لكن الطلب الأول لا يصلح بإحضار كامل الأعمدة بسبب عدك تطابق البياناتPHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sqlstr As String = "SELECT Name FROM Staff GROUP BY Name HAVING COUNT(Name)>=5"
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlstr As String = "SELECT * FROM Staff WHERE (Age>=50) And (Salary>=1000) "
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
لهذا تم الاكتفاء بالبحث لتكرار الاسم فقط
مشكوووووور جدا جدا جدا استاذي الحبيب
الكود يعمل تمام التمام
RE: المساعدة في كود الفلتر - khaled12345 - 08-01-18
(08-01-18, 12:48 PM)khaled12345 كتب :(08-01-18, 12:20 PM)طالب برمجة كتب :لكن الطلب الأول لا يصلح بإحضار كامل الأعمدة بسبب عدك تطابق البياناتPHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sqlstr As String = "SELECT Name FROM Staff GROUP BY Name HAVING COUNT(Name)>=5"
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlstr As String = "SELECT * FROM Staff WHERE (Age>=50) And (Salary>=1000) "
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
لهذا تم الاكتفاء بالبحث لتكرار الاسم فقط
مشكوووووور جدا جدا جدا استاذي الحبيب
الكود يعمل تمام التمام
السلام عليكم الاخوة الاعزاء
استاذي الحبيب طالب برمجة واساتذتي الاعزاء
من فضلك اضفت فلتر بشرط اخر ---- وهو مطلوب في المشروع
الفلتر المطلوب مضاف بلون مختلف علي الفورم وهو لعمل الاتي :
اذا الاسم تكرر اكبر من او يساوي خمس مرات ومرتبه اكبر من او يساوي 1000
برجاء فحص المرفقات
مع جزيل الشكر
RE: المساعدة في كود الفلتر - طالب برمجة - 09-01-18
PHP كود :
Dim sqlstr As String = "SELECT Name FROM Staff WHERE (Age>=50) And (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5"
وجدول آخر للبيانات الكثيرة التي تخص كل اسم
RE: المساعدة في كود الفلتر - khaled12345 - 09-01-18
(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"
وجدول آخر للبيانات الكثيرة التي تخص كل اسم
شكرا اخي الحبيب علي الرد والمساعدة
للاسف نفذت الكود ولكن لم يعمل معي
RE: المساعدة في كود الفلتر - طالب برمجة - 09-01-18
لكنك لم تضع بقية الكود كما الأزارير السابقة
PHP كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sqlstr As String = "SELECT Name FROM Staff WHERE (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5"
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
RE: المساعدة في كود الفلتر - khaled12345 - 09-01-18
(09-01-18, 12:43 AM)طالب برمجة كتب : لكنك لم تضع بقية الكود كما الأزارير السابقة
PHP كود :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sqlstr As String = "SELECT Name FROM Staff WHERE (Salary>=1000) GROUP BY Name HAVING COUNT(Name)>=5"
da = New OleDbDataAdapter(sqlstr, con)
dt.Clear()
da.Fill(dt)
DGVSearch.DataSource = dt
End Sub
بارك الله فيك يا هندسة
مع جزيييييييل الشكر