منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد بوقزاحة

Owz