الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إستعلام بالفيجوال بيسك

مغلق
بدأه Logic#7 في 29 أغسطس 2004 · 3 رد · 685 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

يا جماعة ساعدوني..

لو عندي أي إستعلام فيه Aggregate function زي ده مثلا:

ٍSQL = "SELECT AVG(Maths) From Table"

فلو عايز أظهره بالداتا كونترول مش هينفع لأنه بيطلع قيمة واحدة بس وبيطلع رسالة خطأ.. فأنا عايز أظهره بال msgbox..

حد يعرف يدلني ؟؟

طب لو زاد الإستعلام و بقى:

ٍSQL = "SELECT AVG(Maths) From Table WHERE Maths > 45"

هل في طريقة تظهر النتيجة مرة واحدة وللا هنضطر نظهر نظهر كل اللي أكبر من 45 وبعدين نجيب المتوسط؟؟؟؟

ويا ريت يا جماعة لو حد له رأي غير رأيي يقوللي عليه عشان الواحد برده يحب يعرف لو في طريقة تانية أحسن يستخدمها

#2

السلام عليكم

أخي العزيز Logic#7 يمكنك بناء الاستعلام وتنفيذه دفعه واحد كما كتب انت سابقا فهي طريقة صحيحة من ناحية إظهار المتوسط لكافة الدرجات أكبر 45

ولكن لي بعض التعديل البسيط في حال أردت إضهار النتيجة في MsgBox :

SQL = "SELECT AVG(Maths) as MD From Table WHERE Maths > 45"

لاظهار النتيجة في صندوق رسالة

SQL = "SELECT AVG(Maths) as MD From Table WHERE Maths > 45"
Set Rec = Db.OpenRecordSet (Sql)

Msgbox Rec!MD

حيث أن DB تعرف علي انها قاعدة بيانات في قسم التعريفات Declaration

وRec معرف RecordSet

تحياتي لك

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#3

ما شاء الله والله أنشط شخص في هذا المنتدى أنت تستحق فعلا أن تكون المشرف على هذا القسم..

أهنئك تهنئة من القلب لحصولك على هذا اللقب..

#4

شكرا لك اخي الكريم

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

هذا الموضوع مغلق.

مواضيع مشابهة