vb.net 教程 8-3 数据库操作9-3
发布时间:2020-12-16 23:51:34 所属栏目:大数据 来源:网络整理
导读:经过上一节的分析,我们可以大胆的猜测一下: 罗斯文数据库中的图片,由于该字段是一个OLE对象,所以插入了一些不必要的数据。 我们只需要出现在42 4D及其后面的数据就可以获得真正的图片数据。 修改后的代码如下: Private Sub Button5_Click(sender As Obj
经过上一节的分析,我们可以大胆的猜测一下: 罗斯文数据库中的图片,由于该字段是一个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博客教程 8 数据库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,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=1时候的图片,请使用以下代码替换之前对应代码 ReDim destbyte(readerData.Length - 74) Array.Copy(readerData,74,readerData.Length - 74) 这就是类别1的图片 由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看vb.net 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |