منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كود البحث بين تاريخين به مشكلة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود البحث بين تاريخين به مشكلة (/showthread.php?tid=30887)



كود البحث بين تاريخين به مشكلة - اسامه الهرماوي - 14-08-19

السلام عليكم...
الحمد لله قمنا بتعديل كود البحث بين تاريخين من الأخطاء ولكن اتضح انه يبحث في في كل الشهور حسب الايام فقط
يعني لو بحثنا بين 24/2/2019   و 24/7/2019      يجلب كل التواريخ حتي ولو في شهر 10 او 8 او 11 او 12
يبحث في كل الشهور حسب اليوم فقط.
أرجو إخباري بطريقة لفعل ذلك وانا اشكركم جميعا.
والسلام عليكم ورحة الله وبركاتة.

كود :
Dim x As Date = date1.Value
               Dim y As Date = date2.Value
               SQLstrbi = "select * from bill where تاريخ_الفاتورة between '" & date1.Value.ToString("dd/MM/yyyy") & "'and'" & date2.Value.ToString("dd/MM/yyyy") & "'"
               If conbi.State = ConnectionState.Closed Then
                   conbi.Open()
               End If
               DataSetbi.Clear()
               Dim DataAdapterbib As New SqlDataAdapter(SQLstrbi, conbi)
               DataAdapterbib.Fill(DataSetbi, "bill")
               conbi.Close()
               Me.datagridview1.DataSource = DataSetbi
               Me.datagridview1.DataMember = "bill"
               datagridview1.Refresh()
               datagridview1.RefreshEdit()



RE: كود البحث بين تاريخين به مشكلة - asemshahen5 - 14-08-19

هذا مثال مع سكربت انشاء الجدول و اضافة المعلومات اليه عله يفيدك .


RE: كود البحث بين تاريخين به مشكلة - Beginer - 14-08-19

ابحث باستخدام الباراميتر هكذا
PHP كود :
Dim x As Date date1.Value
Dim y 
As Date date2.Value
SQLstrbi 
"select * from bill where تاريخ_الفاتورة between @d1 and @d2"
If conbi.State ConnectionState.Closed Then
    conbi
.Open()
End If
DataSetbi.Clear()
Dim DataAdapterbib As New SqlDataAdapter(SQLstrbiconbi)
DataAdapterbib.SelectCommand.Parameters.AddWithValue("@d1"date1.Value.Date)
DataAdapterbib.SelectCommand.Parameters.AddWithValue("@d2"date2.Value.Date)
DataAdapterbib.Fill(DataSetbi"bill")
conbi.Close()
Me.datagridview1.DataSource DataSetbi
Me
.datagridview1.DataMember "bill"
datagridview1.Refresh()
datagridview1.RefreshEdit()