AAA00 AA000
TO
Imports System.Data.OleDb Public Class Form1 'Change "C:\Users\Jimmy\Documents\Merchandise.accdb" to your database location Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\IzzyM\Desktop\Engie\KKS\KKS Maintenance Tool.accdb" Dim MyConn As OleDbConnection Dim da As OleDbDataAdapter Dim ds As DataSet Dim tables As DataTableCollection Dim source1 As New BindingSource Dim provider As String Dim dataFile As String Public myConnection As OleDbConnection = New OleDbConnection Public dr As OleDbDataReader 'Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'MyConn = New OleDbConnection 'MyConn.ConnectionString = connString 'ds = New DataSet 'tables = ds.Tables 'da = New OleDbDataAdapter("Select * from [EWH INSTRUMENT KKS]", MyConn) 'Change items to your database name 'da.Fill(ds, "items") 'Change items to your database name 'Dim view As New DataView(tables(0)) 'source1.DataSource = view 'DataGridView1.DataSource = view 'End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim connstring As String provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" dataFile = "C:\Users\IzzyM\Desktop\Engie\KKS\KKS Maintenance Tool.accdb" ' Change it to your Access Database location connString = provider & dataFile myConnection.ConnectionString = connString End Sub Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindButton.Click myConnection.Open() DescriptionText.Clear() CostText.Clear() PriceText.Clear() Dim str As String str = "SELECT * FROM Items WHERE (Code = '" & CodeText.Text & "')" Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection) dr = cmd.ExecuteReader While dr.Read() DescriptionText.Text = dr("Description").ToString CostText.Text = dr("Cost").ToString PriceText.Text = dr("Price").ToString End While myConnection.Close() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)