Imports System.Data.OleDb Public Class frmMain Dim myconnection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=G:\order\Order\Order\Orders.accdb") Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sql As String myconnection.Open() sql = " Select * from Orders" Dim da As New OleDb.OleDbDataAdapter(sql, myconnection) Dim dt As New DataTable("tblOrder") da.Fill(dt) dgv1.DataSource = dt.DefaultView RefreshDGV() myconnection.Close() End Sub Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged Dim sqlsearch As String sqlsearch = "SELECT * FROM Orders WHERE ID LIKE '%" & txtSearch.Text & "%'" & " OR Description LIKE '%" & txtSearch.Text & "%'" Dim da As New OleDbDataAdapter(sqlsearch, myconnection) Dim dt As New DataTable("Orders") da.Fill(dt) dgv1.DataSource = dt.DefaultView End Sub Private Sub cboSearch_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboSearch.SelectedIndexChanged If Not cboSearch.Text = cboSearch.SelectedText Then btnSave.Enabled = True End If Dim MyVariable As String MyVariable = cboSearch.Text MsgBox(MyVariable) End Sub Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click frmAdd.Show() End Sub Private Sub RefreshDGV() End Sub Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)