تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود نفس هذا الكود للاكسس
#1
هذا كود استعلام من اوراكل اريد مثالة بأكسس
كود :
dim code as String="3"
Select A.Class_No,Class_Name,Seat_Count From Classes A,(Select Class_No  From Aviatrix_Seats where Type_No= code) B
 where Active=0 and A.Class_No=B.Class_No (+)
Order By A.Class_No
يعمل الاستعلام على جلب البيانات في الجز الأول وهو جدول Classes بشكل مستقل عن الثاني
اما في الجزء الثاني يتم جلب البيانات من جدول  Aviatrix_Seats بشرط رقم النوع  Type_No
لكن في حالة عدم تحقق الشرط Type_No وعدم وجود بيانات للاستعلام الفرعي تظل البيانات موجودة في الاستعلام الاساسي من جدول Classes
مع الملاحظة ما معنا هذه العلامة في اوراكل (+) و هل لها مثيل في اكسس
الرد }}}
تم الشكر بواسطة: سعود , سعود
#2
بشكل عام (+) تعني ربط join
ويمكن اختصار هذا الاستعلام هكذا
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A,Aviatrix_Seats B
where Active=0 and A.Class_No=B.Class_No (+)
Order By A.Class_No

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

هذه محاولة بدون تجربه
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A Left Join Aviatrix_Seats B On A.Class_No=B.Class_No
where Active=0
Order By A.Class_No
الرد }}}
تم الشكر بواسطة: سعود , غدير الصليحي
#3
(28-11-21, 12:08 PM)E100 كتب : بشكل عام (+) تعني ربط join
ويمكن اختصار هذا الاستعلام هكذا
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A,Aviatrix_Seats B
where Active=0 and A.Class_No=B.Class_No (+)
Order By A.Class_No

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

هذه محاولة بدون تجربه
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A Left Join Aviatrix_Seats B On A.Class_No=B.Class_No
where Active=0
Order By A.Class_No

[صورة مرفقة: C:\Users\BASSAM\Desktop\بدون عنوان.PNG]

(28-11-21, 12:08 PM)E100 كتب : بشكل عام (+) تعني ربط join
ويمكن اختصار هذا الاستعلام هكذا
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A,Aviatrix_Seats B
where Active=0 and A.Class_No=B.Class_No (+)
Order By A.Class_No

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

هذه محاولة بدون تجربه
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A Left Join Aviatrix_Seats B On A.Class_No=B.Class_No
where Active=0
Order By A.Class_No

هذا الصور من الاكسس يعني مو هي نتائج استعلامات  بس بنفس الشكل تضهر في الاوراكل
لانة مو مثبت عندي الاوراكل الان بس عند زميلتي جربتة تضهر نفس كذا

تضهر اسماء الكلاسات و ارقام الكلاسات Class_No و Class_Name
لكن عدد المقاعد في الكلاسات Seat_Count تكون بشرط رقم نوع الكلاس Type_No
اذا مثلا ارسلت قيمة فارغة تضهر لي اسماء الكلاسات و ارقامها لكن تضهر لي عدد المقاعد فارغة
و اذا ادخلت قيمة صحيحة لنوع الكلاسا Type_No تضهر لي نتائج لكل من  Class_No و Class_Name و Seat_Count 
الملف مرفق بالصور 
سؤال اخر خارج الموضوع 
كيف اعمل لص لصور في المنتدء 
جربت ما عرفت من اضافة صورة

هذا المرفق للصور

هذا المرفق

شوف جرب هذ الاستعلام على القاعدة
وانت بتعرف ماذا اريد
كود :
SELECT A.Class_No, A.Class_Name, Aviatrix_Seats.Seat_Count AS Seat_Count

FROM Classes AS A , (Select Class_No,Seat_Count From Aviatrix_Seats  where Type_No='1' )  
WHERE A.Class_No= [Aviatrix_Seats].[Class_No] AND A.[Active]=False
ORDER BY A.Class_No;
 
و عند تعديل القيمة لنوع الكلاس

كود :
SELECT A.Class_No, A.Class_Name, Aviatrix_Seats.Seat_Count AS Seat_Count

FROM Classes AS A , (Select Class_No,Seat_Count From Aviatrix_Seats  where Type_No=' ' )  
WHERE A.Class_No= [Aviatrix_Seats].[Class_No] AND A.[Active]=False
ORDER BY A.Class_No;

هذا هو التعديل او الفرق عند ارسال قيمة فارقة اريدة ان يعرض لي اسماء الكلاسات و ارقامها لكن عدد المقاعد تضهر لي الخلية فارغة فقط
يعني الاستعلام الفرعي فقط الذي يتأثر اما الجزء الاول من الاستعلام لا يتغير و لا يتأثر


الملفات المرفقة
.rar   مع القاعدة.rar (الحجم : 308.13 ك ب / التحميلات : 5)
الرد }}}
تم الشكر بواسطة:
#4
لم اجد قاعدة البيانات في الملف المرفق

من خلال الصور لا يتبغي وجود العمود Class_Name في الجدول Aviatrix_Seats لانه موجود في الجدول Classes

عذرا في مشاركتي السابقة نسيت اضافة Type_No=code وهذا هو التعديل

سيعمل هذا التعديل في حال حذف العمود Class_Name من الجدول Aviatrix_Seats والا اضيفي .A قبل اسمه في الاستعلام
كود :
Select A.Class_No,Class_Name,Seat_Count
From Classes A Left Join Aviatrix_Seats B On (A.Class_No=B.Class_No And Type_No= code)
where Active=0
Order By A.Class_No

يبدو انك غيرت المرفقات

عموما

هل تريد النتيجة المطلوبة هكذا
كود :
Class_No    Class_Name    Seat_Count
3            C            30

أم هكذا مع code=3 (وهي النتيجة المتوقعة من استعلام الاوراكل الاول بسبب (+) )
كود :
Class_No    Class_Name    Seat_Count
1            A    
2            B    
3            C            30
4            D

اطلبي من زميلتك تصوير شاشة ننتجة استعلام اوراكل وارفقيها
الرد }}}
تم الشكر بواسطة: غدير الصليحي
#5
نعم غيرت المرفقات 
في المرفق الاخير فية القاعدة
الكود  فية احتمالين
الاحتمال الاول
عندما يكون Type_No =1 له قيمة حقيقية في الجداول و تكون الشروط صحيح
كود :
Class_No    Class_Name    Seat_Count
3            C            30
الحالة الثانية
عندما يكون Type_No =" " له قيمة فارعة

كود :
Class_No    Class_Name    Seat_Count
             C            30
يكون بهذا الشكل

اعتقد انه المطلووووووووب اخي E100
جاري التجريب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit

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


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