caricare immagini da datarow e visualizzarle in picturebox

[replika82]

Sul mio database ho una tabella di prodotti.
Ho tra i vari campi anche la foto da inserire.
Ho fatto la form di ins/mod/canc dei prodotti ed ho aggiunto una picturebox per la visualizzazione della foto.
in fase di visualizzazione non riesco però a leggere la foto dalla tabella del mio databse, come posso fare?
Dopo aver riempito la tabella prodotti e il datarow ho scritto una cosa del tipo:

picbox.image = dr("foto")

ma nno la legge.
Preciso che il database è già esistente e le foto sulla tabella prodotti sono state inserite tramite access ed il campo è un oggetto OLE.

[cassano]

posta il codice.

[replika82]

Questa è la form



questo è il codice:

Private Sub lst_prod_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_prod.SelectedIndexChanged

Dim cmd_select As New OleDbCommand("select * from prodotti", conn)
oda.SelectCommand = cmd_select

'riempo la tabella clienti
oda.Fill(ds, "prodotti")
dt_cli = ds.Tables("prodotti")

'dichiato la pk per la ricerca
Dim pk_prod(0) As DataColumn
pk_prod(0) = dt_prod.Columns("id")
dt_prod.PrimaryKey = pk_prod
dr_prod = dt_prod.Rows.Find(array_id_prod(lst_prod.SelectedI ndex))

'riempo le textbox
txt13.Text = dr_prod("descrizione")
txt14.Text = dr_prod("prezzo")
pic_box.image = dr_prod("foto")

End Sub

Il DB è fatto in access ed il campo foto è un oggetto OLE.

[cassano]

pic_box.image = dr_prod("foto")

prova con pic_box.image =image.fromstream( dr_prod("foto"))


vai anche qui

[replika82]

non va...
ho guardato ovunque...nno so dove mettere le mani

[cassano]

Qui trovi la soluzione !!!!

[replika82]

Risolto!!!
Grazie cocco

Posto la soluzione per chi fosse nel mio steso problema.

*** SALVATAGGIO IMMAGINE NEL CAMPO FOTO DI UN RECORD ***

Dim ms as New MemoryStream
picturebox.Image.Save(ms, picturebox.Image.RawFormat)
Dim array_immagine() as Byte = ms.GetBuffer
datarow_prodotti("foto") = array_immagine

*** RECUPERO IMMAGINI DAL DATABASE ***

Dim array_immagine as Byte = CType(datarow_prodotti("foto"), byte())
Dim ms as New MemoryStream(array_immagine)
picturebox.Image = image.FromStream(ms)
picturebox.SizeMode = PictureBoxSizeMode.CenterImage

[cassano]

Sono contento che ci sei riuscito