+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : البحث حسب شهر معين باستخدام query builder (/showthread.php?tid=4817)
البحث حسب شهر معين باستخدام query builder - RaggiTech - 02-10-12
كاتب الموضوع : محمد عمر مصطفى
الاخوة الاعزاء
قد تحتاج الى البحث حسب الشهر فقط غي قاعده بيانات و باستخدام query builder
لنفرض ان اسم حقل التاريخ في قاعد البيانات هو date_u واسم الجدول المراد البحث به هو up_down
و العدد الذي نريد جمعه في حقل TOTAL
اكتب الكود التالي في الاستعلام
كود :
SELECT sum(total) AS Expr1
FROM up_dowan
WHERE (Format(date_u, 'mm') = ?)والان في شاشة البرنامج الذي تود وضع الاستعلام به
نكتب ما يلي
مع ملاحظة ان
Up_dowanTableAdapter = اسم tabeladapter الذي انشأ به الاستعلام
getupa1new = اسم الاستعلام
isdbnull = حتى لا يحدث ايقاف للبرنامج اذا كانت القيمة المرجعه null
كود :
Dim dat As Date = DateTimeInput2.Value.ToShortDateString
datt = Format(dat.Month, "00")
If IsDBNull(Me.Up_dowanTableAdapter.getupa1new(datt)) = False Then
getupa1 = Me.Up_dowanTableAdapter.getupa1new(datt)
Else
getupa1 = 0
End If