تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الحل ؟؟؟
#1
السلام  عليكم ورحمه الله وبركاته

ارجو الحل  


الداتا  جريد ما بتعرض محتويات الريبورت

والريبورت ما بعمل فلتر بين تاريخين

   

PHP كود :
   Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click

     
        Dim rep 
As New count
      rep
.SetDataSource(dt)

 
      

        Dim q 
As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1)")
 
       rep.SetParameterValue("m1"q)

 
       Dim w As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1)")
 
       rep.SetParameterValue("g1"w)

 
       Dim t As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 1 AND 4)")
 
       rep.SetParameterValue("m2"t)

 
       Dim r As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 1 AND 4)")
 
       rep.SetParameterValue("g2"r)

 
       Dim u As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 5 AND 9)")
 
       rep.SetParameterValue("m3"u)

 
   Dim n As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 5 AND 9)")
 
       rep.SetParameterValue("g3"n)

 
       Dim i As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 10 AND 14)")
 
       rep.SetParameterValue("m4"i)

 
       Dim a As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 10 AND 14)")
 
       rep.SetParameterValue("g4"a)

 
       Dim s As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 15 AND 19)")
 
       rep.SetParameterValue("m5"s)

 
       Dim d As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 15 AND 19)")
 
       rep.SetParameterValue("g5"d)

 
       Dim b As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] >20)")
 
       rep.SetParameterValue("m6"b)

 
       Dim f As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] >20)")
 
       rep.SetParameterValue("g6"f)


 
       Dim z As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='كلب') ")
 
       rep.SetParameterValue("dog"z)
 
       Dim x As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='جرذ') ")
 
       rep.SetParameterValue("rat"x)
 
       Dim c As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='حمار')")
 
       rep.SetParameterValue("donky"c)
 
       Dim m As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='ماعز')")
 
       rep.SetParameterValue("goat"m)
 
       Dim y As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='قط')")
 
       rep.SetParameterValue("cat"y)
 
       Dim ee As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='اخرى') ")
 
       rep.SetParameterValue("ather"ee)



 
       Dim eqe As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([state] ='معروف') ")
 
       rep.SetParameterValue("know"eqe)
 
       Dim yw As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الراس') ")
 
       rep.SetParameterValue("head"yw)
 
       Dim yew As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الجذع') ")
 
       rep.SetParameterValue("j"yew)
 
       Dim yuw As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='ساق') ")
 
       rep.SetParameterValue("leg"yuw)
 
       Dim yyw As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='القدم') ")
 
       rep.SetParameterValue("foot"yyw)
 
       Dim ysw As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اليد') ")
 
       rep.SetParameterValue("hand"ysw)
 
       Dim ynw As String SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اصبع اليد') ")
 
       rep.SetParameterValue("finger"ynw)

 
       rep.SetParameterValue("start_date"Me.DateTimePicker1.Value.Date)
 
       rep.SetParameterValue("end_date"Me.DateTimePicker2.Value.Date)
 
    
        CrystalReportViewer1
.ReportSource rep
        CrystalReportViewer1
.Refresh()

 
   End Sub 
الرد }}}
تم الشكر بواسطة:
#2
طيب ننسى قصة انه يعرض ع الداتا جريد



خلونا يعرض بس ع الريبورت خلال فترتين
الرد }}}
تم الشكر بواسطة:
#3
رررررررررررررررررررررررررررررفع
الرد }}}
تم الشكر بواسطة:
#4
هذا الرابط سيفيد في توضيح مسألة البحث بين قيمتين سواء كانت رقمين أو نصين أو تاريخين
SQL BETWEEN Operator
الرد }}}
تم الشكر بواسطة:
#5
الكود غير واضح ويبدو ان هناك اجراء ناقص اسمه SqlScalar
الرد }}}
تم الشكر بواسطة:
#6
(06-05-17, 08:48 PM)mansoor كتب : هذا الرابط سيفيد في توضيح مسألة البحث بين قيمتين سواء كانت رقمين أو نصين أو تاريخين
SQL BETWEEN Operator
ما بزبط بحالة البراميتر

(06-05-17, 11:31 PM)mansoor كتب : الكود غير واضح ويبدو ان هناك اجراء ناقص اسمه SqlScalar


ممكن توضح اكثر ؟
الرد }}}
تم الشكر بواسطة:
#7
الكود الموجود في الموضوع ناقص.
الرد }}}
تم الشكر بواسطة:
#8
Smile

ايش ناقص ؟
الرد }}}
تم الشكر بواسطة:
#9
شوف المسج

بعدد  البراميتر اعط المسج

   
الرد }}}
تم الشكر بواسطة:
#10
انا وضعت اسم عمود تاريخ من عندي على سبيل المثال، فهل اسم العمود هو cdate فعلا؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 280 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  ارجو ان لا تبخلو علينا با الحل ahmedbezia 3 466 06-12-22, 01:29 PM
آخر رد: ahmedbezia
  [سؤال] [تم الحل] انشاء المسارات وتمرير البارامترات لها وقت التشغيل سعود 7 1,220 03-09-22, 09:44 AM
آخر رد: Taha Okla
  مشكلة واجهتني كتير وزهقت منها فاللي عنده الحل ياريت يفيدني بيه ميدو الفنان 7 1,023 03-09-22, 03:33 AM
آخر رد: ميدو الفنان
  [سؤال] * تم الحل * التحكم بمخرجات السريال بورت واعادة تحويلها mohamedallams 1 431 30-08-22, 06:42 PM
آخر رد: mohamedallams
  [سؤال] * [تم الحل] * المحاولة الثانية و اللتي باءت بالفشل حول تقسيم ملف بشكل دقيق سعود 8 1,031 27-08-22, 07:41 AM
آخر رد: سعود
  ما هو الحل لهذه المشكلة جيولوجي مبتدئ 7 1,131 17-05-22, 09:22 AM
آخر رد: جيولوجي مبتدئ
  [سؤال] التحديث من خلال الـ DropBox متوقف ما الحل؟ abomo3ath 1 758 06-05-22, 09:11 PM
آخر رد: سعود
  البار كود المنتج لا يقراء من جهاز الباركود [تم الحل] Rabeea Qbaha 4 7,994 01-11-21, 12:48 AM
آخر رد: أشرف كريم 2

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


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