從 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