Saving image path to access database and retrieving images [Solved/Closed]
mikeoe2003
- Posts
- 25
- Registration date
- Thursday November 1, 2012
- Status
- Member
- Last seen
- March 27, 2014
Related:
- How to store image in ms access
- Access database images - Best answers
- Adding pictures to access database - Best answers
- How to save image from picturebox to access database in vb net - How-To - Programming
- Access - Automatically convert pictures/images to bitmap - How-To - Access
- Nokia N8 - Unable to access Ovi Store - How-To - Nokia
- Windows 7 - A shortcut to access the Imaging Devices settings - How-To - Windows 7
- IMediaShare Lite - Access media content stored on your PC via your Android/iOS mobile - How-To - Mobile
5 replies
Best answer
- Posts
- 2403
- Registration date
- Sunday September 23, 2012
- Status
- Moderator
- Last seen
- December 13, 2018
Hi mikeoe2003,
I have designed this small application for you that might suite your need. 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:
1. Create a new Visual Basic .net project. Select Windows Forms Application from New Project Dialog Box. Name this application as mikeoe2003PictureApplication.
2. Create the following with below mentioned properties:
a. Form - (Name): mikeoe2003PictureApplication, Text: FormPictureApplication
b. PictureBox - (Name): PictureBox1, SizeMode: StretchImage
c. Button - (Name): ButtonUpdate, Text: &Update
d. Button - (Name): ButtonOpen, Text: &Open
e. TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
3. 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
Try
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)
Finally
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
4. Create a Microsoft Access Database in your convenient location and name it as Databasemikeoe2003PictureApplication.mdb
5. 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)
6. Double Click the UpdateButton and insert the following code:
Try
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;")
myConnection.Open()
mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath) VALUES('" & Replace$(TextBoxPictureFilePath.Text, "'", "''") & "')"
myCommand = New OleDbCommand(mySQLString, myConnection)
myCommand.ExecuteNonQuery()
PictureBox1.Image = Nothing
TextBoxPictureFilePath.Text = ""
Catch ex As Exception
MessageBox.Show(ex.Message & " - " & ex.Source)
End Try
7. Run the application, it should work as desired.
Please revert for clarification.
I have designed this small application for you that might suite your need. 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:
1. Create a new Visual Basic .net project. Select Windows Forms Application from New Project Dialog Box. Name this application as mikeoe2003PictureApplication.
2. Create the following with below mentioned properties:
a. Form - (Name): mikeoe2003PictureApplication, Text: FormPictureApplication
b. PictureBox - (Name): PictureBox1, SizeMode: StretchImage
c. Button - (Name): ButtonUpdate, Text: &Update
d. Button - (Name): ButtonOpen, Text: &Open
e. TextBoxt - (Name): TextBoxPictureFilePath, Enabled: False
3. 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
Try
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)
Finally
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
4. Create a Microsoft Access Database in your convenient location and name it as Databasemikeoe2003PictureApplication.mdb
5. 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)
6. Double Click the UpdateButton and insert the following code:
Try
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;")
myConnection.Open()
mySQLString = "INSERT INTO Tablemikeoe2003PictureApplication (PicturePath) VALUES('" & Replace$(TextBoxPictureFilePath.Text, "'", "''") & "')"
myCommand = New OleDbCommand(mySQLString, myConnection)
myCommand.ExecuteNonQuery()
PictureBox1.Image = Nothing
TextBoxPictureFilePath.Text = ""
Catch ex As Exception
MessageBox.Show(ex.Message & " - " & ex.Source)
End Try
7. Run the application, it should work as desired.
Please revert for clarification.
A few words of thanks would be greatly appreciated. Add comment
6311 users have said thank you to us this month
Report
Respond to cpsingh
thank you
- Posts
- 25
- Registration date
- Thursday November 1, 2012
- Status
- Member
- Last seen
- March 27, 2014
- Posts
- 1
- Registration date
- Thursday September 5, 2013
- Status
- Member
- Last seen
- September 5, 2013
You may use access databases by the medium of access mdb repair tool
http://www.access.repairtoolboxx.com/
http://www.access.repairtoolboxx.com/
DON'T MISS
- Credit Score
- Reverse Image Search with Google
- Sign Up for a Free Netflix Trial
- GTA Vice City Cheat Codes
- Get the Transcript of a YouTube Video
- Facebook Confirmation Code Text Not Received
- How to Block Private Numbers
- How to Download Instagram Videos
- Writing Professional Emails in English
- No Sound from Headphone Jack
-
Google Play Store (APK)
-
Minecraft
-
xVideoServiceThief
-
TubeMate YouTube Downloader for Android
-
Instagram for PC
-
Microsoft Office 2010
-
Truecaller: Caller ID & Dialer for Android
-
Adobe Flash Player
-
Facebook Lite for Android
-
YouTube Downloader HD