[hatem555]

عايز كود البحث بين تاريخين باستخدام datetimerpicker
في داتا بيز 2002 اكسس
وعرض النتيجة في داخل داتا جريد فيو

[الطالب]

سلام

ان شاء الله تستفيد من هذا المثال

كود :

Dim dataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [tb1] WHERE [dt] BETWEEN @d1 AND @d2", cnn)
dataAdapter.SelectCommand.Parameters.AddWithValue("@d1", DateTimePicker1.Value.Date)
dataAdapter.SelectCommand.Parameters.AddWithValue("@d2", DateTimePicker2.Value.Date)
Dim dataTable As New DataTable
dataAdapter.Fill(dataTable)
DataGridView1.DataSource = dataTable

موفقين

[hatem555]

تسلم كود كامل واكثر من رائع

[عادل القطعاني]

نقوم باضافة الاداة DateTimePicker2 , DateTimePicker1

وتغيير  من نافذة الخصائص   Format=Short

     Dim con As New OleDb.OleDbConnection

        con.ConnectionString = "provider = microsoft.ace.oledb.12.0;data source=db1.accdb"

        con.Open()

        Dim sql As String

        sql = "select * from main where date1  >=  # " & DateTimePicker1.Value.Year & " / " & DateTimePicker1.Value.Month & " / " & DateTimePicker1.Value.Day & " #  and date1 <=  # " & DateTimePicker2.Value.Year & " / " & DateTimePicker2.Value.Month & " / " & DateTimePicker2.Value.Day & " #"

        Dim oda As New OleDbDataAdapter(sql, con)

        Dim dt As New DataTable

        oda.Fill(dt)

        DataGridView1.DataSource = dt