Connection to Access Database

Imports System.Data.OleDb
Private Const strConnection As String = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db.mdb;
Private objConnection As OleDbConnection = New OleDbConnection(strConnection)
Try
objConnection.Open()
….
objConnection.Close()
Catch myException As System.Exception
MessageBox.Show(myException.Message)
End Try

Command – ExecuteNonQuery UPDATE / DELETE / INSERT

Dim strSQL As String = “Insert into tblX (X ,Y) values (valueX,valueY)”
Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, objConnection)
objCommand.ExecuteNonQuery()

Command – ExecuteScalar SELECT

Dim strSQL As String = “Select count(*) from tblFabrieken”
Dim objCommand As OleDbCommand = New OleDbCommand(strSQL, objConnection)
Dim intNumber As Integer
intNumber = objCommand.ExecuteScalar()

Command – ExecuteReader – DataReader (Read forward only cursor)

Dim objCommand As OleDbCommand = New OleDbCommand(”Select * from tblFabrieken”, objConnection)
Dim objReader As OleDbDataReader
objReader = objCommand.ExecuteReader()

Do While objReader.Read()
MsgBox(objReader(”Naam”))
Loop

objReader.Close()