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

نسخة كاملة : عايز كود البحث بين تاريخين باستخدام datetim,erpick,er
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عايز كود البحث بين تاريخين باستخدام 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

موفقين
تسلم كود كامل واكثر من رائع
نقوم باضافة الاداة 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