تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن تغير لون كلمة في اكتف ريبورت اذا تحقق شرط معين gonm64 1 76 03-09-19, 12:29 PM
آخر رد: gonm64
  هل ممكن وضع الاستعلام التالي في التقرير princeofislam 0 79 23-08-19, 10:02 PM
آخر رد: princeofislam
Question [vb6.0] هل لو تم إدراج التايخ الميلادي بشكل البرمجي هل سوف يحصل خطاء في التاريخ في المستقبل Microformt 3 368 26-11-18, 04:09 PM
آخر رد: Microformt
  طريقة تغيير نوع بيانات الحقل داخل جملة الاستعلام عبدالله الصافي 3 476 05-11-18, 03:30 AM
آخر رد: حريف برمجة
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 902 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  سؤال..... عن الاستعلام انا اره عجيب !!!! محمد حمد محمد 7 619 24-02-18, 08:59 PM
آخر رد: محمد حمد محمد
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 644 26-11-17, 12:02 PM
آخر رد: الاصيله
  مشكلة جمع حقل فارغ في الاستعلام sulimanalahdl 12 1,348 11-11-17, 03:04 PM
آخر رد: sulimanalahdl
Question [vb6.0] الاستعلام برقم الموظف في برنامجي المرفق ؟ Microformt 9 991 27-08-17, 01:44 PM
آخر رد: Microformt
  إضافة كلمة المرور عبد العزيز البسكري 4 626 24-05-17, 04:54 PM
آخر رد: larbihamri

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


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