+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطا في كود بحث بين تارخين (/showthread.php?tid=31609)
خطا في كود بحث بين تارخين - mostafa12 - 01-10-19
yntax error in date in query expression '[تاريخ الاشتراك] between #10/1/2019 12:00:00 ص# AND #10/1/2019 12:00:00 ص'.
dt.Clear()
da = New OleDbDataAdapter("SELECT * FROM table1 where [تاريخ الاشتراك] between #" & DateTimePicker1.Value.ToString() & "# AND #" & DateTimePicker2.Value.ToString() & "#", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("غير موجود")
load_date()
End If
الي معو كود ثاني يبعثلي اياتو او يقلي شو المشطله وشكرا لكم
RE: خطا في كود بحث بين تارخين - asemshahen5 - 02-10-19
استبدل # بـ ' ليكون الكود كالتالي :
PHP كود :
dt.Clear()
da = New OleDbDataAdapter("SELECT * FROM table1 where [تاريخ الاشتراك] between '" & DateTimePicker1.Value.ToString() & "' AND '" & DateTimePicker2.Value.ToString() & "'", con)
da.Fill(dt)
DataGridView1.DataSource = dt
If dt.Rows.Count = 0 Then
MsgBox("غير موجود")
load_date()
End If
RE: خطا في كود بحث بين تارخين - mostafa12 - 02-10-19
شكرا لك اخي لقد حللت المشكله باستخدام كود اخر
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