Saving pics in Access

[Brad Allison]

I am using a small Access database as the back end of a VB .NET program. I
am not a newbie to Access, but I have never had the need to store pictures
until now. I have a field in a Master table named "Picture" and I have set
the Date Type as OLE Object. I know that this might be the wrong newsgroup
to post this to, but I was wondering if this is the correct data type to
handle pictures.

I use the following to store the pic in the datarow:
dogRow.Item("Pi cture") = CType(pbDog.Ima ge, Bitmap)

The error message I am getting is this: Object must inplement IConvertible

Thanks for the information.

Brad

[William Ryan eMVP]

Hi Brad:

That's not going to work b/c you need to read it in as a stream.
http://www.vbdotnetheaven.com/Code/Sept2003/2175.asp

HTH,

Bill
www.devbuzz.com
www.knowdotnet.com

"Brad Allison" <tr*******@sbcg lobal.net> wrote in message
news:Om******** *****@TK2MSFTNG P10.phx.gbl...

I am using a small Access database as the back end of a VB .NET program. I am not a newbie to Access, but I have never had the need to store pictures
until now. I have a field in a Master table named "Picture" and I have set the Date Type as OLE Object. I know that this might be the wrong newsgroup to post this to, but I was wondering if this is the correct data type to
handle pictures.

I use the following to store the pic in the datarow:
dogRow.Item("Pi cture") = CType(pbDog.Ima ge, Bitmap)

The error message I am getting is this: Object must inplement IConvertible
Thanks for the information.

Brad

[Herfried K. Wagner [MVP]]

* "Brad Allison" <tr*******@sbcg lobal.net> scripsit:

I am using a small Access database as the back end of a VB .NET program. I
am not a newbie to Access, but I have never had the need to store pictures
until now. I have a field in a Master table named "Picture" and I have set
the Date Type as OLE Object. I know that this might be the wrong newsgroup
to post this to, but I was wondering if this is the correct data type to
handle pictures.

I use the following to store the pic in the datarow:
dogRow.Item("Pi cture") = CType(pbDog.Ima ge, Bitmap)

The error message I am getting is this: Object must inplement IConvertible

\\\
Dim b As New Bitmap("C:\WIND OWS\Angler.bmp" )
Dim ms As New MemoryStream
b.Save(ms, ImageFormat.Bmp )
Dim abyt(ms.Length - 1) As Byte

' Let's assume that 'abyt' is a byte array containing bitmap data read
' from the db after filling it...

ms.Seek(0, SeekOrigin.Begi n)
ms.Read(abyt, 0, ms.Length)

' Byte array is filled.

Dim mx As New MemoryStream(ab yt)
Me.BackgroundIm age = Bitmap.FromStre am(mx)

' Keep the memory stream upen until you don't need the image any more.
///

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[scorpion53061]

\\\
Dim b As New Bitmap("C:\WIND OWS\Angler.bmp" )

Herfried,

Does the picture have to be a bitmap to do this?

[Herfried K. Wagner [MVP]]

scorpion53061 schrieb:

\\\
Dim b As New Bitmap("C:\WIND OWS\Angler.bmp" )

Does the picture have to be a bitmap to do this?

No, not necessarily. It will work with JPEG, GIF, PNG, and maybe TIFF, too.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Cor Ligthert]

Hi Bard,

Every thing you want to know about it reading/writting, used is a xml
dataset.

In this complete example is everything skipped that is not really needed.
(Which are often in others samples about this, however not the Herfried one)

I hope this helps?

Cor

Private abyt() As Byte
Private fo As New OpenFileDialog
Private sf As New SaveFileDialog
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
'Reading a picture and put it in a bytearray
If fo.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(f o.FileName, _
IO.FileMode.Ope n)
Dim br As New IO.BinaryReader (fs)
abyt = br.ReadBytes(CI nt(fs.Length))
br.Close()
'just to show the sample without a fileread error
Dim ms As New IO.MemoryStream (abyt)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End If
End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal _
e As System.EventArg s) Handles Button2.Click
'writing a picture from a bytearray
If sf.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(s f.FileName, _
IO.FileMode.Cre ateNew)
Dim bw As New IO.BinaryWriter (fs)
bw.Write(abyt)
bw.Close()
End If
End Sub

