[Nedaa]

(10-02-18, 03:26 AM)محمود صالح كتب : الكود بعد التعديل

PHP كود :

       Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")
        Dim dt As New DataTable
        dt.Clear()
        Dim da As New OleDbDataAdapter("select * from T1 where DateBirth= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'", conn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
        If dt.Rows.Count = 0 Then
            MsgBox("Not Found")
            da = New OleDbDataAdapter(" SELECT * from T1", conn)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End If 


بارك الله فيك أخي الكريم