[محمد بوقزاحة]

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

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

[Owz]

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


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")