02-06-15, 09:34 PM
02-06-15, 10:16 PM
سلام
ان شاء الله تستفيد من هذا المثال
موفقين
ان شاء الله تستفيد من هذا المثال
كود :
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
موفقين
03-06-15, 02:14 AM
تسلم كود كامل واكثر من رائع
08-06-15, 06:41 PM
نقوم باضافة الاداة 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