[علي بنيان]

وعليكم السلام

لاحظ الكود بعد التعديل

 

PHP كود :

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter
        dt.Clear()
        da = New OleDbDataAdapter("select * from Table1 where datee like '" & Trim$(DateTimePicker3.Value) & "'", con)
        da.Fill(dt)
        DataGridView1.DataSource = dt

    End Sub
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= New Microsoft Access Database.accdb;Password=")
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter
        dt.Clear()
        da = New OleDbDataAdapter("select * from Table1 where timee like '" & Trim$(DateTimePicker1.Value.ToLongTimeString) & "'", con)
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter
        dt.Clear()
        da = New OleDbDataAdapter("select * from Table1", con)
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub
    'Private Sub PictureBox1_DoubleClick(sender As Object, e As EventArgs) Handles PictureBox1.DoubleClick
    '    Process.Start("Publication1.jpg")
    'End Sub
End Class 


---

عند البحث عن تاريخ او string لازم تخليله بين علامات ' ' مثلا

'" & Trim$(DateTimePicker3.Value) & "'"

وتستخدم Like بدلا من = (لانها تعطيك الكثير من الخيارات في البحث )