لدي صندوقان DTPicker1,DTPicker2
وتقرير باسم DataReport1
اسم قاعدة البيانات db1
اسم الجدول : sales
الحقول :
company_name
date
أريد أن استخرج المبيعات الخاصة بشركة محددة من جدول sales خلال الفترة المحددة في الصندوقين DTPicker1,DTPicker2
وأن أعرضها على التقرير DataReport1
فماهي الطريقة للقيام بذلك ؟
ضيفي DataEnvironment ومن خلالها عرفي connection و command واجعلي نوعع text ليتسنى لكي كتابة sql للبحث
وبعد ذلك اسحبي الحقول من ال command وضعيهم في ال Datareport وسوف يتم اضافتهم عليه
اثناء وقت التشغيل للبرنامجك اكتبي الشرط الذي تردين في ال command ومن ثم اعرضي التقرير، سوف يتم عرضه حسب البيانات التي تم تحديدها في ال command
هذه هي الفكرة الاساسية، قد يكون هناك بعض الاختلاف، لاني لم اعمل عليه منذ فترة طويلة
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
السلام عليكم
اليك الكود مشروحا وارجو ان اكون وفقت فى توصيل المعلومة
' متغيرين يحملان التاريخ Dim Date1 As String Dim Date1 As String ' متغير يحمل اسم الشركة المختارة Dim CompName As String ' تحويل التاريخ الى متغير نصى على تنسيق مثل 4/23/2005 Date1 = Format(DTPicker1.Value, "mm/dd/yyyy") date2 = Format(DTPicker2.Value, "mm/dd/yyyy") ' **** CompName= Selected Name from Another Proceadure ' جملة الاستفسار تكون كالتالى sql = "SELECT * FROM sales WHER company_name = '" + CompName + "' AND date BETWEEN #" + Date1 + "# AND #" + date2 + "#"
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
أعتقد أن هناك مشكلة في عرض البيانات الصحيحة في التقرير عند إستخدام DataEnvironment1 ومن ثم تغيير الاستفسار
لحل هذه المشكلة نجعل التقرير يعتمد على RS لعرض البيانات بدلا من DataEnvironment1
مرفق المثال بعد التعديل
لا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
أخي الشرط موجود
Set rs = DataEnvironment1.Connections(1).Execute("select * from sales " _
& " where [date] between #" & DTPicker1.Value _
& "# and #" & DTPicker2.Value & "#")
Set DataReport1.DataSource = rs
DataReport1.Show 1
DataEnvironment1.Connections(1).Closeلا تحزن:
إن كنت فقيرا فغيرك محبوس في دين، وإن كنت لا تملك وسيلة نقل فسواك مبتور القدمين، وان كنت تشكوا من آلام فغيرك يرقدون على الاسرة البيضاء و من سنوات، وان فقدت ولدا فغيرك فقد عددا من الأولاد و في حادث واحد.
لا تحزن:
فأنت تشرب الماء الزلال، و تستنشق الهواء الطلق، و تمشي على قدميك معافى، و تنام ليلك آمنا.
محمد نسمان كتب:أعتقد أن هناك مشكلة في عرض البيانات الصحيحة في التقرير عند إستخدام DataEnvironment1 ومن ثم تغيير الاستفسارلحل هذه المشكلة نجعل التقرير يعتمد على RS لعرض البيانات بدلا من DataEnvironment1
مرفق المثال بعد التعديل
ألف ألف شكر ..
هو ما أردت بالضبط .. شكراً على المثال المبسط
الله يوفقك دنيا وآخرة (h)
امممممم
معليش .. ماذا لو أردت من الاستفسار أن يحقق شرط إضافي أي البحث عن مبيعات شركة معينة بين تاريخين ؟
يعني أن يعتمد على حقلي company_name و date ؟
تحياتي المفعمة بالشكر والامتنان .. :rolleyes:
أفادني الأستاذ محمد نسمان بهذه الإجابة
Set rs = DataEnvironment1.Connections(1).Execute("select * from sales " _
& " where [date] between #" & DTPicker1.Value _
& "# and #" & DTPicker2.Value & "#" _
& " and company_name = '" & Combo1.Text + "'")والتي فادتني بالفعل في فلترة مبيعات شركة محددة
ولكن واجهتني مشكلة حساب مجموع المبيعات في الداتا ريبورت ؟
كيف يمكن أن أحسب مجموع مبيعات شركة ما في التقرير ؟
كيف يمكن أن أحسب مجموع مبيعات شركة ما في التقرير ؟
هل من الممكلن ذلك بواسطة DataReport أم بحيلة برمجية ؟
أرجو ممن لدية أيه معلومة حول ذلك أن يفيدني
هذا الموضوع مغلق.