منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=37398)

بحث بين تاريخين - محمد بوقزاحة - 06-01-21

السلام عليكم 
ممكن مساعدتي في انشاء استعلام بالحبث بين تاريخين والعرض في  
DGV

قاعدة البيانات SQL Server2008 R2

RE: بحث بين تاريخين - Owz - 06-01-21

هذا كود الاستعلام 


DATE1 & 2حسب الاسم في الداتا بيز 
TEXTBOX1   لو تقدر تحدد لو كان البحث مابين خلايا في الداتا قريد فقط غير الى اسم الخليه بدل TEXTBOX

كود :
"select * from TABLE_NAME where  DATE1>='" & Format(TEXTBOX1.TEXT, "yyyy/MM/dd") & "' and DATE2<='" & Format(TEXTBOX2.TEXT, "yyyy/MM/dd") & "' Order by DATE1"


وتقدر تختصر باستخدام هذا الكود ووضعه في MODULE  
يمكن استخدامه لتعبئه كل الداتا قريد فقط باضافه اسم الداتا قريد والاستعلام كما هو موضح في الاسفل


كود :
 Sub filldatagrid(ByVal Datagrid As DataGridView, ByVal sql As String) 
        Datagrid.DataSource = Nothing
        Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)

        Datagrid.AutoGenerateColumns = False
        Datagrid.DataSource = dt.DefaultView
    End Sub


وعند الاستدعاء  في الفورم 


كود :
  filldatagrid(DataGridView1, ("select * from TABLE_NAME where  DATE1>='" & Format(TEXTBOX1.TEXT, "yyyy/MM/dd") & "' and DATE2<='" & Format(TEXTBOX2.TEXT, "yyyy/MM/dd") & "' Order by DATE1")