abuzzouz كتب :أخي حريف برمجة .. لدي سؤالين لو تكرمت:
- كيف يمكن تغيير عنوان العمود مثلاً من "TotalSubject" إلى "Total Subject" حيث أن العنوان لايقبل كلمات منفصلة
- كيف يمكن إظهار عمود يحتوي عدد المواضيع المقبولة "yes" فقط لكل اسم
عذرا لكثرة الأسئلة لكن عشمي فيك وبأمثالك كبير
المرفق بعد التعديل
تقبل تحياتي أخي العزيز مع الشكر الجزيل
abuzzouz كتب :الله يزيدك من نعيمه أخي حريف برمجة
إلا أنه للأسف النتائج التي تظهر في العمود "Total Subject" هي نفسها في العمود "Result" والصحيح أن يظهر في العمود الأول العدد الإجمالي للمواضيع بحسب الإسم
أما في الثاني فيظهر عدد المواضيع التي يقابلها 'yes' اي الموافق عليها فقط بحيث أن الإسم الذي ليس لديه موافقة تكون النتيجة 0
فأرجو منك أن تكمل معروفك أخي العزيز
تقبل تحياتي
اللي باللون الأحمر كلامك وبصراحه احسه متناقض مع بعض ،،،،
فوق تقول فقط يعرض عدد المواضيع اللي تحمل كلمة "yes" ،،،،،، واسفل تقول بحيث ان الأسم الذي ليس لديه موافقة تكون النتيجة 0
17-07-13, 04:49 AM (آخر تعديل لهذه المشاركة : 17-07-13, 04:59 AM {2} بواسطة Medhat48.)
أخي العزيز لا يوجد تناقض حيث أن كل اسم لديه مواضيع ومن هذه المواضيع ما هو موافق عليه، أريد أن يظهر بجانب كل اسم اجمالي مواضيعه في عمود واجمالي الموافق عليه في عمود آخر
مثلاً أحمد لديه 4 مواضيع منها 2 موافق عليها وهكذا ..
كذلك هل يمكن وضع معادلة في الصيغة SQLStr (مثلاً لكل موضوعين نقطة كل ثلاثة نقطتين ..)
وشكرا جزيلا على سعة صدرك وتفهمك
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
20-07-13, 02:11 AM (آخر تعديل لهذه المشاركة : 20-07-13, 02:26 AM {2} بواسطة Medhat48.)
في حال كان لدى الشخص
عدد 1 موضوع يحصل على 1 نقطة
عدد 2 موضوع يحصل على 2 نقطة
عدد 3 موضوع يحصل على 3 نقطة
عدد 4 موضوع يحصل على 5 نقطة
عدد 5 موضوع يحصل على 8 نقطة
أي ليس لكل موضوع نقطة واحدة حيث يتعلق الأمر أيضاً بعدد المواضيع الموافق عليها
أرجو أن أكون قد أوصلت الفكرة، وبالمناسبة اجريت تصحيح على المرفق السابق
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
مرحبا أخي اكتب الكود التالي في زر عرض البيانات في القريد :
كود :
Dim cmd As New OleDbCommand("CREATE VIEW Poin AS SELECT MyTable.name, Count(MyTable.Result) AS [Total Approval], Switch([Total Approval]=1,1, [Total Approval]=2,2, [Total Approval]=3,3, [Total Approval]=4,5, [Total Approval]=5,8) AS Points FROM MyTable WHERE (((MyTable.Result)='yes')) GROUP BY MyTable.name", Conn)
Conn.Open()
cmd.ExecuteNonQuery()
Conn.Close()
'''''''''''''''''''''''''''''''''''''
Dim dp As New OleDbDataAdapter("SELECT MyTable.name, Count(MyTable.subject) AS [Total Subject], Poin.[Total Approval], Poin.Points FROM MyTable INNER JOIN Poin ON MyTable.name = Poin.name GROUP BY MyTable.name, Poin.[Total Approval], Poin.Points", Conn)
Dim ds As New DataSet
dp.Fill(ds)
DGV_StatisticsN.DataSource = ds.Tables(0)
'''''''''''''''''''''''''''''''''''''
cmd.CommandText = "drop VIEW Poin"
Conn.Open()
cmd.ExecuteNonQuery()
Conn.Close()
