Solved

Retrieve Image from Access Database

Posted on 2009-04-14
3
795 Views
Last Modified: 2012-05-06
I have a form where users can import an image of their vehicle. This image gets placed as a panels background.
I then save the image to an Ole Object field in an Access Table.
I have everything working except the retrieving of the image.  I can see in the database that it is stored as a long binary data.
I have added the whole procedure I use to retrieve this data.
What am I doing wrong?
Thanks
Public Sub FillCars(Optional ByVal Pan As Panel = Nothing)

        Dim ds As New DataSet
 

        If DatabaseToUse() = BizObjs.DBType.Access Then

            'Access Database

            Dim dc As New OleDb.OleDbConnection(ConnectionString)

            Dim cmd As New OleDb.OleDbCommand(CreateSQLSelect, dc)
 
 

            Try

                dc.Open()

                Dim dr As OleDbDataReader = cmd.ExecuteReader()

                If dr.HasRows Then

                    dr.Read()
 

                    CarID = dr("CarID")

                    CarNumb = Field2Str(dr("CarNumb"))

                    CarName = Field2Str(dr("CarName"))

                    CarColor = Field2Integer(dr("CarColor"))

                    ChassisID = Field2Integer(dr("ChassisID"))

                    CompetitionClassID = Field2Integer(dr("CompetitionClassID"))

                    EngineID = Field2Integer(dr("EngineID"))

                    CarJunctionID = Field2Integer(dr("CarJunctionID"))

                    CarColorText = Field2Str(dr("CarColorText"))

                    CarClassID = Field2Integer(dr("CarClassID"))

                    CarPicPath = Field2Str(dr("CarPicPath"))

##### I get the error on this next statement ##############

                    Dim cImage() As Byte = dr("CarPic")

                    If Not cImage Is Nothing Then

                        Try

                            Dim MSImage As New MemoryStream(cImage)

                            'This is the Picture Box in which we will display the image

                            Pan.BackgroundImage = Image.FromStream(MSImage)
 

                        Catch ex As Exception

                            Exit Try
 

                        End Try

                    End If
 

                End If

                dr.Close()

            Catch ex As Exception
 

                MessageBox.Show(ex.Message)

                Throw ex
 

            Finally

                dc.Close()
 

            End Try

        End If
 

    End Sub

Open in new window

0
Comment
Question by:Sheritlw
  • 2
3 Comments
 
LVL 9

Expert Comment

by:Deathrace
ID: 24135950
Hi,
Here are few articles...which solves your problem...
http://www.mvps.org/access/forms/frm0030.htm
http://www.mvps.org/access/forms/frm0044.htm

0
 

Author Comment

by:Sheritlw
ID: 24139958
I have read a lot of articles like you posted.  I need to know what is wrong with my code.
Thanks
0
 

Accepted Solution

by:
Sheritlw earned 0 total points
ID: 24141403
I found the solution.
Here's the code if anyone else is looking for it.
 Public Function UpdatePicture() As Integer
        Dim i As Integer
        Dim str As String

        If msCarPicPath = "" Then
           

            i = RemovePicture()
            Return i

        Else
            str = "Update Cars Set CarPic = @ImageData where " _
                & " carid = " & miCarID & ""


            Try
                Dim FSImage As New FileStream(msCarPicPath, FileMode.Open, FileAccess.Read)
                'Store it in Bytes
                Dim BTImage(FSImage.Length() - 1) As Byte
                FSImage.Read(BTImage, 0, BTImage.Length)
                FSImage.Close()
                Dim Prm As New OleDbParameter("@ImageData", OleDbType.VarBinary, BTImage.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, BTImage)

                Using cmd As New OleDbCommand(str, oleCnn)
                    cmd.Parameters.Add(Prm)
                    oleCnn.Open()
                    i = cmd.ExecuteNonQuery()
                    oleCnn.Close()
                End Using

                Return i

            Catch ex As Exception

                MessageBox.Show(ex.Message)
                Throw ex

            Finally
                If oleCnn.State = ConnectionState.Open Then
                    oleCnn.Close()
                End If
            End Try
        End If
    End Function
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Suggested Solutions

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now