Comment enregistrer PictureBox Image de SQL dans VB.NET ( Windows Form )

J'ai besoin d'enregistrer un formulaire à l'utilisateur de naviguer d'image & définir une PictureBox Mais sur un autre bouton que j'ai besoin d'enregistrer l'image à SQL Server .J'ai une procédure stockée avec Insert de Commande (avec l'Image Datatype)

Navigateur d'Image de l'ordinateur de Bureau, PictureBox Code :-

   Public Sub SelectImage()

        With OpenFileDialog1
            '.InitialDirectory = "C:\"
            .Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
            .FilterIndex = 4
        End With

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox1.BorderStyle = BorderStyle.Fixed3D

        End If
    End Sub

Bouton Enregistrer Code 

Public Sub Insert_Update_Personal()
        Dim UploadImage As Bitmap = PictureBox1.Image

        Dim ds As DataSet = New DataSet()
        Dim cmd As SqlCommand = New SqlCommand("sp_Insert_Update_Personal", con)
        con.Open()
        cmd.CommandType = CommandType.StoredProcedure

        cmd.Parameters.AddWithValue("@childrenage", TextBox10.Text)
        cmd.Parameters.AddWithValue("@picture", UploadImage)
        cmd.Parameters.AddWithValue("@hrcomments", TextBox5.Text)

        cmd.ExecuteNonQuery()
        con.Close()
        cmd.Dispose()
    End Sub

Mais Quand je lance le formulaire il me donne l'erreur "Pas de mapping existe de l'objet type de Système.De dessin.Bitmap à un fournisseur managé type natif."

  • Vous aurez besoin de convertir l'image dans un tableau d'octets avant de le pousser dans la base de données.
  • Aussi, le faire à partir de l'image d'origine, pas de la PictureBox.
InformationsquelleAutor Pankaj | 2012-02-02
  1. 1

    essayez ce qui suit: (Changement MySqlConnection de SQLConnection parce que je suis de l'utilisation de MySQL dans mon exemple)

        Public Shared Function ByteToImage(ByVal blob() As Byte) As Bitmap
        Dim mStream As New MemoryStream
        Dim pData() As Byte = DirectCast(blob, Byte())
        mStream.Write(pData, 0, Convert.ToInt32(pData.Length))
        Dim bm As Bitmap = New Bitmap(mStream, False)
        mStream.Dispose()
        Return bm
    End Function

    puis l'utiliser comme ceci:

    Private Function InsertImage(ByVal ImagePath As String, ByVal oIDNum As String) As Boolean
    Dim iPhoto() As Byte = jwImage.FileImageToByte(ImagePath)
    Dim xBool As Boolean = False
    Using xConn As New MySqlConnection(ConnectionClass.ConnectionString)
        Try
            Dim xComm As New MySqlCommand
            With xComm
                .CommandText = "InsertImage"
                .Connection = xConn
                .CommandType = CommandType.StoredProcedure

                .Parameters.AddWithValue("xID", oIDNum)
                .Parameters.AddWithValue("xImage", iPhoto)
            End With

            xConn.Open()
            xComm.ExecuteNonQuery()
            xComm.Dispose()
            xBool = True
        Catch ex As MySqlException
            MessageBox.Show(ex.Message, "MySQL Error: " & ex.Number, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            xBool = False
        End Try
    End Using

    Return xBool
End Function
    • Salut Merci je veux Juste savoir ce qui est "jwImage" est-il un contrôle PictureBox ID?
    • Pouvez-vous nous expliquer cette ligne Dim iPhoto() as Byte = jwImage.FileImageToByte(ImagePath) Aussi lorsque j'appelle cette fonction "ByteToImage"
    • jwImage est un nom d'une classe. FileImageToByte comme le nom le dit, il convertit une Image en Tableau d'Octets.
    InformationsquelleAutor John Woo