vb.net 教程 8-3 数据库操作9-2
发布时间:2020-12-16 23:51:35 所属栏目:大数据 来源:网络整理
导读:上一节我们看到在程序运行的时候出现了错误,为什么读取二进制数据会出现错误呢? 我重新改写了一下代码,测试读取的二进制数据: Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.Click Dim odc As New OleDbConnection() odc
上一节我们看到在程序运行的时候出现了错误,为什么读取二进制数据会出现错误呢? 我重新改写了一下代码,测试读取的二进制数据: Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.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 sw As New StreamWriter("d:ddd.txt",False) Dim hexData As String For i As Integer = 0 To readerData.Length - 1 If (i + 1) Mod 8 = 0 Then hexData = Hex(readerData(i)) sw.Write(IIf(hexData.Length = 1,"0" & hexData,hexData)) sw.Write(ControlChars.CrLf) Else hexData = Hex(readerData(i)) sw.Write(IIf(hexData.Length = 1,hexData) & " ") End If Next sw.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally datareader.Close() odc.Close() End Try End Sub于是在D盘下创建了一个ddd.txt,打开文件可以看到我们已经将数据成功读出并写入了该文件 根据BMP文件的格式可知,BMP前两个字节是BMP文件头,为"BM",对应的十六进制值为 42 4D 可是我们获得的数据前两个字节并不是424D,但是经过仔细查看会发现数据中间有42 4D 出现在第79字节处: 由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。 学习更多vb.net知识,请参看vb.net 教程 目录 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |