[عابر سبيل 2]

تفضل الكود بعد التعديل

PHP كود :

  Private conn As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;Data Source=|datadirectory|\MAJOR.accdb ;Jet OLEDB:Database Password=20182018")
   Private dtsearch As New DataTable

   Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged

       Dim dasearch As New OleDbDataAdapter("SELECT * FROM DEPENSES ", conn)

       If IsDate(TextBox1.Text) Then
           dasearch.SelectCommand.CommandText &= " where DATE_DEPENSES=@d"
           dasearch.SelectCommand.Parameters.AddWithValue("@d", CDate(TextBox1.Text))
       End If

       dtsearch.Clear()
       dasearch.Fill(dtsearch)
       DataGridView1.DataSource = dtsearch

   End Sub