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

拼搏现实的明天。 2022-09-11 05:23 192阅读 0赞

NorthWind数据库中，类别表的图片字段是OLE对象，打开表查看可以看到是一个Bitmap Image，实际就是一个二进制值：

双击某一个类别的Bitmap Image 可以打开画图查看图片：

那么我们现在需要将图片读出来。

设计界面如下：

先看代码：

Private Sub Button3\_Click(sender As Object, e As EventArgs) Handles Button3.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 ms As New MemoryStream()             ms = New MemoryStream(readerData)

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

代码简单讲解一下：  
1、建立连接，新建一个sql语句，建立command；  
2、定义一个DataReader，在这个例子里，datareader在Command。ExecuteReader的时候只需要单一结果；  
3、建立一个字节数组，并且使字节数组的值为 datareader(0)，也就是读取的二进制；  
4、创建一个内存流，将上一步读取的字节数组写入流；  
5、使用Image的FromStream方法创建一个image，并在图片框中显示；  
6、关闭流，关闭datareader，关闭连接。  
7、在程序中用到了try……catch……处理错误。

然后运行结果如下：

额。。。这是怎么回事呢？

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

学习更多vb.net知识，请参看[vb.net教程][vb.net] 目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/