+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما الحل ؟؟؟ (/showthread.php?tid=20247)
الصفحات:
1
2
RE: ما الحل ؟؟؟ - alma_fandi - 07-05-17
عدلت حقل التاريخ ع الكود
cdate = [Birthday]
PHP كود :
Dim q As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1)" & "AND [Birthday] BETWEEN '" & Me.DateTimePicker1.Value.Date & "' AND '" & Me.DateTimePicker2.Value.Date & "' ")
[attachment=14156]
RE: ما الحل ؟؟؟ - mansoor - 07-05-17
اتضح انك تستخدم أكسس وليس سيكويل
جرب هذا التعديل
PHP كود :
Function SqlScalar(sql As String) As Integer
Try
Using cmd As New OleDbCommand(sql, Con)
cmd.Parameters.AddWithValue("@d1", Me.DateTimePicker1.Value.Date)
cmd.Parameters.AddWithValue("@d2", Me.DateTimePicker2.Value.Date)
If Con.State <> ConnectionState.Open Then Con.Open()
Dim c As Integer = cmd.ExecuteScalar
Con.Close()
Return c
End Using
Catch ex As Exception
MsgBox(ex.Message)
Return 0
End Try
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim rep As New count
rep.SetDataSource(dt)
Dim q As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m1", q)
Dim w As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g1", w)
Dim t As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m2", t)
Dim r As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g2", r)
Dim u As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m3", u)
Dim n As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g3", n)
Dim i As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m4", i)
Dim a As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g4", a)
Dim s As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 15 AND 19) AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m5", s)
Dim d As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 15 AND 19) AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g5", d)
Dim b As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] >20) AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m6", b)
Dim f As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] >20) AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g6", f)
Dim z As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='كلب') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("dog", z)
Dim x As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='جرذ') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("rat", x)
Dim c As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='حمار') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("donky", c)
Dim m As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='ماعز') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("goat", m)
Dim y As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='قط') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("cat", y)
Dim ee As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='اخرى') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("ather", ee)
Dim eqe As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([state] ='معروف') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("know", eqe)
Dim yw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الراس') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("head", yw)
Dim yew As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الجذع') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("j", yew)
Dim yuw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='ساق') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("leg", yuw)
Dim yyw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='القدم') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("foot", yyw)
Dim ysw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اليد') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("hand", ysw)
Dim ynw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اصبع اليد') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
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
RE: ما الحل ؟؟؟ - alma_fandi - 07-05-17
اعطي ريبورت قيم فارغه
[attachment=14158]
RE: ما الحل ؟؟؟ - mansoor - 07-05-17
تأكد من وجود بيانات بين التاريخين مع شرط الجنس والعمر كما فهمته من الكود
RE: ما الحل ؟؟؟ - alma_fandi - 07-05-17
كل الداتا الى عندي بين شهر 3 وشهر 5
بس قيمتين بشهر 2
[attachment=14162]
RE: ما الحل ؟؟؟ - alma_fandi - 08-05-17
توصلت للحل
الكود صح لكن لا يوجد علاقة بين العمر ومعضم الحقول AND ([age] <1) فعليا بقاعده البيانات لا يوجد احد اقل من 1
PHP كود :
Dim d As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 15 AND 19) AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g5", d)
اشكرك التعديل
PHP كود :
Function SqlScalar(sql As String) As Integer
Try
Using cmd As New OleDbCommand(sql, Con)
cmd.Parameters.AddWithValue("@d1", Me.DateTimePicker1.Value.Date)
cmd.Parameters.AddWithValue("@d2", Me.DateTimePicker2.Value.Date)
If Con.State <> ConnectionState.Open Then Con.Open()
Dim c As Integer = cmd.ExecuteScalar
Con.Close()
Return c
End Using
Catch ex As Exception
MsgBox(ex.Message)
Return 0
End Try
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim rep As New count
rep.SetDataSource(dt)
Dim q As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m1", q)
Dim w As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] <1) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g1", w)
Dim t As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 1 AND 4) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m2", t)
Dim r As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 1 AND 4) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g2", r)
Dim u As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 5 AND 9) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m3", u)
Dim n As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 5 AND 9) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g3", n)
Dim i As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 10 AND 14) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m4", i)
Dim a As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 10 AND 14) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g4", a)
Dim s As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] BETWEEN 15 AND 19) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m5", s)
Dim d As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] BETWEEN 15 AND 19) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g5", d)
Dim b As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='ذكر') AND ([age] >20) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("m6", b)
Dim f As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([sex] ='انثى') AND ([age] >20) AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("g6", f)
Dim z As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='كلب') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("dog", z)
Dim x As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='جرذ') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("rat", x)
Dim c As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='حمار') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("donky", c)
Dim m As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='ماعز') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("goat", m)
Dim y As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='قط') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("cat", y)
Dim ee As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([Type] ='اخرى') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("ather", ee)
Dim eqe As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([state] ='معروف') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("know", eqe)
Dim yw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الراس') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("head", yw)
Dim yew As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='الجذع') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("j", yew)
Dim yuw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='ساق') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("leg", yuw)
Dim yyw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='القدم') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("foot", yyw)
Dim ysw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اليد') AND ([Birthday] BETWEEN @d1 AND @d2) ")
rep.SetParameterValue("hand", ysw)
Dim ynw As String = SqlScalar("SELECT COUNT(*) FROM [Table1] WHERE ([place] ='اصبع اليد') AND ([Birthday] BETWEEN @d1 AND @d2) ")
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()