منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - إدراج كلمة ناجح أو راسب في كود الاستعلام

هل ممكن التعديل على كود الاستعلام وإدراج (ناجح) أو (راسب) ومن ثم عرض الطلبة الناجحين في الجدول

كود :

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

بارك الله فيكم تم حل المشكلة بهذا الكود، لكنه ينقص شرط نحديد الدور (الأول أو الثاني / نظام الدراسة / الصف / الشعبة) حسب الإختيار من الكومبوكس
فنأمل من الأستاذة التكرم بحل هذه الجزئية

كود :

If CombCategory.Text = "" Then

MsgBox ("الرجـاء ... إختر نظام الدراسة"), vbCritical, ("تنبيه")

CombCategory.SetFocus

Exit Sub

End If

If CombClas.Text = "" Then

MsgBox ("الرجـاء ... إختر اسم الصف الدراسي"), vbCritical, ("تنبيه")

CombClas.SetFocus

Exit Sub

End If

If CombCClas.Text = "" Then

MsgBox ("الرجـاء ... إختر اسم الشعبة"), vbCritical, ("تنبيه")

CombCClas.SetFocus

Exit Sub

End If

If CombExim.Text = "" Then

MsgBox ("الرجـاء ... إختر اسم الدور"), vbCritical, ("تنبيه")

CombExim.SetFocus

Exit Sub

End If

Dim X As String

X = CombExim.Text

Call ConnectionDatabase

If rs.State = adStateOpen Then rs.Close

rs.Open "Select ID,Name_Student,Clas,CClas,Category," & _

"SETNO2,ToTal,FINAL,takdeer,result,tag From Q_Semesters_Total where result = 'ناجح' order by Name_Student", 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

'

أهلا بك أخي الكريم , قم بإضافة الحقول مع قيم مايقابلها من الكمبوبوكس في الشرط بعد كلمة When كما فعلت مع حقل الـ result في تعديل الكود التالي قم بتصحيح أسماء الحقول مع مايناسبها من الكومبوبوكس حيث أعتقد بقي حقل الدور لم يكن واضحا أي كومبوبوكس يقابله :

PHP كود :

rs.Open "Select ID,Name_Student,Clas,CClas,Category," & _
"SETNO2,ToTal,FINAL,takdeer,result,tag From Q_Semesters_Total where Category='" & Trim(CombCategory.Text) & "' And Clas='" & Trim(CombClas.Text) & "' And CClas='" & Trim(CombCClas.Text) & "' And FINAL='" & Trim(CombExim.Text) & "' And result='ناجح' order by Name_Student", DB, adOpenStatic, adLockOptimistic 

- بالتوفيق والنجاح .

(11-09-19, 05:02 AM)Ahmed_Mansoor كتب : [ -> ]أهلا بك أخي الكريم , قم بإضافة الحقول مع قيم مايقابلها من الكمبوبوكس في الشرط بعد كلمة When كما فعلت مع حقل الـ result في تعديل الكود التالي قم بتصحيح أسماء الحقول مع مايناسبها من الكومبوبوكس حيث أعتقد بقي حقل الدور لم يكن واضحا أي كومبوبوكس يقابله :

PHP كود :

rs.Open "Select ID,Name_Student,Clas,CClas,Category," & _ "SETNO2,ToTal,FINAL,takdeer,result,tag From Q_Semesters_Total where Category='" & Trim(CombCategory.Text) & "' And Clas='" & Trim(CombClas.Text) & "' And CClas='" & Trim(CombCClas.Text) & "' And TAG='" & Trim(CombExim.Text) & "' And result='ناجح' order by Name_Student", DB, adOpenStatic, adLockOptimistic

- بالتوفيق والنجاح .

نعم هو المطلوب، جزاك اللهُ كلّ خيرٍ أستاذي الكريم، وجعلَ ما قدمتَ في ميزان حسناتك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصمم هاوي

مصمم هاوي

Ahmed_Mansoor

مصمم هاوي