从 sql server 数据库在 vb.net 中插入和显示图像

Question

我需要从数据库上传和显示图像。 我已经编写了此代码以进行上传，并且可以正常上传。 除了 1 个问题。 当我不选择图像时它会崩溃。 有人可以帮我修复它的空值吗？ 另外，你如何在 IE 中显示图像？

插入图像的代码 -

Dim imageInfo As FileInfo = Nothing
Dim data() As Byte = Nothing
imageInfo = New FileInfo(Me.UploadLogo.Value.Trim())
Dim imagestream As FileStream = New FileStream(imageInfo.ToString, FileMode.Open)

if name_id > 0
    ReDim data(imagestream.Length - 1)
    imagestream.Read(data, 0, imagestream.Length)
    imagestream.Close()
    Sqlstr = "UPDATE logos WITH(ROWLOCK) " & _
             "SET Logo=@Logo,Modified_Date=GETDATE() " & _
             "WHERE ID = " + name_id.ToString + ""
Else
    Sqlstr = "INSERT logos (Logo,Created_Date) " & _
             "VALUES ("@Logo,GETDATE())"
End If

SqlCmd = New SqlCommand(Sqlstr, SqlCnn)
Dim pictureParameter As SqlParameter = Nothing
pictureParameter = New SqlParameter("@Logo", SqlDbType.Image)
pictureParameter.Value = data
SqlCmd.Parameters.Add(pictureParameter)
SqlCmd.ExecuteScalar()

这只有在选择图像时才能正常工作，NULL 值会崩溃。 另外请帮助我进行图像显示。 谢谢

Answer 1

要解决您的“文件未选择问题”，您应该有一个 If 语句，如下所示：

If Not File.Exists(Me.UploadLogo.Value.Trim())
   ' Exit out or handle no file selected
End If