[مساعدة]

ما المشكلة في طريقة البرمجة السابقة !

---

عندما رأيت التاريخ بداية السنة في مربع النص TextBox1 ونهاية السنة في مربع النص TextBox2 ظننت أن المطلوب هو البحث في السنة كاملة

حسناً، طالما المسألة فيها تغيير للتاريخ، تفضل هذا الكود

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   Dim sqlStr As String = _
       " SELECT  Sum([Holiday]) AS [Total] " & _
       " FROM    [HolidayBooks] " & _
       " WHERE   ( [DateDay] BETWEEN @d1 AND @d2 ) " & _
       "         AND ( [CoName] LIKE @nm ) " & _
       " GROUP   BY [CoName] "

   Dim cmd As New OleDbCommand(sqlStr, Conn)
   cmd.Parameters.AddWithValue("@d1", CDate(TextBox1.Text))
   cmd.Parameters.AddWithValue("@d2", CDate(TextBox2.Text))
   cmd.Parameters.AddWithValue("@nm", "%" & Trim(TextBox4.Text))

   Conn.Open()
   Dim Total As Integer = cmd.ExecuteScalar
   Conn.Close()

   TextBox6.Text = Total.ToString

End Sub