вставить и отобразить изображение в vb.net из базы данных сервера sql - PullRequest
Новая
       18

вставить и отобразить изображение в vb.net из базы данных сервера sql

0 голосов
/ 09 марта 2010

Мне нужно загружать и отображать изображения в базу данных и из нее. Я написал этот код для загрузки, и он загружает нормально. кроме 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. Также, пожалуйста, помогите мне с отображением изображения. спасибо

1 Ответ

0 голосов
/ 09 марта 2010

Чтобы решить проблему «файл не выбран», вы должны иметь оператор If в виде: 

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