net+oracle存贮图片

最新推荐文章于 2024-04-03 16:38:47 发布

原创最新推荐文章于 2024-04-03 16:38:47 发布 · 451 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#oracle #exception #function #dataset #string #stream

VB.NET 同时被 2 个专栏收录

41 篇文章

订阅专栏

ORACLE

10 篇文章

订阅专栏

本文介绍了一种使用Visual Basic实现的方法，该方法能够将图片转换为字节信息，并将其保存到Oracle数据库中。具体步骤包括从PictureBox获取图片，将其转换为BMP格式的字节数组，然后使用OracleDataAdapter和OracleCommand更新数据库中的照片。

temp = xclsywcl.SavePhoto2(txtsfzhm.Text, Photosbinary())
                    If temp = "" Then
                        MsgBox("新增成功")
                        txtsfzhm.Focus()
                    Else
                        MsgBox("更新照片时发生错误,错误原因:" & temp)
                    End If

'将图片转化为字节信息
    Private Function Photosbinary() As Byte()
       Try
            Dim image As New Bitmap(PictureBox1.Image)
            Dim stream As New MemoryStream
            image.Save(stream, System.Drawing.Imaging.ImageFormat.Bmp)
            Return stream.ToArray()

        Catch ex As Exception
            Return Nothing
        End Try

End Function

        Public Function SavePhoto2(ByVal data_id As String, ByVal p_Blob As Byte()) As String
            Dim cn As OracleConnection = New OracleConnection(GetConn2) 'oracle数据库
            Try
                cn.Open()
                Dim photoadapter As OracleDataAdapter
                photoadapter = New OracleDataAdapter("SELECT * FROM drv_photo WHERE sfzmhm ='" + data_id + "'", cn)
                Dim photoDataSet As New DataSet("drv_photo")
                photoadapter.Fill(photoDataSet, "drv_photo")
                Dim updatesql As String = "UPDATE drv_photo SET zp=:vPHOTO WHERE sfzmhm='" + data_id + "'"
                Dim updatecmd As New OracleCommand(updatesql, cn)
                photoadapter.UpdateCommand = updatecmd
                photoadapter.UpdateCommand.Parameters.Add(":vPHOTO", OracleType.Blob, p_Blob.Length, "ZP")
                photoadapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
                photoadapter.FillSchema(photoDataSet, SchemaType.Source, "drv_photo")
                photoadapter.Fill(photoDataSet, "drv_photo")
                Dim phototable As DataTable                         'table
                Dim photoRow As DataRow                                'datarow
                phototable = photoDataSet.Tables("drv_photo")
                photoRow = phototable.Rows(0)
                photoRow.BeginEdit()
                photoRow("zp") = p_Blob
                photoRow.EndEdit()
                photoadapter.Update(photoDataSet, "drv_photo")
                Return ""
            Catch e As Exception
                Return e.ToString
            Finally
                cn.Close()
            End Try
        End Function