fetch image data from access database to picture box in vb.net

[Abhishek]

can anybody tell how to fetch image from database(access ) to the
visual basic picture box control. the code i have been using is as
below but it gives me invalid paramter error....

Dim connection As New OleDb.OleDbConn ection()
Dim cmd As New OleDb.OleDbComm and()
cmd.CommandText = "select ID,Name,Descrip tion,Image from
MASTER where ID like '" & Trim(cmbID.Text ) & "'"
cmd.Connection = connection
Dim myReader As OleDb.OleDbData Reader
cmd.CommandType = CommandType.Tex t
openOLEDBconnec tion(SQL_CONNEC TION_STRING, connection)
myReader =
cmd.ExecuteRead er(CommandBehav ior.CloseConnec tion)
While myReader.Read()
txtId.Text = myReader(0)
txtName.Text = myReader(1).ToS tring()
txtDescription. Text = myReader(2).ToS tring()
If Not IsDBNull(myRead er(3)) Then
Try
Try
Dim a(myReader.GetB ytes(3, 0, Nothing, 0,
Integer.MaxValu e) - 1) As Byte
myReader.GetByt es(3, 0, a, 0, a.Length)
Dim b As New MemoryStream(a)
With pbImage
.Image = image.FromStrea m(b)
.SizeMode =
PictureBoxSizeM ode.CenterImage
.BorderStyle = BorderStyle.Fix ed3D
End With
Catch exp As Exception
MsgBox(exp.Mess age)
End Try
Catch exp As System.InvalidC astException
MsgBox(exp.Mess age)
End Try
End If
End While
myReader.Close( )

[Cor]

Hi Abhisek,

It has mostly to do with the enclosing from a image in an access file in an
object.

I once copied some code and have tried that to paste in your code, give it a
try?
(You have yourself to set it right in the try block again)

I did not test it, I just pasted it in, so please tell if it did work, than
I know that also?

Cor
\\\
Dim connection As New OleDb.OleDbConn ection()
Dim cmd As New OleDb.OleDbComm and()
cmd.CommandText = "select ID,Name,Descrip tion,Image from
MASTER where ID like '" & Trim(cmbID.Text ) & "'"
connection.open
Dim dr As OleDbDataReader =
cmd.ExecuteRead er(CommandBehav ior.SequentialA ccess)
dr.Read()
Dim FieldLen As Integer = dr.Item(1).ToSt ring.Length
Dim a(FieldLen - 1) As Byte
Dim startIndex As Integer = 0
dim RetVal as long = dr.GetBytes(1, startIndex, a, 0, a.Length)
dr.Close()
connection.Clos e()
connection.disp ose
Dim b As New MemoryStream(a)

With pbImage
.Image = image.FromStrea m(b)
.SizeMode =
PictureBoxSizeM ode.CenterImage
.BorderStyle = BorderStyle.Fix ed3D
End With
Catch exp As Exception
MsgBox(exp.Mess age)
End Try
Catch exp As System.InvalidC astException
MsgBox(exp.Mess age)
End Try
End If
End While

[Abhishek]

no it is not working that way also.
i have also tried the code given on microsoft site given below but it
also gives me the same error. am i missing somthing else. please help

Dim da As New OleDb.OleDbData Adapter(cmd)
Dim ds As New DataSet()
da.Fill(ds, "MASTER")
Dim c As Integer = ds.Tables("MAST ER").Rows.Cou nt
If c > 0 Then
Dim bytBLOBData() As Byte = _
ds.Tables("MAST ER").Rows(c - 1)("Image")
Dim stmBLOBData As New MemoryStream(by tBLOBData)
pbImage.Image = Image.FromStrea m(stmBLOBData)
end if

[Cor]

Hi Abhishek,

This code is for a standard blob not embeded in an ole object.
I do not know if you have that, however you can try to change this. It is
also better to always use Option Strict On, than this kind of problems (when
it is that) shows earlier

Ctype(ds.Tables ("MASTER").Rows (c - 1)("Image"),Byt e())

I hope this Helps?

Cor

[Paul Clement]

On 3 Apr 2004 23:52:42 -0800, ab******@netsca pe.net (Abhishek) wrote:

