vb.net 教程 8-3 数据库操作9-3

当前位置:

首页 > 编程开发 > vb >

vb.net 教程 8-3 数据库操作9-3

经过上一节的分析，我们可以大胆的猜测一下：

罗斯文数据库中的图片，由于该字段是一个OLE对象，所以插入了一些不必要的数据。

我们只需要出现在42 4D及其后面的数据就可以获得真正的图片数据。

修改后的代码如下：

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Dim odc As New OleDbConnection()

odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=D:\save\博客教程\08 数据库\Northwind.mdb"

Dim sql As String = "select 图片 from 类别 where 类别ID=3"

Dim imageCmd As New OleDbCommand(sql, odc)

Dim datareader As OleDbDataReader

odc.Open()

Try

datareader = imageCmd.ExecuteReader(CommandBehavior.SequentialAccess And CommandBehavior.SingleResult)

Dim readerData() As Byte

datareader.Read()

readerData = datareader(0)

Dim destbyte() As Byte

ReDim destbyte(readerData.Length - 78)

Array.Copy(readerData, 78, destbyte, 0, readerData.Length - 78)

Dim ms As New MemoryStream()

ms = New MemoryStream(destbyte)

Dim img As Image = Image.FromStream(ms)

PictureBox1.Image = img

ms.Close()

Catch ex As Exception

MessageBox.Show(ex.Message)

Finally

datareader.Close()

odc.Close()

End Try

End Sub

这次来看看运行结果：

终于功夫不负有心人，读取到了正确的结果。

但

是

当我们想获得类别ID为1时候的图片时候：

Dim sql As String = "select 图片 from 类别 where 类别ID=1"

你会发现，又出错了。

来看看类别表中实际的数据情况（为了大家看的更清楚，我截断了部分中间的数据，用红色的表示）：

可以看到类别1的BMP头出现的位置和其他不一样。

但是经过实际对比发现，当类别ID=1时，获得的图片实际应该减去74个字节，

当类别ID为别的值时，获得的图片实际应该减去78个字节，暂时我未搞清楚为什么会出现这种情况

也就是当读取类别ID=1时候的图片，请使用以下代码替换之前对应代码

ReDim destbyte(readerData.Length - 74)

Array.Copy(readerData, 74, destbyte, 0, readerData.Length - 74)

这就是类别1的图片

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程目录

————————————————

原文链接：https://blog.csdn.net/uruseibest/article/details/78837203

栏目列表