如何在VB.NET（Windows窗体）中将PictureBox图像保存到SQL

Question

我需要保存一个窗体用户浏览图像&将其设置为PictureBox但在另一个按钮上，我需要将该图像保存到SQL Server。存储过程用INSERT命令（image数据类型）从桌面

浏览图片，图片框代码： -

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 

保存按钮代码

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 

但是当我运行表单时，它给了我错误“没有映射存在从对象类型System.Drawing.Bitmap到已知的托管提供程序本机类型”。

Answer 1

试试这个：（变化的MySqlConnection到的SQLConnection因为我在我的例子使用MySQL）

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 

然后使用它是这样的：

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