Dim connection As OleDb.OleDbConnection = New OleDbConnection connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Environment.CurrentDirectory & "\InventSystem.accdb" connection.Open() Dim da As String = "SELECT Barcode,ItemName,ItemDescription FROM Items" Dim dataadapter As New OleDbDataAdapter(da, connection) Dim ds As New DataSet Dim dsView As New DataView Dim bs As New BindingSource() dataadapter.Fill(ds, "Items") connection.Close() dsView = ds.Tables(0).DefaultView bs.DataSource = dsView bs.Filter = "Barcode '" & TextBox1.Text & "*' or ItemName'" & TextBox1.Text & "*' or ItemDescription '" & TextBox1.Text & "*'" DataGridView1.DataSource = bs connection.Close()
bs.Filter = "Barcode ='" & TextBox1.Text & "*' or ItemName ='" & TextBox1.Text & "*' or ItemDescription ='" & TextBox1.Text & "*'"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)