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

使用vb.net从mysql保存和检索图像

1 个答案: