كود :
' عرض الطلبــة الراسبين حسب المــادة الراسبين فيه
Select Case CombSClas.ListIndex
'
Case 0
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND Semester=3 AND tag=3 AND tr1 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 1
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr2 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 2
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr3 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 3
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=5 AND tr4 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 4
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr5 < 80 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 5
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr6 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 6
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr7 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 7
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr8 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 8
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=2 AND tr9 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 9
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final4] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr10 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 10
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr11 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
Case 11
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [TBL_Final5] WHERE [CClas]='" & Trim(CombCClass.Text) & _
"' AND [Clas] = '" & Trim(CombClass.Text) & _
"' AND tag=3 AND tr12 < 40 AND [Category] = '" & Trim(TextCategory.Text) & _
"'", DB, adOpenStatic, adLockOptimistic
End Select
'
L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'
Form_Exim2.LCount.Caption = " عدد الطلبــة الراسبين في مــادة : " & " " & Form_Exim2.CombSClas.Text & " - " & RS.RecordCount & ""
'
Exit Sub
'
ShowDegree 1
''''''''''''''
TextB_GotFocus
