将图像从ms-access加载到VB.net应用程序

Imports System.Data.OleDb
Imports System.Drawing

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 连接到MS Access数据库
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"
        Dim connection As New OleDbConnection(connectionString)
        connection.Open()

        ' 查询图像数据
        Dim query As String = "SELECT ImageField FROM YourTable WHERE ID = 1"
        Dim command As New OleDbCommand(query, connection)
        Dim imageData As Byte() = DirectCast(command.ExecuteScalar(), Byte())

        ' 将字节数组转换为图像对象
        Dim image As Image
        Using stream As New IO.MemoryStream(imageData)
            image = Image.FromStream(stream)
        End Using

        ' 在PictureBox控件中显示图像
        PictureBox1.Image = image

        ' 关闭数据库连接
        connection.Close()
    End Sub
End Class