[محمد اسماعيل]

السلام عليكم ورحمة الله وبركاتة 


عندي جدول في اصناف للادوية  وفية الورد حسب اليوم - والمنصرف حسب اليوم - اريد تجميع الفترة بين تاريخين - لاجمالي الوارد - والمنصرف - والفرق بين الوارد والمنصرف المتبقي 

هل يمكن عمل استعلام تجميعي لشهر والاسبوع الاول والثاني والثالث والرابع بنفس الشهر يظهر مجموع الكميات المنصرفة لهم 

قاعدةالبيانات اكسيس لغة البرمجة فيجول بيسك دوت نت

دة اسم الجدول MEDICALCOME_TB

ودية الاعمدة 


MEDICALCOME_CODE    كود الصنف
MEDICALCOME_SERIAL   سريال الشركة
MEDICALCOME_NAME   اسم الصنف
MEDICALCOME_COM    كمية واردة
MEDICALCOME_LEAVE    كمية منصرف
MEDICALCOME_DATE   تاريخ
MEDICALCOME_CHECK  فحص قيمة منطقية لاستخدامة بالحذف والارشفة 

دية الطريقة الي استخدمتها للبحث بين اتنين من اداة الوقت ولايظهر شيء عند البحث 

كود :

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)

[اسامه الهرماوي]

وعليكم السلام...
نفترض إني عايز أبحث عن "صنف" بين تاريخين + يظهرلي ناتج عمود "إجمالي البيع" أعمل اه؟؟

شوف الكود دا كدا وخاصة الجزء اللي بين Try ودا المسؤل عن الجمع بإستخدام Sum في جملة الإستعلام.

الكود:

كود :

  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)

ودمتم بخير.