من در انجمن جستجو کردم برای ذخیره عکس این کد را پیدا کردم و درست کار می کنه و مشکلی نداری حالا میخوام که این عکس را در PictureBox2 نمایش بدم چطور این کار را کنم
در صورتی که نمونه کدی برای هم ذخیره هم نمایش دارید لطفا دریغ نفرمایید
چطور عکس را بازخوانی کنم
من عکسمم را با این کد در دیتابیس اکسس ذخیره کردم
       Dim ms As New IO.MemoryStream

        PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)

        Dim arrImage() As Byte = ms.GetBuffer

 

        ms.Close()

 

        Dim isConnecting As Boolean = True

        Dim imageStream As IO.MemoryStream = New IO.MemoryStream()

        While isConnecting

            Try

 

                Dim Connection As New OleDb.OleDbConnection("Provider=microsoft.jet.oled  b.4.0; data source=" & AppPath & ";Jet OLEDB:Database Password=7921496;")

                Dim str_insert As String = _

      "INSERT INTO `User Data` (imag)" & _

      "VALUES (@image)"

 

 

                Dim cmd As New OleDb.OleDbCommand(str_insert, Connection)

                cmd.Parameters.Add(New OleDb.OleDbParameter("@image", arrImage)) '.Value = arrImage

 

                Connection.Open()

                cmd.ExecuteNonQuery()

                Connection.Close()

 

 

                isConnecting = False

 

                MsgBox("image saved")

 

            Catch Exc As OleDb.OleDbException

                MessageBox.Show(Exc.ToString, " Exception Error!", _

               MessageBoxButtons.OK, MessageBoxIcon.Error)

                Exit While

            Catch exc As Exception

 

            End Try

        End While


وبرای ذخیره از این کد
Dim strConnectionString AsString = "Provider=microsoft.jet.oledb.4.0; data source=" & AppPath & ";Jet OLEDB:Database Password=7921496;"
Dim ConnectionName AsNew OleDb.OleDbConnection(strConnectionString)
Dim CommandName As OleDb.OleDbCommand
ConnectionName.Open()
CommandName = New OleDb.OleDbCommand("SELECT `imag` FROM `User Data`", ConnectionName)
CommandName.CommandType = CommandType.Text
Try
Dim Bt() AsByte = CType(CommandName.ExecuteScalar(), Byte())
Dim Mb AsNew System.IO.MemoryStream(Bt)
PictureBox2.Image = Image.FromStream(Mb)
Catch ex As Exception
MsgBox(ex.Message)
EndTry
ConnectionName.Close()