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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كود سيكوال محيرني (/showthread.php?tid=8723)

كود سيكوال محيرني - Ahmed Abdulla - 30-04-13

السلام عليكم

أخواني الكرام استخدمت هذا الكود لجمع كمية كل صنف علي حده في الجدول T واظهارالناتج في الفليكس جريد

SQLs = "SELECT ItemName, Sum(ITVNo) FROM T GROUP BY ItemName"

والمطلوب جمع كل صنف علي حده في الجدولين T و T1 واظهار الناتج في الفليكس جريد أيضا كما هو موضح في الشكل المرفق (Sum)

المثال مرفق أرجو التعديل عليه ولكم مني جزيل الشكر

كود سيكوال محيرني - Ahmed Abdulla - 01-05-13

هل من مجيب

كود سيكوال محيرني - benomar - 02-05-13

محاولة

أرجو أن يكون هذا مبتغاك

كود سيكوال محيرني - Ahmed Abdulla - 02-05-13

أخي الكريم مشكور لاهتمامك ولكن المطلوب جمع كل صنف علي حده في الجدولين انظر الي الملف المرفق (Sum) هو النتيجة المراد الوصول اليها

لاحظ أخي عند فتح البرنامج تظهر جميع الأصناف الموجودة في جدول T في الفليكس جريد وعند الضغط علي زر مجموع يجمع كل صنف علي حده مع عدم تكرار الصنف والمطلوب تطبيق ذلك أيضا علي جدول T1 واظهار النواتج في الفليكس جريد (انظر المرفق Sum فهو يوضح النتيجة المطلوبة ) ولك مني جزيل الشكر

كود سيكوال محيرني - Ahmed Abdulla - 13-05-13

هل من مجيب

كود سيكوال محيرني - ناجي إبراهيم - 14-05-13

السلام عليكم...

عدل كود الزر ليصبح كما يلي (التعديل بالأساس على جملة SQL):
كود :
Private Sub Command1_Click()
    SQLs = "SELECT ItemNames.ItemName, " _
         & "IIf(IsNull(VirtualT.TSum), 0, VirtualT.TSum) AS TSum, " _
         & "IIf(IsNull(VirtualT1.T1Sum), 0, VirtualT1.T1Sum) AS T1Sum " _
         & "FROM ((SELECT DISTINCT T.ItemName FROM T UNION SELECT DISTINCT T1.ItemName FROM T1) AS ItemNames " _
         & "LEFT OUTER JOIN (SELECT T.ItemName, SUM(T.ITVNo) AS TSum FROM T GROUP BY T.ItemName) AS VirtualT " _
         & "ON VirtualT.ItemName = ItemNames.ItemName) " _
         & "LEFT OUTER JOIN (SELECT T1.ItemName, SUM(T1.ITVNo) AS T1Sum FROM T1 GROUP BY T1.ItemName) AS VirtualT1 " _
         & "ON VirtualT1.ItemName = ItemNames.ItemName " _
         & "ORDER BY ItemNames.ItemName"

    If Con.State = 1 Then Con.Close
    Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\dbo.accdb"

    If RSS.State = 1 Then RSS.Close
    RSS.Open SQLs, Con, adOpenKeyset, adLockOptimistic, adCmdText
    Set MSHFlexGrid1.DataSource = RSS
End Sub

* لاحظ أننا استعملنا جداول وهمية: ItemNames و VirtualT و VirtualT1 (مؤقتة في الذاكرة ضمن جملة الـ SQL) لتجميع البيانات بهذا الشكل.

نرجو الاستفادة و السلام.

كود سيكوال محيرني - Ahmed Abdulla - 14-05-13

فعلا هو المطلوب جزاك الله كل خير أخي الكريم وربنا يجعله في ميزان حسناتك ولك مني جزيل الشكر

RE: كود سيكوال محيرني - tighrmte - 25-11-15

هل بامكاني اضافة حقل اخر قرب ite;nq;e
SQLs = "SELECT ItemName, Sum(ITVNo) FROM T GROUP BY ItemName