VB.NET显示ORACLE数据库BLOB类型图片

2009-04-17 03:08:31 407 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

bfly2000 墨衍会员 · AI 创作全网分发关注 + 加入社区

数据库国产化探究及升级改造过程指导当前官网最新版本为DM8，相较于目前主流产品架构：不同特性依靠不同内核去实现，DM8独特采用了双存储引擎架构，行存储引擎和列存储引擎可相互配合、协同工作。同时实现了计算层和存储层的分离，同一内核既支持共享存储式集群，也支持分布式事务集群。阅读详情

保存picturebox图像至ORACLE BLOB型字段没有问题：
Dim imgData(0) As Byte
Dim ms As New System.IO.MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
ReDim imgData(ms.Length - 1)
ms.Read(imgData, 0, ms.Length)
ms.Close()

Dim strSQL As String
strSQL ="insert into member_photo(pernr,photo) values ('" & txtPERNR.Text & "',:photo)"
Dim sqlCom As New OracleCommand
sqlCom.CommandText = strSQL
sqlCom.Connection = Conn
sqlCom.Parameters.Add("photo", OracleType.Blob, imgData.Length)
sqlCom.Parameters(0).Value = imgData
sqlCom.ExecuteNonQuery()

但提取BLOB字段内容至PictureBox框报错：
Dim strSQL As String
strSQL = "select photo from member_photo where pernr='" & txtPERNR.Text & "'"
Dim cmd As OracleCommand = New OracleCommand(strSQL, Conn)
Dim dr As OracleDataReader = cmd.ExecuteReader()
If dr.Read() Then
Dim imgData() As Byte = dr.Item(0)
Dim ms As MemoryStream
ms = New MemoryStream(imgData)
Dim imageBlob As Image = Image.FromStream(ms)　' 这边报错：未处理ArgumentException 参数无效。
PictureBox1.Image = imageBlob
ms.Close()
Else
PictureBox1.Image = Nothing
End If

...全文