البحث بين تاريخين مختلفين ؟؟

جرب هذا الكود

where y.id &  m.id>='" &  yerf & monf & "' and  y.id & m.id<='" & yerl & monl & "'"

اذا كان قاعدة البيانات سكول سيكون هنا بعض التغيرات

أهلين أخوي KARIMSOFT

أنا أستخدم قاعدة بيانات اس كيو ال

ماضبط معي الكود

الله يعطيك العافية

السلام عليكم ...

1. على فرض أن اسم الجدول m  و العمودان فيه هما colMonth  و colYear  يكون الكود :

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           Dim monf = "1"
           Dim yerf = "2012"
           Dim monl = "3"
           Dim yerl = "2012"
           Dim startDate = New DateTime(yerf, monf, 1)
           Dim endDate = New DateTime(yerl, monl, DateTime.DaysInMonth(yerl, monl))
           Dim connection As New SqlConnection("Initial Catalog=DB02;Data Source=.\sqlexpress;Integrated Security=SSPI;")
           Dim command As New SqlCommand("select *  from m WHERE CONVERT(datetime, '15/' + cast(colMonth as varchar) + '/' + cast(colYear as varchar) , 103) BETWEEN @d1 AND @d2;")
           command.Parameters.AddWithValue("@d1", startDate)
           command.Parameters.AddWithValue("@d2", endDate)
   
           command.Connection = connection
           Dim adapter As New SqlDataAdapter(command)
           Dim dt As New DataTable
           adapter.Fill(dt)
           DataGridView1.DataSource = dt
       End Sub

    

2. معلومات عن تنسيق التاريخ (رابط).

where cast(y.id as varchar) +  cast(m.id as varchar)>='" &  yerf & monf & "' and  cast(y.id as varchar) + cast(m.id as varchar)<='" & yerl & monl & "'"

هلا والله أخوي حسام الله يعطيك العافية

عند الاستعلام يصبح التاريخ عربي فما يعطيني النتيجه صحيحه  كيف أجعله إنجليزي على طول ؟

أخوي كريم الله يعطيك العافية

الكود يظهر لي نتائج غير صحيحه

كل الشكر

بــــــــدر كتب:

هلا والله أخوي حسام الله يعطيك العافية

 

عند الاستعلام يصبح التاريخ عربي فما يعطيني النتيجه صحيحه  كيف أجعله إنجليزي على طول ؟

أهلا و سهلا ...

اين يصبح عربي ...؟إذا كان عندنا حقل للشهر و حقل للسنة ... هل تقصد حقل الشهر ...   ممكن توضيح أكثر ...

أهلين أخوي حسام

الله يعطيك العافية الحمدلله ضبط الكووود مشكوووووور

فضلاً لا أمراً بس ممكن تشرح لي هالسطور

Dim command As New SqlCommand("select *  from m WHERE CONVERT(datetime, '15/' + cast(colMonth as varchar) + '/' + cast(colYear as varchar) , 103) BETWEEN @d1 AND @d2;")        command.Parameters.AddWithValue("@d1", startDate)        command.Parameters.AddWithValue("@d2", endDate)

وهل ممكن أطبق الكود على الكود تبعي ؟
 

  If RadioButton2.Checked = True Then
            Dim yerf As Integer
            Dim monf, monl, yerl As String

            yerf = Val(combyearfirst.Text)
            yerl = Val(combyearlast.Text)
            monf = combmonthfirst.SelectedValue
            monl = combmonthlast.SelectedValue
            dst_search.Clear()
            db_adpt = New SqlDataAdapter("select y.yearrow,m.monthrow,e.m0,e.m1,e.m2,e.m3,e.mb,e.dd,e.tsd,e.oqmd,e.fa_sama,e.fa_banks,e.bcp,e.bcg,e.tb,e.gb,e.atms,e.span,e.pst,e.vps,e.orr,e.rrr,e.sibor,e.neer,e.reer,e.oor,e.smi,e.dp,e.cpi,e.oilp,e.mm1,e.mm2,e.mm3,e.imp,e.exp from monthly e INNER JOIN yeartable y ON y.ID=e.yearrow INNER JOIN monthtable m ON m.ID=e.monthrow where cast(y.id as varchar) +  cast(m.id as varchar)>='" & yerf & monf & "' and  cast(y.id as varchar) + cast(m.id as varchar)<='" & yerl & monl & "'", dbcon)
            db_adpt.Fill(dst_search, "monthly")

            DGview.DataSource = dst_search.Tables("monthly")

السلام عليكم ...

بالنسبة للشرح ... فهو بسيط ... فقد قمت بتحويل العمودين إلى تاريخ و وضعته ضمن شرط أن يكون بين قيمتين هما d1  و d2  ثم قمت بتمرير القيم لهذين البارامترين .

عليك بقراءة المزيد عن الاتصال بقواعد البيانات. .. راجع الدروس و المواضيع المثبتة .

بالنسبة للكود الذي ارسلته , قم بتطبيق الفكرة التي ذكرتها عليه .. فأنا لم اعرف اسماء الأعمدة على ماذا تدل ..

أهلين أخوي حسام

الله يعطيك العافية على جهودك وردك

مشكوووور