Imports System.Data.OleDb Public Class Form1 Dim SQL As String Dim dbConnection As OleDbConnection Dim dbCommand As New OleDbCommand Dim dbFilePath As String = "C:\..\..\..\dbTest.accdb" 'When user clicks writes something on textbox1 and then clicks Button Insert Private Sub buttonInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonInsert.Click dbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFilePath) SQL = "INSERT INTO tblTest (fldTest) VALUES ('" & TextBox1.Text & "')" dbConnection.Open() dbCommand = New OleDbCommand(SQL, dbConnection) dbCommand.ExecuteNonQuery() dbConnection.Close() End Sub 'When user clicks Button Read Private Sub buttonRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonRead.Click SQL = "SELECT fldTest FROM tblTest" dbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFilePath) dbCommand = New OleDbCommand(SQL, dbConnection) Dim data As New OleDbDataAdapter(dbCommand) Dim table As New DataTable("Test") dbConnection.Open() data.Fill(table) For Each row As DataRow In table.Rows MessageBox.Show(row.Item("fldTest")) Next End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)