Private Sub Button3_Click(B yVal sender As System.Object, ByVal _
e As System.EventArg s) Handles Button3.Click
'writing a bytearray to a dataset
Dim ds As New DataSet
ds.Tables.Add(N ew DataTable("Phot o"))
ds.Tables(0).Co lumns.Add(New DataColumn("Sam ple"))
ds.Tables(0).Co lumns(0).DataTy pe =
System.Type.Get Type("System.By te[]")
ds.Tables(0).Ro ws.Add(ds.Table s(0).NewRow)
ds.Tables(0).Ro ws(0)(0) = abyt
Dim sf As New SaveFileDialog
If sf.ShowDialog = DialogResult.OK Then
ds.WriteXml(sf. FileName, XmlWriteMode.Wr iteSchema)
End If
End Sub

Private Sub Button4_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button4.Click
'reading a picture from a dataset
Dim ds As New DataSet
If fo.ShowDialog = DialogResult.OK Then
ds.ReadXml(fo.F ileName)
End If
abyt = CType(ds.Tables (0).Rows(0)(0), Byte())
Dim ms As New IO.MemoryStream (abyt)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End Sub

[Brad Allison]

Thanks for the responses. I will try this code when I get home tonight.

Brad

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Hi Bard,

Every thing you want to know about it reading/writting, used is a xml
dataset.

In this complete example is everything skipped that is not really needed.
(Which are often in others samples about this, however not the Herfried one)
I hope this helps?

Cor

Private abyt() As Byte
Private fo As New OpenFileDialog
Private sf As New SaveFileDialog
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
'Reading a picture and put it in a bytearray
If fo.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(f o.FileName, _
IO.FileMode.Ope n)
Dim br As New IO.BinaryReader (fs)
abyt = br.ReadBytes(CI nt(fs.Length))
br.Close()
'just to show the sample without a fileread error
Dim ms As New IO.MemoryStream (abyt)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End If
End Sub

Private Sub Button2_Click(B yVal sender As System.Object, ByVal _
e As System.EventArg s) Handles Button2.Click
'writing a picture from a bytearray
If sf.ShowDialog = DialogResult.OK Then
Dim fs As New IO.FileStream(s f.FileName, _
IO.FileMode.Cre ateNew)
Dim bw As New IO.BinaryWriter (fs)
bw.Write(abyt)
bw.Close()
End If
End Sub

Private Sub Button3_Click(B yVal sender As System.Object, ByVal _
e As System.EventArg s) Handles Button3.Click
'writing a bytearray to a dataset
Dim ds As New DataSet
ds.Tables.Add(N ew DataTable("Phot o"))
ds.Tables(0).Co lumns.Add(New DataColumn("Sam ple"))
ds.Tables(0).Co lumns(0).DataTy pe =
System.Type.Get Type("System.By te[]")
ds.Tables(0).Ro ws.Add(ds.Table s(0).NewRow)
ds.Tables(0).Ro ws(0)(0) = abyt
Dim sf As New SaveFileDialog
If sf.ShowDialog = DialogResult.OK Then
ds.WriteXml(sf. FileName, XmlWriteMode.Wr iteSchema)
End If
End Sub

Private Sub Button4_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button4.Click
'reading a picture from a dataset
Dim ds As New DataSet
If fo.ShowDialog = DialogResult.OK Then
ds.ReadXml(fo.F ileName)
End If
abyt = CType(ds.Tables (0).Rows(0)(0), Byte())
Dim ms As New IO.MemoryStream (abyt)
Me.PictureBox1. Image = Image.FromStrea m(ms)
End Sub