¤ can anybody tell how to fetch image from database(access ) to the
¤ visual basic picture box control. the code i have been using is as
¤ below but it gives me invalid paramter error....
¤
¤ Dim connection As New OleDb.OleDbConn ection()
¤ Dim cmd As New OleDb.OleDbComm and()
¤ cmd.CommandText = "select ID,Name,Descrip tion,Image from
¤ MASTER where ID like '" & Trim(cmbID.Text ) & "'"
¤ cmd.Connection = connection
¤ Dim myReader As OleDb.OleDbData Reader
¤ cmd.CommandType = CommandType.Tex t
¤ openOLEDBconnec tion(SQL_CONNEC TION_STRING, connection)
¤ myReader =
¤ cmd.ExecuteRead er(CommandBehav ior.CloseConnec tion)
¤ While myReader.Read()
¤ txtId.Text = myReader(0)
¤ txtName.Text = myReader(1).ToS tring()
¤ txtDescription. Text = myReader(2).ToS tring()
¤ If Not IsDBNull(myRead er(3)) Then
¤ Try
¤ Try
¤ Dim a(myReader.GetB ytes(3, 0, Nothing, 0,
¤ Integer.MaxValu e) - 1) As Byte
¤ myReader.GetByt es(3, 0, a, 0, a.Length)
¤ Dim b As New MemoryStream(a)
¤ With pbImage
¤ .Image = image.FromStrea m(b)
¤ .SizeMode =
¤ PictureBoxSizeM ode.CenterImage
¤ .BorderStyle = BorderStyle.Fix ed3D
¤ End With
¤ Catch exp As Exception
¤ MsgBox(exp.Mess age)
¤ End Try
¤ Catch exp As System.InvalidC astException
¤ MsgBox(exp.Mess age)
¤ End Try
¤ End If
¤ End While
¤ myReader.Close( )

Couple of questions. What is the Access data type of the column that this image is stored in? How
was is originally stored?
Paul ~~~ pc******@amerit ech.net
Microsoft MVP (Visual Basic)

[Paul Clement]

On 3 Apr 2004 23:52:42 -0800, ab******@netsca pe.net (Abhishek) wrote:

¤ can anybody tell how to fetch image from database(access ) to the
¤ visual basic picture box control. the code i have been using is as
¤ below but it gives me invalid paramter error....
¤
¤ Dim connection As New OleDb.OleDbConn ection()
¤ Dim cmd As New OleDb.OleDbComm and()
¤ cmd.CommandText = "select ID,Name,Descrip tion,Image from
¤ MASTER where ID like '" & Trim(cmbID.Text ) & "'"
¤ cmd.Connection = connection
¤ Dim myReader As OleDb.OleDbData Reader
¤ cmd.CommandType = CommandType.Tex t
¤ openOLEDBconnec tion(SQL_CONNEC TION_STRING, connection)
¤ myReader =
¤ cmd.ExecuteRead er(CommandBehav ior.CloseConnec tion)
¤ While myReader.Read()
¤ txtId.Text = myReader(0)
¤ txtName.Text = myReader(1).ToS tring()
¤ txtDescription. Text = myReader(2).ToS tring()
¤ If Not IsDBNull(myRead er(3)) Then
¤ Try
¤ Try
¤ Dim a(myReader.GetB ytes(3, 0, Nothing, 0,
¤ Integer.MaxValu e) - 1) As Byte
¤ myReader.GetByt es(3, 0, a, 0, a.Length)
¤ Dim b As New MemoryStream(a)
¤ With pbImage
¤ .Image = image.FromStrea m(b)
¤ .SizeMode =
¤ PictureBoxSizeM ode.CenterImage
¤ .BorderStyle = BorderStyle.Fix ed3D
¤ End With
¤ Catch exp As Exception
¤ MsgBox(exp.Mess age)
¤ End Try
¤ Catch exp As System.InvalidC astException
¤ MsgBox(exp.Mess age)
¤ End Try
¤ End If
¤ End While
¤ myReader.Close( )

Couple of questions. What is the Access data type of the column that this image is stored in? How
was is originally stored?
Paul ~~~ pc******@amerit ech.net
Microsoft MVP (Visual Basic)

[Abhishek]

The Image is Stored in access database in OLE Type of Column. it was
stored using the access form wizard.

can the image data retrieved from access be in wrong format?

Paul Clement <Us************ ***********@sws pectrum.com> wrote in message news:<h0******* *************** **********@4ax. com>...

On 3 Apr 2004 23:52:42 -0800, ab******@netsca pe.net (Abhishek) wrote:

