السلام عليكم انا بحاول استعلم عن بيانات لاستخراج مسير رواتب الموظفين بين تاريخين محددين باستخدام فيجوال بيسك 2005 وأكسس 2003 علما بأني وضعت حقل التاريخ مضبوط في الداتا بيز
وأنا نفذت هذا الكود من قبل في فيجوال بيسك 6 وكان الكود كذلك
Dim SQL10 As String
SQL10 = "SELECT * FROM motor_car WHERE report_date <= #" & CDate(DTPicker2.Value) & "# AND report_date>= #" & CDate(DTPicker1.Value) & "#;"
If Rs1.State = adStateOpen Then Rs1.Close
Rs1.Open SQL10, DB, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs1
DataGrid1.Refresh
ولكن عند كتابة الكود بعد التغيير ليتوافق مع فيجوال 2005 تظهر رسالة الخطا المرفقة والكود الجديد في فيجوال بيسك 2005 هو
Dim dsrateb As New DataSet
Dim SQL1 As String = "SELECT * FROM emp_relay WHERE rateb_date <= #" & CDate(DTPicker2.Value) & "# AND report_date>= #" & CDate(DTPicker1.Value) & "#;"
Dim DataAdapter1 As New OleDbDataAdapter(SQL1, Cn)
DataAdapter1.Fill(dsrateb, "emp_relay")
datagrid1.DataSource = DataAdapter1
datagrid1.Refresh()
فظهرت لي رسالة الخطأ في الصورة المرفقة ارجو اعلامي عن الخطا في الكود الجديد والله البرنامج متوقف على هذا الكود لأني أريد عرض الاستعلام داخل داتا جريد
أرجو الافادة جزاكم الله خيرا
