将存储在Access数据库中的图片加载到程序VB.NET中

Imports System.Data.OleDb
Imports System.Drawing

Public Sub LoadImageFromDatabase(pictureBox As PictureBox, connectionString As String, imageId As Integer)
    Try
        ' 创建数据库连接
        Using connection As New OleDbConnection(connectionString)
            connection.Open()

            ' 创建SQL命令
            Dim command As New OleDbCommand("SELECT ImageData FROM Images WHERE ImageID = ?", connection)
            command.Parameters.AddWithValue("@ImageID", imageId)

            ' 执行命令并获取结果
            Dim imageData As Byte() = CType(command.ExecuteScalar(), Byte())

            If Not imageData Is Nothing AndAlso imageData.Length > 0 Then
                ' 将二进制数据转换为图像
                Dim bitmap As New Bitmap(New MemoryStream(imageData))
                pictureBox.Image = bitmap
            Else
                MessageBox.Show("No image found for the given ID.")
            End If
        Catch ex As Exception
            MessageBox.Show("Error loading image: " & ex.Message)
        End Try
    Catch ex As Exception
        MessageBox.Show("Database connection error: " & ex.Message)
    End Try
End Sub