تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إدراج كلمة ناجح أو راسب في كود الاستعلام
#1
هل ممكن التعديل على كود الاستعلام وإدراج (ناجح) أو (راسب) ومن ثم عرض الطلبة الناجحين في الجدول

كود :
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
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5
#2
بارك الله فيكم تم حل المشكلة بهذا الكود، لكنه ينقص شرط نحديد الدور (الأول أو الثاني / نظام الدراسة / الصف / الشعبة) حسب الإختيار من الكومبوكس
فنأمل من الأستاذة التكرم بحل هذه الجزئية
كود :
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
'
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5
#3
أهلا بك أخي الكريم , قم بإضافة الحقول مع قيم مايقابلها من الكمبوبوكس في الشرط بعد كلمة 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"DBadOpenStaticadLockOptimistic 

- بالتوفيق والنجاح .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , asemshahen5 , Microformt , Microformt
#4
(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"DBadOpenStaticadLockOptimistic 

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

نعم هو المطلوب، جزاك اللهُ كلّ خيرٍ أستاذي الكريم، وجعلَ ما قدمتَ في ميزان حسناتك
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم ان تتكون كلمة السر من احرف كبيره وارقام ورموز ؟ Microformt 1 313 07-07-23, 08:26 AM
آخر رد: Taha Okla
  المساعدة في اضافة كلمة مرور لقاعدتي البيانات fahad fbs 2 1,466 01-12-20, 01:26 AM
آخر رد: fahad fbs
Question الماذا لا يعمل هذا الاستعلام بخصم الكميه من المخزون ؟؟ Microformt 3 2,962 16-11-20, 11:31 PM
آخر رد: ahmed201
  اخى الغالى الاستاذ امير سول فى الاستعلام من اكثر من جدول mhareek 2 1,141 03-10-20, 09:05 PM
آخر رد: mhareek
  منع تكرار كلمة في حال وجود اكثر من textbox gonm64 2 1,331 25-05-20, 03:23 AM
آخر رد: gonm64
  Datacombo مع كلمة السر Abdellah 2 1,357 08-05-20, 12:27 AM
آخر رد: Abdellah
  سؤال: حفظ نتائج الاستعلام في جدول haider kh 0 939 05-03-20, 11:29 AM
آخر رد: haider kh
  موضوع الاستعلام بين تاريخين - مكرر hannileo 1 1,259 05-02-20, 02:23 AM
آخر رد: Ahmed_Mansoor
  كيف يمكن تغير لون كلمة في اكتف ريبورت اذا تحقق شرط معين gonm64 1 1,273 03-09-19, 12:29 PM
آخر رد: gonm64
  هل ممكن وضع الاستعلام التالي في التقرير princeofislam 0 1,039 23-08-19, 10:02 PM
آخر رد: princeofislam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم