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

前端之家收集整理的这篇文章主要介绍了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,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,readerData.Length - 74)

这就是类别1的图片



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

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

原文链接:https://www.f2er.com/vb/256244.html

猜你在找的VB相关文章