How to Add/Update/Delete Record using MS Access Database

Imports System.Data.OleDb
Imports System.IO
 
Public Class Form7
Public ImageSlno As Integer
Public con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Documents and Settings\Pankaj Arora\My Documents\database.mdb") ' connection srting 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Insert_Image()
End Sub
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
OpenFileDialog1.Filter = "Bmp Files(*.bmp)|*.bmp|Gif Files(*.gif)|*.gif|Jpg Files(*.jpg)|*.jpg"
OpenFileDialog1.ShowDialog()
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Catch
 
End Try
End Sub
Public Sub Insert_Image()
Try
Dim st As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim mbr As BinaryReader = New BinaryReader(st)
Dim buffer(st.Length) As Byte
mbr.Read(buffer, 0, CInt(st.Length))
st.Close()
con.Open()
Dim Str As String = "insert into imageTable(photo) values(?)"
Dim Cmd As New System.Data.OleDb.OleDbCommand(Str, con)
Cmd.Parameters.Add("@photo", System.Data.OleDb.OleDbType.Binary, buffer.Length).Value = buffer
Cmd.ExecuteNonQuery()
con.Close()
MsgBox("Image Saved Successfully")
Catch ex As Exception
con.Close()
MsgBox("Error In Insertphoto", MsgBoxStyle.Critical, "Error")
MsgBox(ex.ToString)
End Try
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
ImageSlno = InputBox("Insert Slno ", , "0")
 
Call LoadPhoto(ImageSlno)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Sub LoadPhoto(ByVal slno As Decimal)
' display image from the database
Try
Dim str As String = "SELECT photo FROM ImageTable WHERE slno = " & slno
con.Open()
Dim cmd As New OleDb.OleDbCommand(str, con)
Dim b() As Byte
b = cmd.ExecuteScalar()
con.Close()
If (b.Length > 0) Then
Dim stream As New MemoryStream(b, True)
stream.Write(b, 0, b.Length)
DrawToScale(New Bitmap(stream))
stream.Close()
End If
Catch ex As Exception
'MsgBox(ex.ToString)
End Try
End Sub
'Function to Create Instance For the Image From the Buffer
Private Sub DrawToScale(ByVal bmp As Image)
PictureBox1.Image = New Bitmap(bmp)
End Sub
 
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
End Sub
End Class