[الوايلي]

السلام عليكم ورحمه الله وبركاته :

عندي استفسار بسيط بجملة select تجلب سجلات معينة في شهر يختاره المستخدم عبر comboBox فيه ارقام الشهور و comboBox فيه السنوات بحيث مثلا اردت سجلات في شهر 2 من سنة 2018 تظهر السجلات في هذه الفترة 
مرفق مثال بسيط للتوضح اتمنى الرد
وسؤال ثاني اذا التاريخ في البرنامج بالهجري وهو على حسب جهازي التاريخ فيه هجري لكن في قاعدة البيانات ميلادي هل في مشكلة في هذا أم يجب تغيير التاريخ داخل قاعدة البيانات اكسس
مع العلم أن الفيجوال بيسك ستديو هو  2013 وقاعدة البيانات اكسس 2007 
وشكرا لكم 

[طالب برمجة]

التاريخ يحفظ ميلاديا في كل الأحوال

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    dt.Rows.Clear()
    da = New OleDbDataAdapter("select * from TBL where month(date1)=@m and year(date1)=@y", con)
    da.SelectCommand.Parameters.AddWithValue("@m", Val(ComboBox1.Text))
    da.SelectCommand.Parameters.AddWithValue("@y", Val(ComboBox2.Text))
    da.Fill(dt)
    DataGridView1.DataSource = dt
End Sub 


[الوايلي]

الله يجزاك خير اخوي طالب برمجة على ردك وتفاعلك وردودك ليس لي وإنما للجميع والله يوفقك ويزيدك علم ومعرفه 

بس للاسف لما اسوي بحث مايطلع اي شي ماتطلع اي سجلات 

---

لما غيرت تاريخ الجهاز إلى ميلادي ظهرت نتائج البحث بشكل ممتاز 
مافي طريقة اخوي الكريم بعملية البحث بالهجري وتظهر النتائج بالتاريخ الهجري
واسف على ازعاجك ثقلنا عليك اخوي الكريم

[طالب برمجة]

كما وضعت مشروعك المعتمد على التاريخ الميلادي
ضع مشروعك المعتمد على التاريخ الهجري

لا يوجد إزعاج، أهم شي تصل للنتيجة التي تريدها سواء مني أو من غيري

[الوايلي]

الله يجزاك خير اخوي ويوفقك 
المثال نفسه بس غيرت التاريخ في قاعدة البيانات الى الهجري

[طالب برمجة]

لن تستفيد من تحويل نوع الناريخ في قاعدة البيانات الى الهجري لأنها تخص العرض داخل الأكسس نفسه فقط

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim dt1 As New Date(Val(ComboBox2.Text), Val(ComboBox1.Text), 1, New UmAlQuraCalendar)
    Dim dt2 As Date
    Try
        dt2 = New Date(Val(ComboBox2.Text), Val(ComboBox1.Text), 30, New UmAlQuraCalendar)
    Catch ex As Exception
        dt2 = New Date(Val(ComboBox2.Text), Val(ComboBox1.Text), 29, New UmAlQuraCalendar)
    End Try

    dt.Rows.Clear()
    da = New OleDbDataAdapter("select * from TBL where date1 between @d1 and @d2 ", con)
    da.SelectCommand.Parameters.AddWithValue("@d1", dt1)
    da.SelectCommand.Parameters.AddWithValue("@d2", dt2)
    da.Fill(dt)
    DataGridView1.DataSource = dt
End Sub 


[الوايلي]

الله يجزاك خير اشتغل الكود مضبط 

مشكور لك اخي الكريم طالب برمجة والله يوفقك في دنياك وآخرتك