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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : إدراج كلمة ناجح أو راسب في كود الاستعلام (/showthread.php?tid=31266)

إدراج كلمة ناجح أو راسب في كود الاستعلام - مصمم هاوي - 09-09-19

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

كود :
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


RE: إدراج كلمة ناجح أو راسب في كود الاستعلام - مصمم هاوي - 09-09-19

بارك الله فيكم تم حل المشكلة بهذا الكود، لكنه ينقص شرط نحديد الدور (الأول أو الثاني / نظام الدراسة / الصف / الشعبة) حسب الإختيار من الكومبوكس
فنأمل من الأستاذة التكرم بحل هذه الجزئية
كود :
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
'


RE: إدراج كلمة ناجح أو راسب في كود الاستعلام - Ahmed_Mansoor - 11-09-19

أهلا بك أخي الكريم , قم بإضافة الحقول مع قيم مايقابلها من الكمبوبوكس في الشرط بعد كلمة 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 

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

RE: إدراج كلمة ناجح أو راسب في كود الاستعلام - مصمم هاوي - 12-09-19

(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 

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

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