بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
كيف الحال أخواني
إن شاء الله بخير ؟
ما اطول عليكم بقيت أسأل عن طريقة عمل احصائيات بسيطه للطلبات الموجوده في قاعدة البيانات
مثلاًَ
عدد طلبات اليوم :- هذي اعرفها
عدد طلبات الأمس :-
عدد طلبات الأسبوع :-
عدد طلبات الشهر :-
والله ولي التوفيق
السلام عليكم ورحمة الله وبركاته
كود :
Dim Sql As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OrderToday As Date = Now.ToShortDateString
Sql = "Select * form [YourTable] Where OrderDate =#" & OrderToday & "#"
MsgBox(Sql)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim OrderYesterday As Date = Now.AddDays(-1).ToShortDateString
Sql = "Select * form [YourTable] Where OrderDate =#" & OrderYesterday & "#"
MsgBox(Sql)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim dateToday As Date = Now.ToShortDateString
Dim OrderWeek As Date = Now.AddDays(-7).ToShortDateString
Sql = "Select * form [YourTable] Where OrderDate >=" & dateToday & "# And OrderDate <=#" & OrderWeek & "#" ' لمعرفة الطلبات المخزنة بين التاريخين
MsgBox(Sql)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim dateToday As Date = Now.ToShortDateString
Dim OrderMonth As Date = Now.AddDays(-30).ToShortDateString
Sql = "Select * form [YourTable] Where OrderDate >=" & dateToday & "# And OrderDate <=#" & OrderMonth & "#" ' لمعرفة الطلبات المخزنة بين التاريخين
MsgBox(Sql)
End Sub
هل هذا الكود هو المطلوب :confused:
****
***
**
*
ان شاء الله بجربه و برد لك خبر
يعطيك الف عافيه مقدماًَ