09-09-19, 12:31 AM
هل ممكن التعديل على كود الاستعلام وإدراج (ناجح) أو (راسب) ومن ثم عرض الطلبة الناجحين في الجدول
كود :
If MSHFlexGrid1.Row = 0 Then Exit Sub
If Trim(CombCategory.Text) = "" Then
MsgBox "يجب إختيار نظام الدراسة", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If
If Trim(CombClass.Text) = "" Then
MsgBox "يجب إختيار الصف", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If
If Trim(CombCClass.Text) = "" Then
MsgBox "يجب غختيار الشعبة", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If
ComboStudent.Clear
If Trim$(CombCategory.Text) = "" Or Trim$(CombClass.Text) = "" Or Trim$(CombCClass.Text) = "" Then Exit Sub
Call ConnectionDatabase
If rs.State = adStateOpen Then rs.Close
rs.Open "Select * From Q_Enrolt Where Category='" & Trim$(CombCategory.Text) & "' And Clas='" & Trim$(CombClass.Text) & "'And CClas='" & Trim$(CombCClass.Text) & "' order by iD", DB, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
ComboStudent.AddItem rs![Name_Student]
rs.MoveNext
Loop
'
rs.MoveFirst
'
End If
MSHFlexGrid1.Clear
If rs.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = rs
Else
Set MSHFlexGrid1.DataSource = Nothing
End If
MSHFlexgridAlignment
'
'áÇÚÇÏÉ ÊÑÊíÈ ÇáÊÓáÓá
For I = 0 To rs.RecordCount - 1
MSHFlexGrid1.Row = I + 1
MSHFlexGrid1.Text = I + 1
Next I
Label00.Caption = rs.RecordCount
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