27-05-20, 03:59 PM
السلام عليكم اخي
ضع زر للبحث على التاريخ
وقم بوضع الكود التالي
Cv_Birthday هو اسم الحقل الموجود في قاعدة البيانات الاكسس خاص بالتاريخ قم بتغيره في الكود لفي الاسفل و ان شاء الله تضبط معك
DateTimePicker2
DateTimePicker3
هوما اسماء التاريخ ايضا غيرهما بما انت مسمي التاريخ عندك
Dim dt1 As Date = DateTimePicker2.Value
Dim dt2 As Date = DateTimePicker3.Value
dt.Clear()
da = New OleDbDataAdapter("Select * from table1 where Cv_Birthday >= #" & dt1.Year & "/" & dt1.Month & "/" & dt1.Day & "# and Cv_Birthday <= #" & dt2.Year & "/" & dt2.Month & "/" & dt2.Day & "# order by Cv_Birthday ", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
Cleardata_table1()
End If
ضع زر للبحث على التاريخ
وقم بوضع الكود التالي
Cv_Birthday هو اسم الحقل الموجود في قاعدة البيانات الاكسس خاص بالتاريخ قم بتغيره في الكود لفي الاسفل و ان شاء الله تضبط معك
DateTimePicker2
DateTimePicker3
هوما اسماء التاريخ ايضا غيرهما بما انت مسمي التاريخ عندك
Dim dt1 As Date = DateTimePicker2.Value
Dim dt2 As Date = DateTimePicker3.Value
dt.Clear()
da = New OleDbDataAdapter("Select * from table1 where Cv_Birthday >= #" & dt1.Year & "/" & dt1.Month & "/" & dt1.Day & "# and Cv_Birthday <= #" & dt2.Year & "/" & dt2.Month & "/" & dt2.Day & "# order by Cv_Birthday ", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
Cleardata_table1()
End If
