30-06-19, 09:25 PM
السلام عليكم ورحمة الله وبركاته
أسعد الله أيامكم
عملت مشروع صغير لزائرين مكتبة وفي جدول الزيارات بقاعدة البيانات يسجل مدة الزائر من اليوم أ الى اليوم ب
عندي مشكلة في البحث مثلا :
الزائر علي أتى الى المكتبة من 01/07/2019 الى 05/07/2019
والزائر خالد أتى من 02/07/2019 الى 03/07/2019
والزائر محمد أتى من 06/07/2019 الى 07/07/2019
وبحثت عن جميع الزائرين من الفترة 01/07/2019 الى 06/07/2019
يظهر لي فقط علي وخالد
افيدونا جزيتم خيرا
أسعد الله أيامكم
عملت مشروع صغير لزائرين مكتبة وفي جدول الزيارات بقاعدة البيانات يسجل مدة الزائر من اليوم أ الى اليوم ب
عندي مشكلة في البحث مثلا :
الزائر علي أتى الى المكتبة من 01/07/2019 الى 05/07/2019
والزائر خالد أتى من 02/07/2019 الى 03/07/2019
والزائر محمد أتى من 06/07/2019 الى 07/07/2019
وبحثت عن جميع الزائرين من الفترة 01/07/2019 الى 06/07/2019
يظهر لي فقط علي وخالد
افيدونا جزيتم خيرا
كود :
Public Sub SearchBetweenTwoDate(ByVal DTpvisitdatefrom As DateTimePicker, ByVal DTpvisitdatefrom2 As DateTimePicker, ByVal DTpvisitdateto As DateTimePicker, ByVal DTpvisitdateto2 As DateTimePicker)
DT_TwoDate_visittb.Clear()
Dim Cmd2Date As New SqlCommand("Select visitorid,visitorfullname,visitpurpose,visitorcompany,visitordepartment,visitday,visitdatefrom,visitdateto,visituser From visittb Where visitdatefrom >= @visitdatefrom And visitdatefrom <= @visitdatefrom2 And visitdateto >= @visitdateto And visitdateto <= @visitdateto2 ", Con) '
Cmd2Date.Parameters.Clear()
Cmd2Date.Parameters.Add("@visitdatefrom", SqlDbType.Date).Value = "#" & DateTimePicker1.Text & "#"
Cmd2Date.Parameters.Add("@visitdatefrom2", SqlDbType.Date).Value = "#" & DateTimePicker2.Text & "#"
Cmd2Date.Parameters.Add("@visitdateto", SqlDbType.Date).Value = "#" & DateTimePicker1.Text & "#"
Cmd2Date.Parameters.Add("@visitdateto2", SqlDbType.Date).Value = "#" & DateTimePicker2.Text & "#"
Try
If Con.State = 1 Then Con.Close()
Con.Open()
DT_TwoDate_visittb.Load(Cmd2Date.ExecuteReader)
Con.Close()
Cmd2Date = Nothing
Catch ex As Exception
Con.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Con.State = ConnectionState.Open Then Con.Close()
End Try
End Sub