vb.net 使用Access数据库保存和读取图片文件_oledb.oledbdatareader读access数据库中的图片-优快云博客

本文介绍了一种使用Visual Basic.NET与Microsoft Access数据库结合的方法来实现图片的存储与读取。具体步骤包括：建立数据库连接、添加图片到数据库、从数据库中读取图片并显示。通过实际代码示例展示了如何利用OLE对象类型字段存储图片数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

不好意思忘记是转帖那位网友的。

下面是一个简单的演示

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