da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
da.Fill(dt)(19-05-17, 10:20 PM)alma2السلام عليكم أستاذنا الفاضل مشكور علي الرد والمساعدة وضعت نفس الكود ولكن مع الاسف لم يعمل كتب : [ -> ]كود :
da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
da.Fill(dt)
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim dtp1 As Date = Date_Of_Birth_from.Value
Dim dtp2 As Date = Date_Of_Birth_to.Value
dt.Clear()
da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
Load_Data()
End If
End Sub(19-05-17, 11:22 PM)alma2 كتب : [ -> ]اعطيتك التعديلات لجزء من الكود ولكنك حذفت باقي الكود السابق الذي كان عندك سابقا
ارجع للكود السابق في بداية الموضوع وغير الجزئيو التي اعطيك مع الحفاظ على الباقي
تمام تمام يا استاذنا
مشكوووووووووور ويعطيك العافية
كود :
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim dtp1 As Date = Date_Of_Birth_from.Value
Dim dtp2 As Date = Date_Of_Birth_to.Value
dt.Clear()
da = New OleDbDataAdapter("Select * from table1 where Date_of_Birth BETWEEN @dFrom AND @dTo ", con)
da.SelectCommand.Parameters.AddWithValue("@dFrom", Date_Of_Birth_From.Value.Date)
da.SelectCommand.Parameters.AddWithValue("@dTo", Date_Of_Birth_To.Value.Date)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("No match found")
Load_Data()
End If
End Sub