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

علماً بأن كود أسماء الطلبــة شغال تمام من خلال البوتن بدون استخدام الكومبوكس

المثال في المرفقات

.rar   جلب أسماء الناجحين.rar (الحجم : 23.86 ك ب / التحميلات : 29)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

الكود لم يعمل ليدك بسبب خطأ برمجي حيث أن حقل "Semester" حقل رقمي في قاعدة البيانات
بينما في الكود وضعت له اشارة البحث النصي الشرطة العلوية "  " قم بمسحها من الكود وسيعمل.

أما عن كفاءة الكود في البحث - فلا أدري - عند عرض النتائج تعرف هل هذا ما تريد ام لاا - وهل الشروط التي وضعتها صحيحة أم لا  ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:
#3
(22-11-21, 10:56 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

الكود لم يعمل ليدك بسبب خطأ برمجي حيث أن حقل "Semester" حقل رقمي في قاعدة البيانات
بينما في الكود وضعت له اشارة البحث النصي الشرطة العلوية "  " قم بمسحها من الكود وسيعمل.

أما عن كفاءة الكود في البحث - فلا أدري - عند عرض النتائج تعرف هل هذا ما تريد ام لاا - وهل الشروط التي وضعتها صحيحة أم لا  ..

بارك الله فيك لا يوجد في الكود شرطة علوية كما هو موضح أدناهُ
كود :
If Trim(Combcless.Text) = "" Then
       MsgBox "الرجــاء ... إختيار الصف الدراسي", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
       Combcless.SetFocus
       Exit Sub: End If

If Trim(Combccless.Text) = "" Then
       MsgBox "الرجـــاء ... إختيار الشعبة", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
       Combccless.SetFocus
       Exit Sub: End If

Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "Select ID,Name_Student,Clas,CClas,Semester,result,tag from TBL_Final1 Where Semester  union all select * from TBL_Final2 Where Semester=3" & _
"' AND [CClas] = '" & Trim(Combccless.Text) & _
"' And result='äÇÌÍ'  AND [Clas] = '" & Trim(Combcless.Text) & _
"'", db, adOpenStatic, adLockOptimistic

Lsum.Caption = " عدد طلبة الصف الناجحين : " & RS.RecordCount & ""

L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'

والشروط صحيحة ولكن الكود غير شغال
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#4
لاحظ في هذا الجزء هنا :
كود :
Where Semester=3" & _
"' AND
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم
اخي الكريم مصمم هاوي

ارجو ان تتقبل كلامي بصدر رحم
البرنامج عندك محتاج تعديل اخي الكريم يجب ان ترسم عملك اولا خارج التنفيذ ثم تقوم بعد اتمام التخطيط بالتنفيذ

اقترح عليك الاتي
اولا عمل جدول للطلاب فيه رقم الطالب واسم الطالب والصف وغيره من امور تخص الطالب
ثانيا عمل جدول خاص بالصف لسهولة تسجيل صف الطالب عند ادخال بيانات طالب جديد
ثالثا جدول الدرجات يتم تسجيل نتائج الطلاب فيه

وهنا نستطيع ان نقوم بالربط بدون اي مشاكل
جدول الطلاب مثلا
رقم الطالب اسم الطالب الصف
1 احمد محمد الخامس
2 مصمم هاوي الرابع
3 سعيد الثالث

ثانيا جدول النتائج
رقم رقم الطالب مادة رقم 1 مادة رقم 2 مادة رقم 3 النتيجه
1 1 25 25 25 ناجح
2 2 30 35 20 ناجح
3 3 5 15 7 راسب

هنا نستطيع ان نبحث بكل سهولة ليه لان لدينا حقول فريدة نتسطيع استخدامها في عملية تصفية البيانات
اتمنى لك التوفيق والسداد
اخيك احمد عبدالعليم
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: مصمم هاوي
#6
(23-11-21, 04:00 PM)ahmedabdelaliem كتب : السلام عليكم
اخي الكريم مصمم هاوي

ارجو ان تتقبل كلامي بصدر رحم
البرنامج عندك محتاج تعديل اخي الكريم يجب ان ترسم عملك اولا خارج التنفيذ ثم تقوم بعد اتمام التخطيط بالتنفيذ

اقترح عليك الاتي
اولا عمل جدول للطلاب فيه رقم الطالب واسم الطالب والصف وغيره من امور تخص الطالب
ثانيا عمل جدول خاص بالصف لسهولة تسجيل صف الطالب عند ادخال بيانات طالب جديد
ثالثا جدول الدرجات يتم تسجيل نتائج الطلاب فيه

وهنا نستطيع ان نقوم بالربط بدون اي مشاكل
جدول الطلاب مثلا
رقم الطالب اسم الطالب الصف
1 احمد محمد الخامس
2 مصمم هاوي الرابع
3 سعيد الثالث

ثانيا جدول النتائج
رقم رقم الطالب مادة رقم 1 مادة رقم 2 مادة رقم 3 النتيجه
1 1 25 25 25 ناجح
2 2 30 35 20 ناجح
3 3 5 15 7 راسب

هنا نستطيع ان نبحث بكل سهولة ليه لان لدينا حقول فريدة نتسطيع استخدامها في عملية تصفية البيانات
اتمنى لك التوفيق والسداد
اخيك احمد عبدالعليم

النقد البناء هدية قيمة من ناصح أمين لكل منصوح.
ثانيا: المثال جزء من برنامج كبير فيه جدول الصلاب وجدول الصفوف وجدول الأقسام أو الشعب وجدول المواد وجدول تسجيل الدرجات. إلى آخره....
ومن الصعب إرفاق برنامج بهذا الحجم الكبير ولهذا يتم إرفاق أمثلة مقتبسة منه فقط.
وجزاك الله كل خير استاذ احمد على النصيحة القيمة.
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة: ahmedabdelaliem
#7
هل ممكن صور فقط من تصميم قواعد البيانات حتى لو على الخاص
لان اريد مراجعة تقسم الجداول
اذا امكنك هذا انا حاضرين

بالتوفيق اخي
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}
تم الشكر بواسطة: مصمم هاوي
#8
(23-11-21, 05:16 PM)ahmedabdelaliem كتب : هل ممكن صور فقط من تصميم قواعد البيانات حتى لو على الخاص
لان اريد مراجعة تقسم الجداول
اذا امكنك هذا انا حاضرين

