Сохранение и извлечение изображения из mysql с помощью vb.net

Question

Этот код в настоящее время работает. я хочу, чтобы сохранить изображение в базе данных, пожалуйста, помогите мне, как я могу работать над этим

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     OpenFileDialog1.ShowDialog() 
    TextBox1.Text = OpenFileDialog1.FileName 
    CaptionTextBox.Text = OpenFileDialog1.SafeFileName 

    ' ImagePictureBox.Image = image.FromFile(TextBox1.Text) 
End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    updateRecord("insert into uploadimages(caption,image) values('" + CaptionTextBox.Text + "', '@ImagePictureBox')") 
End Sub 

Answer 1

 Imports MySql.Data.MySqlClient 
    Imports System.Drawing.Imaging 

    Dim cn As New MySqlConnection 
     Dim con As New MySqlConnection 
     Dim cmd As New MySqlCommand 
     Dim dr As MySqlDataReader 
     Dim da As MySqlDataAdapter 
     Dim dt As New DataTable 
     Dim abc As String 

    private sub from1() 
     cn.ConnectionString = "Server=localhost; user id=root; password=; database = school" 
    cmd.Connection = cn 
      cn.Open() 
    end sub 

Private Sub images() 
     Dim arrImage() As Byte 
     Dim strImage As String 
     Dim myMs As New IO.MemoryStream 
     If Not IsNothing(Me.PictureBox5.Image) Then 
      Me.PictureBox5.Image.Save(myMs, Me.PictureBox5.Image.RawFormat) 
      arrImage = myMs.GetBuffer 
      strImage = "1000" 
     Else 
      arrImage = Nothing 
      strImage = "NULL" 
     End If 
     cmd.CommandText = "INSERT INTO admision(name, photo) VALUES('" & Me.TextBox1.Text & "'," & _ 
           strImage & ")" 

     If strImage = "1000" Then 
      cmd.Parameters.Add(strImage, MySqlDbType.Blob).Value = arrImage 

     End If 

     MsgBox("Data save successfully!") 
     clear() 
     cmd.ExecuteNonQuery() 

     cn.Close() 

    End Sub