منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخواني السلام عليكم ورحمة الله وبركاته

ارجو ممن لديه الخبره افادتي بالمشكله التي اعاني منها في جلب بيانات بين تاريخين , انا متأكد انني اخطأت بشي معين في الكود كوني لست خبيرا في هذه الامور

هذا كود ربط قاعدة بيانات الاوراكل وهو يعمل بشكل جيد

Public Sub ConnectionDatabase()

If db.State = adStateOpen Then _

 db.Close

db.ConnectionString = "Provider=MSDAORA.1;User ID=X/X"

db.CursorLocation = adUseClient

db.Open

Exit Sub

End Sub

في الفورم الرئيسي يوجد dtpicker1 و dtpicker2 و MSHFlexGrid 

وكذلك زر الامر الذي تم وضع الكود التالي فيه

  If pt.State = adStateOpen Then pt.Close
  pt.Open "SELECT * FROM TEST WHERE TO_CHAR(POST_DATE,'yyyy-mm-dd') >=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# AND TO_CHAR(POST_DATE,'yyyy-mm-dd') <=#" & Format(DTPicker2.Value, "yyyy-mm-dd") & "#;", db, adOpenDynamic
Call MSHFlexgridAlignment

End Sub

ارجو المساعده منكم ولكم الشكر