02-10-19, 02:06 AM
شكرا لك اخي لقد حللت المشكله باستخدام كود اخر
Dim dtp1 As Date = DateTimePicker1.Value
Dim dtp As Date = DateTimePicker2.Value
dt.Clear()
da = New OleDbDataAdapter("SELECT * FROM table1 where [تاريخ الاشتراك] >= #" & dtp1.Year & "/" & dtp1.Month & "/" & dtp1.Day & "# and[تاريخ الاشتراك]<= #" & dtp.Year & "/" & dtp.Month & "/" & dtp.Day & "# order by [تاريخ الاشتراك]", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("غير موجود")
load_date()
End If
Dim dtp1 As Date = DateTimePicker1.Value
Dim dtp As Date = DateTimePicker2.Value
dt.Clear()
da = New OleDbDataAdapter("SELECT * FROM table1 where [تاريخ الاشتراك] >= #" & dtp1.Year & "/" & dtp1.Month & "/" & dtp1.Day & "# and[تاريخ الاشتراك]<= #" & dtp.Year & "/" & dtp.Month & "/" & dtp.Day & "# order by [تاريخ الاشتراك]", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("غير موجود")
load_date()
End If