تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استعلام تجميعي للاصناف خلال مدة معينة
#1
السلام عليكم ورحمة الله وبركاتة 


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

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

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

دة اسم الجدول 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)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام...
نفترض إني عايز أبحث عن "صنف" بين تاريخين + يظهرلي ناتج عمود "إجمالي البيع" أعمل اه؟؟

شوف الكود دا كدا وخاصة الجزء اللي بين 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)
ودمتم بخير.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الرجوع للفورم الرئيسيةعند عدم تحريك الماوس لمدة معينة جيولوجي مبتدئ 7 318 25-07-21, 07:33 PM
آخر رد: ابراهيم ايبو
  EmpDataGridView طباعة أعمدة معينة رامى محمد 0 156 01-06-21, 05:30 PM
آخر رد: رامى محمد
  مشكلة في استعلام عن سجل موجود والتعديل عليه عبدالكريم برشدان 8 519 01-06-21, 05:19 AM
آخر رد: عبدالكريم برشدان
  [VB.NET] استعلام متقدم لعرض البيانات بالداتاجريد فيو محمد اسماعيل 4 486 27-04-21, 04:26 PM
آخر رد: messry
  استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين العيدروس 12 698 24-04-21, 05:37 AM
آخر رد: messry
  [VB.NET] طريقة عمل حركة جميع الاصناف خلال فترة زمنية هاني المومني 1 369 24-04-21, 01:40 AM
آخر رد: ابو انس
  [vb6.0] كود اذا لم يقم بتسجيل الدخول خلال 3 دقائق فانه سيتم الخروج من البرنامج بشكل تلقائي Rasha Hasanain 1 454 18-04-21, 04:31 PM
آخر رد: messry
  استعلام محيرنى هل من مجيب Bibo2030 1 294 16-03-21, 03:21 AM
آخر رد: Bibo2030
  استعلام لجلب الصفوف الفارغة العيدروس 3 353 25-02-21, 02:00 AM
آخر رد: ابراهيم ايبو
  حساب الفرق بين وقتين من خلال الداتا قريد aftfm 6 676 20-02-21, 04:50 PM
آخر رد: أبو عبدالله الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم