A few words of thanks would be greatly appreciated.

Visual Basic.net -Saving image path to an Access database


I need a a program to save the image path to my Access database. How can this be achieved?


This application has an Open Button which will help you open any picture file to a PictureBox on the form using OpenFileDialog. You will see the path of the picture file in a disabled TextBox. When you click the update button the Picture's path is saved to an Access Database.

Follow the steps below to create a similar project for yourself:
  • Create a new Visual Basic.net project. Select Windows Forms Application from New Project Dialog Box. Name this application as mikeoe2003PictureApplication.
  • Create the following with below mentioned properties:
    • Form - (Name): mikeoe2003PictureApplication, Text: FormPictureApplication
    • PictureBox - (Name): PictureBox1, SizeMode: StretchImage
    • Button - (Name): ButtonUpdate, Text: &Update
    • Button - (Name): ButtonOpen, Text: &Open
  • TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
  • Double Click the Form, insert the following code right above Public Class mikeoe2003PictureApplication:

Imports System.Data.OleDb 
Imports System.IO 
Imports Microsoft.Win32 

Double Click ButtonOpen and insert the following code: 

Dim img As String 

Dim myStream As Stream = Nothing 
Dim openFileDialog1 As New OpenFileDialog() 

openFileDialog1.InitialDirectory = "c:\" 
openFileDialog1.Filter = Nothing 
openFileDialog1.FilterIndex = 2 
openFileDialog1.RestoreDirectory = True 
openFileDialog1.FileName = "" 

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then 
myStream = openFileDialog1.OpenFile() 
If (myStream IsNot Nothing) Then 

TextBoxPictureFilePath.Text = "" 

img = openFileDialog1.FileName 
PictureBox1.Image = System.Drawing.Bitmap.FromFile(img) 

TextBoxPictureFilePath.Text = openFileDialog1.FileName 

End If 
Catch Ex As Exception 
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message) 
If (myStream IsNot Nothing) Then 
End If 
End Try 
End If 
  • Create a Microsoft Access Database in your convenient location and name it as Databasemikeoe2003PictureApplication.mdb
  • Create a table with the name Tablemikeoe2003PictureApplication and add following Columns to it:

Id - Datatype: Autonumber 
PicturePath - DataType: Memo (as file paths can be considerably long at times) 
  • Double Click the UpdateButton and insert the following code:

Dim myConnection As OleDbConnection 
Dim myCommand As OleDbCommand 
Dim mySQLString As String 
myConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Databasemikeoe2003PictureApplication.mdb;") 
mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath) VALUES('" & Replace$(TextBoxPictureFilePath.Text, "'", "''") & "')" 
myCommand = New OleDbCommand(mySQLString, myConnection) 

PictureBox1.Image = Nothing 
TextBoxPictureFilePath.Text = "" 

Catch ex As Exception 
MessageBox.Show(ex.Message & " - " & ex.Source) 
End Try 
  • Run the application, it should work as desired.

Thanks to Zohaib R for this tip on the Forum.

A few words of thanks would be greatly appreciated.

Ask a question
CCM is a leading international tech website. Our content is written in collaboration with IT experts, under the direction of Jeff Pillou, founder of CCM.net. CCM reaches more than 50 million unique visitors per month and is available in 11 languages.
This document, titled "Visual Basic.net -Saving image path to an Access database ," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (https://ccm.net/).