اسعد الله اوقاتكم ايها الاخوة
يوجد عندي كود لمعرفة عدد غياب الموظفين بين تاريخين ولكن يوجد فية خطأ يرجى منكم التصحيح
استعمل فيجوال 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
يوجد عندي كود لمعرفة عدد غياب الموظفين بين تاريخين ولكن يوجد فية خطأ يرجى منكم التصحيح
استعمل فيجوال 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