0

Não estou conseguindo retornar o valor NULL do SQL Server que está em uma coluna do tipo byte.

Mensagem:

{"Não é possível converter um objeto do tipo 'System.DBNull' no tipo 'System.Byte[]'."}

Código:

Dim ms As New MemoryStream(ObtemImagem(CInt(dgvAgenda.SelectedCells(0).Value)))
            picImagem.Image = Image.FromStream(ms)

        Catch ex As Exception
            MsgBox("Erro: " & ex.Message)
        End Try
    End Sub

    'Função Obter Imagem
    Function ObtemImagem(ByVal Img As Integer) As Byte()

        Dim Imagem() As Byte = Nothing

        With sqlCmd
            .CommandType = CommandType.Text
            .CommandText = "SELECT Imagem FROM CadastroInfantil WHERE IdAAInfantil = " & Img
            .Connection = sqlCon
        End With
        Try
            sqlCon.Open()

         Imagem = CType(sqlCmd.ExecuteScalar(), Byte())

        Catch ex As Exception
            MsgBox("Erro: " + ex.Message)
        Finally
            sqlCon.Close()
        End Try
        Return Imagem
    End Function

Se poderem me ajudar agradeço...

3
  • CType() é pra converter o resultado do SQL em Byte, certo?
    – Jéf Bueno
    Commented 19/10/2015 às 18:28
  • Precisa retornar o resultado mesmo quando nulo? Commented 19/10/2015 às 18:29
  • Desculpe Math estou aperndendo ainda e peguei esse exemplo do site Macoratti, eu fiz a importação dos dados que estava em exel para o banco e as colunas que estavam vazias ficaram com o valor null e na hora de trazer a informação que no caso e mostrar uma foto da esse erro. Commented 19/10/2015 às 19:14

1 Resposta 1

1

Tente fazer isso, pode ser que não funcione, mas vale a pena tentar.

 Dim ms As New MemoryStream(ObtemImagem(CInt(dgvAgenda.SelectedCells(0).Value)))
        picImagem.Image = Image.FromStream(ms)

    Catch ex As Exception
        MsgBox("Erro: " & ex.Message)
    End Try
End Sub

'Função Obter Imagem
Function ObtemImagem(ByVal Img As Integer) As Byte()

    Dim Imagem() As Byte = Nothing

    With sqlCmd
        .CommandType = CommandType.Text
        .CommandText = "SELECT Imagem FROM CadastroInfantil WHERE IdAAInfantil = " & Img
        .Connection = sqlCon
    End With
    Try
        sqlCon.Open()

        Dim tmp = sqlCmd.ExecuteScalar()

        If Not TypeOf tmp Is System.DBNull
             If Byte.TryParse(tmp) = True
                   Imagem = CType(tmp, Byte())
             End If
        End If

    Catch ex As Exception
        MsgBox("Erro: " + ex.Message)
    Finally
        sqlCon.Close()
    End Try
    Return Imagem
End Function
2
  • Obrigado CypherPotato problema resolvido... Commented 20/10/2015 às 11:20
  • Considere clicar no símbolo de correto e clicar na setinha para cima ao lado da resposta, irá me ajudar muito! Commented 20/10/2015 às 19:54

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .