vb.net 使用Access数据库 保存和读取图片文件
来源:互联网 发布:网络正常一直卡顿 编辑:程序博客网 时间:2024/04/29 11:02
不好意思忘记是转帖那位网友的。
下面是一个简单的演示
Access数据库
字段名称 数据类型
编号 自动编号
pic OLE 对象
Public Class Form1
Dim Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:/db.mdb")
Dim Cmd As New OleDb.OleDbCommand
Dim DataRd As OleDb.OleDbDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cmd.Connection = Conn
Cmd.Parameters.Add(New OleDb.OleDbParameter)
End Sub
'添加图片
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim OpenDialog As New OpenFileDialog
If OpenDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim da() As Byte
da = My.Computer.FileSystem.ReadAllBytes(OpenDialog.FileName)
Cmd.CommandText = "insert into biao(pic) values(?)"
Cmd.Parameters(0).Value = da
Conn.Open()
If Cmd.ExecuteNonQuery > 0 Then
MsgBox("添加图片成功")
End If
Conn.Close()
End If
End Sub
'读取图片
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Cmd.CommandText = "select pic from biao where 编号=1" '注意选择编号
Conn.Open()
DataRd = Cmd.ExecuteReader
If DataRd.Read Then
Dim da() As Byte
da = DataRd(0)
PictureBox1.Image = Bitmap.FromStream(New IO.MemoryStream(da))
End If
DataRd.Close()
Conn.Close()
End Sub
End Class
- vb.net 使用Access数据库 保存和读取图片文件
- VB.NET操作ACCESS数据库读取存入图片
- 关于vb.net读取access数据库中的位图图片问题
- VB保存图片文件到数据库
- 使用.NET从SQL服务器保存和读取图片
- [VB.NET]急求解答!怎样读取access中的图片
- delphi 中操作 图片保存读取access数据库
- .net实现图片保存到数据库和从数据库中读取图片-z
- VB读取本地图片并保存到数据库中
- VB直接保存和显示ACCESS数据库中的图像数据
- 保存Excel文件、获取表的名称——Visual C#读取Excel和Access数据库
- 图片保存到数据及从数据库读出(winform,c# 和vb.net)
- 用VB.NET 如果将任何文件以二进制形式保存在数据库,然后再从数据库读取出来
- VB6 保存和读取图片到数据库
- 数据库如何保存和读取图片
- 使用vb.net读取xml文件
- vb.net Access 读写图片
- VB.NET Winform显示保存在数据库中的图片
- Javascript用Url传递参数出现中文乱码的解决方法
- 难道是悲哀的开始吗
- 500强公司面试的经典正确与错误回答对比!!! 看看你的弱点
- Install Samba on Debian
- Lucene.Net索引的建立
- vb.net 使用Access数据库 保存和读取图片文件
- (23):Silverlight与HTML混合之无窗口模式
- web报Mirosoft OLE DB Provider for ODBC Drivers 错误 '80040e31' 错误
- (24):Silverlight 2 与浏览器交互相关辅助方法
- (25):Silverlight 2 综合实例之Live Search
- (26):Silverlight 2 基本图形
- (27):Silverlight 2 使用Brush进行填充
- (28):Silverlight 2 图片处理
- (29):Silverlight 2 使用Transform实现更炫的效果(上)