VB.net从Access数据库读取图片时如何跳过空值避免转换错误

错误的核心原因是当数据库中[Image Name]列为空（DBNull）时，直接调用GetBytes会触发类型转换失败。你需要先判断该列是否为空，再执行后续的图片加载逻辑。

修改后的完整代码 #

Private Sub loadData()
    cn.Open()
    cmd = New OleDbCommand("select [Image Name], [Item Name] from tbl_item_image", cn)

    dr = cmd.ExecuteReader
    While dr.Read
        ' 先检查图片列是否为空，为空则跳过当前行
        If dr.IsDBNull(dr.GetOrdinal("[Image Name]")) Then
            Continue While
        End If

        Dim len As Long = dr.GetBytes(0, 0, Nothing, 0, 0)
        ' 额外检查字节长度是否为0，避免空字节数组的情况
        If len <= 0 Then
            Continue While
        End If

        Dim array(CInt(len) - 1) As Byte ' 修正数组长度，避免多创建空字节
        dr.GetBytes(0, 0, array, 0, CInt(len))

        ' 局部声明控件，避免模块级变量的引用冲突
        Dim pic As New PictureBox
        pic.Width = 100
        pic.Height = 100
        pic.BackgroundImageLayout = ImageLayout.Stretch
               
        Dim mybtn As New Button
        mybtn.Width = 100
        mybtn.Height = 30

        AddHandler mybtn.Click, AddressOf OnButton_Click
        AddHandler mybtn.MouseHover, AddressOf OnButton_MouseHove

        Using ms As New System.IO.MemoryStream(array)
            Using bitmap As New System.Drawing.Bitmap(ms)
                ' 克隆位图避免内存流关闭后图片失效
                pic.BackgroundImage = DirectCast(bitmap.Clone(), System.Drawing.Image)
            End Using
        End Using

        ' 处理Item Name列的空值情况
        mybtn.Text = If(dr.IsDBNull(dr.GetOrdinal("[Item Name]")), "", dr.Item("Item Name").ToString)
        FlowLayoutPanel1.Controls.Add(pic)
        pic.Controls.Add(mybtn)
    End While
    dr.Close()
    cn.Close()
End Sub

关键修改点说明 #

• 空值判断：用dr.IsDBNull(dr.GetOrdinal("[Image Name]"))检测列是否为空，为空则跳过当前行，避免后续转换错误。
• 字节长度校验：增加len <= 0的判断，处理列非空但存储的字节数组为空的情况。
• 数组长度修正：原代码创建的数组长度多了1位，改为CInt(len)-1匹配实际字节数，避免内存流读取异常。
• 资源释放：用Using语句包裹MemoryStream和Bitmap，确保资源及时释放；同时克隆位图，防止内存流关闭后图片无法显示。
• 空值兼容处理：给按钮文本增加空值判断，避免读取[Item Name]空列时出错。

可选扩展：显示默认占位图 #

如果不想跳过空图片的行，而是显示默认占位图，可以替换空值判断的逻辑：

If dr.IsDBNull(dr.GetOrdinal("[Image Name]")) OrElse len <= 0 Then
    pic.BackgroundImage = My.Resources.DefaultPlaceholder ' 替换为你的默认图片资源
    ' 后续按钮逻辑正常执行
    mybtn.Text = If(dr.IsDBNull(dr.GetOrdinal("[Item Name]")), "", dr.Item("Item Name").ToString)
    FlowLayoutPanel1.Controls.Add(pic)
    pic.Controls.Add(mybtn)
    Continue While
End If

内容的提问来源于stack exchange，提问作者Emma