[nmst70]

اسعد الله اوقاتكم ايها الاخوة

يوجد عندي كود لمعرفة عدد غياب الموظفين بين تاريخين ولكن يوجد فية خطأ يرجى منكم التصحيح

استعمل فيجوال 2008 مع قاعدة بيانان اكسس 2003

مرفق الكود مع مثال للتجربة


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


        Dim cmd As New OleDbCommand
        cmd.Connection = Conn
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "select sum(Holiday)as Total from HolidayBooks where DateDay between #" & TextBox1.Text & "#" & "and" & "#" & TextBox2.Text & "' and HolidayBooks.CoName LiKE '%" & Trim(TextBox4.Text) & "' group by HolidayBooks.CoName "
        Conn.Open()
        Dim Total As Integer = cmd.ExecuteScalar
        Conn.Close()
        TextBox6.Text = Total.ToString
        Conn.Close()



    End Sub