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”))
LoopobjReader.Close()
| M | T | W | T | F | S | S |
|---|---|---|---|---|---|---|
| « Nov | ||||||
| 1 | 2 | 3 | 4 | |||
| 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 19 | 20 | 21 | 22 | 23 | 24 | 25 |
| 26 | 27 | 28 | 29 | 30 | 31 | |
RSS feed for comments on this post · TrackBack URI
Leave a reply