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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد كود نفس هذا الكود للاكسس (/showthread.php?tid=40124)

اريد كود نفس هذا الكود للاكسس - غدير الصليحي - 28-11-21

هذا كود استعلام من اوراكل اريد مثالة بأكسس
كود :
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
مع الملاحظة ما معنا هذه العلامة في اوراكل (+) و هل لها مثيل في اكسس

RE: اريد كود نفس هذا الكود للاكسس - E100 - 28-11-21

بشكل عام (+) تعني ربط 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


RE: اريد كود نفس هذا الكود للاكسس - غدير الصليحي - 28-11-21

(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;

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

RE: اريد كود نفس هذا الكود للاكسس - E100 - 28-11-21

لم اجد قاعدة البيانات في الملف المرفق

من خلال الصور لا يتبغي وجود العمود 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
اطلبي من زميلتك تصوير شاشة ننتجة استعلام اوراكل وارفقيها

RE: اريد كود نفس هذا الكود للاكسس - غدير الصليحي - 28-11-21

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

كود :
Class_No    Class_Name    Seat_Count
             C            30
يكون بهذا الشكل
اعتقد انه المطلووووووووب اخي E100
جاري التجريب