ВБ вам инфо/ магазин информация

---

Привет, у меня тут небольшая проблема.

Во-первых, когда моя форма загружается, она получает информацию из базы данных (ms accsses)
Но если я внесу некоторые изменения в текстовые поля и нажму кнопку Сохранить, он не прочитает picturebox, что на нем есть изображение.

Потому что когда форма загружается, она загружает изображение в Picturebox , тогда я просто хотел отредактировать какой-то текст и нажать кнопку Сохранить, а он мне этого не позволит, потому что picturebox для него пуст.

Давайте начнем с прочитанной информации:

Try
            With cmd
                Dim stream As New IO.MemoryStream()
                conn.Open()
                .Connection = conn
                .CommandText = "select cPicture from Table where ID=@uID"
                .Parameters.Add("@uID", OleDbType.Integer, 50).Value = TextBox6.Text
                Dim image As Byte() = DirectCast(cmd.ExecuteScalar(), Byte())
                stream.Write(image, 0, image.Length)
                Dim bitmap As New Bitmap(stream)
                PictureBox1.Image = bitmap '--->I have used another picturebox to display image from database.
                stream.Close()
                .Parameters.Clear()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            If conn IsNot Nothing Then
                conn.Close()
            End If
        End Try

Здесь мне покажут картинку внутри picturebox (результат в порядке)
Теперь о спасении :

Try
            With cmd
                Dim ms As New IO.MemoryStream()
                PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
                Dim arrimage() As Byte = ms.GetBuffer

                If Not PictureBox1.Image Is Nothing Then
                    MsgBox("missing")
                Else
                    MsgBox("has")
                End If
                conn.Open()
                .Connection = conn
                .CommandText = "UPDATE Table SET cName = @uName,cNumber = @uNumber,cSupplier = @uSupp,cStore = @uStore,cCount = @uCount,cPicture = @picture WHERE ID = 1"
                '.Parameters.Add("@uID", OleDbType.Integer).Value = TextBox6.Text
                .Parameters.Add("@uName", OleDbType.VarChar, 50).Value = TextBox1.Text
                .Parameters.Add("@uNumber", OleDbType.BigInt, 50).Value = TextBox2.Text
                .Parameters.Add("@uSupp", OleDbType.VarChar, 50).Value = TextBox3.Text
                .Parameters.Add("@uStore", OleDbType.VarChar, 50).Value = TextBox4.Text
                .Parameters.Add("@uCount", OleDbType.Integer, 50).Value = TextBox5.Text
                .Parameters.Add("@Picture", OleDbType.Binary).Value = arrimage
                .ExecuteNonQuery()
                .Parameters.Clear()
                ms.Close()
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            If conn IsNot Nothing Then
                conn.Close()
            End If
        End Try

И вот он дает мне сообщение:

MsgBox("missing")

И запрос требовал 6 вещей, чтобы внести изменения.
Как ее решить?

Что я уже пробовал:

не знаю точно, откуда берется проблема

---