[jemoyzidi]

السلام عليكم ورحمة الله وبركاته 
أسعد الله أيامكم 
عملت مشروع صغير لزائرين مكتبة وفي جدول الزيارات بقاعدة البيانات يسجل مدة الزائر من اليوم أ الى اليوم ب 
عندي مشكلة في البحث مثلا :
الزائر علي أتى الى المكتبة من 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

[ابراهيم ايبو]

السلام عليكم اخي الكريم 

شي طبيعي ان يجلب لك اسمين فقك لان الثالث تاريخه 07/07/2019 اكبر من تاريخ الاستعلام 06/07/2019

وبذلك اسم محمد خارج نطاق الاستعلام

[jemoyzidi]

(01-07-19, 01:50 AM)ابراهيم ايبو كتب :

السلام عليكم اخي الكريم 

شي طبيعي ان يجلب لك اسمين فقك لان الثالث تاريخه 07/07/2019 اكبر من تاريخ الاستعلام 06/07/2019

وبذلك اسم محمد خارج نطاق الاستعلام

وعليك السلام اخ ابراهيم
الاسم  الثالث متواجد يومين من يوم 6 الى 7 
يعني في زيارات المكتبة هو متواجد يوم 6

---

[ابراهيم ايبو]

لا يا اخي في لغة الاستعلام هو خارج نطاق الاستعلام لانه يوجد يوم زيادة

اما لو انك تستعلم فقط بتواريخ الحضور فهو ضمن المجال

ولان الشخص استمر حتى 7/7 فهو خارج مجال التاريخ

انظر الى شروط الاستعلام التي وضعتها هل يحقق الزائر محمد كل الشروط

[jemoyzidi]

(01-07-19, 06:30 AM)SM2019 كتب : يعطيك العافية اخوي جربت الكود ونفس المشكلة

---

(01-07-19, 02:26 AM)ابراهيم ايبو كتب :

لا يا اخي في لغة الاستعلام هو خارج نطاق الاستعلام لانه يوجد يوم زيادة

اما لو انك تستعلم فقط بتواريخ الحضور فهو ضمن المجال

ولان الشخص استمر حتى 7/7 فهو خارج مجال التاريخ

انظر الى شروط الاستعلام التي وضعتها هل يحقق الزائر محمد كل الشروط

طيب اخي ابراهيم ممكن الحل للمشكلة هذي

[jemoyzidi]

(01-07-19, 07:38 AM)SM2019 كتب : سويت نفس الطريقة يظهر لي نفس اللي بالصورة

[ابراهيم ايبو]

السلام عليكم اخي الكريم

بغض النظر عن الاخطاء في كودك الذي تستخدمه

فانت تقوم بالاستعلام وفق شرطين لكل من حقل الزيارة والمغادرة

للزيارة 

1- ان يكون التاريخ اكبر أو يساوي 1/7/2019 

2 وان يكون التاريخ اصغر اويساوي 6/7/2019

للمغادرة

3- ان يكون التاريخ اكبر أو يساوي 1/7/2019 

4- وان يكون التاريخ اصغر اويساوي 6/7/2019

ومحمد يحقق ثلاث شروط فقط وهي الاول والثاني والثالث 

اما الرابع فلا يتحقق عنده لان تاريخ المغادرة عنده اكبر من الاستعلام 7/7/2019

لذلك لن يكون ضمن قائمة الاستعلام لان العبارة AND يجب تحقيقها كاملة

ارجو ان تكون الفكرة قد اتضحت

واليك كود للبحث فقط قم بتغيير الحقول والجدول واسماء الادوات .. وفي الكود يوجد استعلام اخر لحقل الزيارة فقط

كود :

Public Sub SearhBetween(ByVal DD1 As Date, ByVal DD2 As Date)
     
       Dim dt As New DataTable
       Dim cmd As New SqlCommand()
       dt.Clear()
       cmd = New SqlCommand("SELECT * FROM CG WHERE CG_Come >= @DD1 AND CG_Come <= @DD2 and CG_Go >= @DD1 AND CG_Go <= @DD2", Cn) ' استعلام زيارة وخروج اي شرطين تاريخ ادنى وتاريخ اعلى لكل من الزيارة والخروج وبذلك 4 شروط
       'cmd = New SqlCommand("SELECT * FROM CG WHERE CG_Come >= @dt1 AND CG_Come <= @dt2", Cn) '  استعلام زيارة بشرطين تاريخ ادنى وتاريخ اعلى

       cmd.Parameters.Add("@DD1", SqlDbType.Date).Value = Dtp_Come.Value
       cmd.Parameters.Add("@DD2", SqlDbType.Date).Value = Dtp_Go.Value

       If Cn.State = ConnectionState.Open Then
           Cn.Close()
       End If
       Cn.Open()
       dt.Load(cmd.ExecuteReader())
       Cn.Close()
       dgv_table.DataSource = dt
   End Sub

ثم نادي على هذا الصب

كود :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       SearhBetween(Dtp_Come.Value, Dtp_Go.Value)
   End Sub