bueno la cosa sería mas o menos ati:
Código:
Public Function GetImageFromDB(ByRef imageName As String) As Bitmap
Try
Dim conn As New OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand
Dim reader As OleDb.OleDbDataReader
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\YourDBFile.mdb;User Id=YourUsername;Password=YourPassword;"
conn.Open()
cmd = conn.CreateCommand()
cmd.CommandText = "SELECT YourColumnName FROM YourTable WHERE ColumnName = '" & imageName & "'"
reader = cmd.ExecuteReader
If reader.Read Then
Dim imgByteArray() As Byte
Try
imgByteArray = CType(reader(0), Byte())
Dim stream As New System.IO.MemoryStream(imgByteArray)
Dim bmp As New Bitmap(stream)
stream.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End If
reader.Close()
conn.Close()
cmd.Dispose()
conn.Dispose()
Return bmp
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
Esa es la función. Luego en el botón o en algun lado para ponerle la imagen al picture:
PictureBox1.Image = GetImageFromDB(TextBox1.Text)
TextBox1.Text es una caja de texto donde ingresas el nombre de la foto pero lo podrías adaptar para mander el ID de la foto u otro.
Espero te sea útil