تقييم الموضوع :
  • 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)
ودمتم بخير.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد عمل استعلام على الوقت الاقل كما بالصورة new_programer 5 175 27-11-21, 01:52 AM
آخر رد: new_programer
  [نقاش] ارسال رسائل whatsapp من خلال ال vb.net mohamed haroon 5 2,682 21-11-21, 05:46 PM
آخر رد: mona82
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 11 769 14-11-21, 03:47 PM
آخر رد: kebboud
  صيغة معينة في textbox محمود صالح 3 153 06-11-21, 01:04 PM
آخر رد: mrfenix93
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 1 277 23-10-21, 01:35 AM
آخر رد: بسام محمدغانم
  الرجوع للفورم الرئيسيةعند عدم تحريك الماوس لمدة معينة جيولوجي مبتدئ 7 647 25-07-21, 07:33 PM
آخر رد: ابراهيم ايبو
  EmpDataGridView طباعة أعمدة معينة رامى محمد 0 314 01-06-21, 05:30 PM
آخر رد: رامى محمد
  مشكلة في استعلام عن سجل موجود والتعديل عليه عبدالكريم برشدان 8 896 01-06-21, 05:19 AM
آخر رد: عبدالكريم برشدان
  [VB.NET] استعلام متقدم لعرض البيانات بالداتاجريد فيو محمد اسماعيل 4 706 27-04-21, 04:26 PM
آخر رد: messry
  استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين العيدروس 12 1,158 24-04-21, 05:37 AM
آخر رد: messry

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


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