بالتوفيق اخي

الله يبارك في أعمالك الطيبة، وإن شاء الله تعالى ارجع للبيت وابعثه لك على الخاص
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:
#9
بارك الله فيكم تم تعديل بيانات جلب جدولين وعرض في الليست بوكس وهو شغالٌ 100%
كود :
Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "Select ID,Name_Student from TBL_Final2 Where TBL_Final2.tag=3 and TBL_Final2.result='ناجح' And [TBL_Final2.Clas] ='" & Me.Combcless.Text & "' And [TBL_Final2.CClas] ='" & Me.Combccless.Text & "' union all select ID,Name_Student from TBL_Final1 Where [TBL_Final1.Clas] ='" & Me.Combcless.Text & "' And [TBL_Final1.CClas] ='" & Me.Combccless.Text & "' And TBL_Final1.result='ناجح' and TBL_Final1.tag=2", db, adOpenStatic, adLockOptimistic

Lsum.Caption = " عدد الطلبــة الناجحين : " & RS.RecordCount & ""

L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'

وهذا الكود بدون أختيار من الكومبوكس

كود :
Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "Select ID,Name_Student,Clas,CClas,Semester,result,tag from TBL_Final1 Where TBL_Final1.tag=2 and TBL_Final1.result='ناجح' union all select * from TBL_Final2 Where TBL_Final2.result='ناجح' and TBL_Final2.tag=3", db, adOpenStatic, adLockOptimistic

Lsum.Caption = "عدد الطلبـة الناجحين : " & RS.RecordCount & ""

L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 0 73 05-03-24, 02:40 PM
آخر رد: مصمم هاوي
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 357 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 600 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,449 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  التعديل على كود استخراج الطلبة العشرة الأوائل مصمم هاوي 11 2,246 14-03-23, 07:07 PM
آخر رد: مصمم هاوي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 5 5,257 27-02-23, 03:43 PM
آخر رد: tighrmte

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


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