[VB.NET] استعلام تجميعي للاصناف خلال مدة معينة

كود :

Dim A = Format(DATETIM_START.Value, "yyyy/dd/MM")

          

      Dim B = Format(DATETIM_END.Value, "yyyy/dd/MM")



                Dim DataAdapter As New OleDbDataAdapter("Select  MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL, Sum(MEDICALCOME_TB.MEDICALCOME_COM) As SumOfMEDICALCOME_COM, Sum(MEDICALCOME_TB.MEDICALCOME_LEAVE) As SumOfMEDICALCOME_LEAVE

From MEDICALCOME_TB

Where (((MEDICALCOME_TB.MEDICALCOME_CHECK) = True) And ((MEDICALCOME_TB.MEDICALCOME_DATE)between #" & B & "# And #" & A & "#))

Group By MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL ;", con)

كود :

  Dim da As New OleDbDataAdapter

        Dim dt As New DataTable



        If con.State = ConnectionState.Closed Then

            con.Open()

        End If



        'هنا عملت البحث بين تاريخين الأول والتاني



        Dim Query As String = "Select Sum(إجمالي_البيع) From الجدول Where 1=1"



        Query = Query & " AND حقل_التاريخ >= #" & DateTimePicker1.Value.ToString("yyyy/MM/dd") & "#"



        Query = Query & " AND حقل_التاريخ <= #" & DateTimePicker2.Value.ToString("yyyy/MM/dd") & "#"



        'هنا بحثت عن صنف محدد بين التاريخين اللي فاتو

        Query = Query & " AND حقل_الصنف  Like '%" & Trim$(TextBox1.Text) & "%'"



        'ملحوظة السطر اللي فوق علطول ممكن أكرره وأستخدمه مع أكثر من حقل حسب الإحتياج



        Dim cmd As New OleDbCommand(Query, con)

        da = New OleDbDataAdapter(cmd)

        dt.Clear()

        da.Fill(dt)





        'الجزء المسؤل عن جمع العمود المحدد اللي هو إجمالي_البيع

        Dim RecordCount As Double

        Try



            RecordCount = cmd.ExecuteScalar

            con.Close()



        Catch ex As Exception

            RecordCount = 0

        End Try



        'الناتج هيطلع هنا

        MsgBox(RecordCount)