¤ can anybody tell how to fetch image from database(access ) to the
¤ visual basic picture box control. the code i have been using is as
¤ below but it gives me invalid paramter error....
¤
¤ Dim connection As New OleDb.OleDbConn ection()
¤ Dim cmd As New OleDb.OleDbComm and()
¤ cmd.CommandText = "select ID,Name,Descrip tion,Image from
¤ MASTER where ID like '" & Trim(cmbID.Text ) & "'"
¤ cmd.Connection = connection
¤ Dim myReader As OleDb.OleDbData Reader
¤ cmd.CommandType = CommandType.Tex t
¤ openOLEDBconnec tion(SQL_CONNEC TION_STRING, connection)
¤ myReader =
¤ cmd.ExecuteRead er(CommandBehav ior.CloseConnec tion)
¤ While myReader.Read()
¤ txtId.Text = myReader(0)
¤ txtName.Text = myReader(1).ToS tring()
¤ txtDescription. Text = myReader(2).ToS tring()
¤ If Not IsDBNull(myRead er(3)) Then
¤ Try
¤ Try
¤ Dim a(myReader.GetB ytes(3, 0, Nothing, 0,
¤ Integer.MaxValu e) - 1) As Byte
¤ myReader.GetByt es(3, 0, a, 0, a.Length)
¤ Dim b As New MemoryStream(a)
¤ With pbImage
¤ .Image = image.FromStrea m(b)
¤ .SizeMode =
¤ PictureBoxSizeM ode.CenterImage
¤ .BorderStyle = BorderStyle.Fix ed3D
¤ End With
¤ Catch exp As Exception
¤ MsgBox(exp.Mess age)
¤ End Try
¤ Catch exp As System.InvalidC astException
¤ MsgBox(exp.Mess age)
¤ End Try
¤ End If
¤ End While
¤ myReader.Close( )

Couple of questions. What is the Access data type of the column that this image is stored in? How
was is originally stored?
Paul ~~~ pc******@amerit ech.net
Microsoft MVP (Visual Basic)

[Abhishek]

The Image is Stored in access database in OLE Type of Column. it was
stored using the access form wizard.

can the image data retrieved from access be in wrong format?

Paul Clement <Us************ ***********@sws pectrum.com> wrote in message news:<h0******* *************** **********@4ax. com>...

On 3 Apr 2004 23:52:42 -0800, ab******@netsca pe.net (Abhishek) wrote:

¤ can anybody tell how to fetch image from database(access ) to the
¤ visual basic picture box control. the code i have been using is as
¤ below but it gives me invalid paramter error....
¤
¤ Dim connection As New OleDb.OleDbConn ection()
¤ Dim cmd As New OleDb.OleDbComm and()
¤ cmd.CommandText = "select ID,Name,Descrip tion,Image from
¤ MASTER where ID like '" & Trim(cmbID.Text ) & "'"
¤ cmd.Connection = connection
¤ Dim myReader As OleDb.OleDbData Reader
¤ cmd.CommandType = CommandType.Tex t
¤ openOLEDBconnec tion(SQL_CONNEC TION_STRING, connection)
¤ myReader =
¤ cmd.ExecuteRead er(CommandBehav ior.CloseConnec tion)
¤ While myReader.Read()
¤ txtId.Text = myReader(0)
¤ txtName.Text = myReader(1).ToS tring()
¤ txtDescription. Text = myReader(2).ToS tring()
¤ If Not IsDBNull(myRead er(3)) Then
¤ Try
¤ Try
¤ Dim a(myReader.GetB ytes(3, 0, Nothing, 0,
¤ Integer.MaxValu e) - 1) As Byte
¤ myReader.GetByt es(3, 0, a, 0, a.Length)
¤ Dim b As New MemoryStream(a)
¤ With pbImage
¤ .Image = image.FromStrea m(b)
¤ .SizeMode =
¤ PictureBoxSizeM ode.CenterImage
¤ .BorderStyle = BorderStyle.Fix ed3D
¤ End With
¤ Catch exp As Exception
¤ MsgBox(exp.Mess age)
¤ End Try
¤ Catch exp As System.InvalidC astException
¤ MsgBox(exp.Mess age)
¤ End Try
¤ End If
¤ End While
¤ myReader.Close( )

Couple of questions. What is the Access data type of the column that this image is stored in? How
was is originally stored?
Paul ~~~ pc******@amerit ech.net
Microsoft MVP (Visual Basic)

[Paul Clement]

On 5 Apr 2004 16:50:45 -0700, ab******@netsca pe.net (Abhishek) wrote:

¤ The Image is Stored in access database in OLE Type of Column. it was
¤ stored using the access form wizard.
¤
¤ can the image data retrieved from access be in wrong format?

I'm trying to determine whether the image was stored as an OLE object, which would mean that it
contains OLE headers. This makes the retrieval somewhat more difficult.

Do you know whether it was stored as an OLE object or was it written as a binary stream from a file?
Also, what type of image is this? BMP? JPG?
Paul ~~~ pc******@amerit ech.net
Microsoft MVP (Visual Basic)

[Paul Clement]

On 5 Apr 2004 16:50:45 -0700, ab******@netsca pe.net (Abhishek) wrote:

¤ The Image is Stored in access database in OLE Type of Column. it was
¤ stored using the access form wizard.
¤
¤ can the image data retrieved from access be in wrong format?

I'm trying to determine whether the image was stored as an OLE object, which would mean that it
contains OLE headers. This makes the retrieval somewhat more difficult.

Do you know whether it was stored as an OLE object or was it written as a binary stream from a file?
Also, what type of image is this? BMP? JPG?
Paul ~~~ pc******@amerit ech.net
Microsoft MVP (Visual Basic)