AS FOTOS SUMIRAM

MARCOS 21/02/2024 11:59:46
#503092
Alterado em 26/02/2024 13:04:36 Bom dia,pessoal!
Sempre li as fotos de funcionários aqui na empresa utilizando
a função abaixo. Sempre funcionou, mas por algum motivo agora
a função retorna uma mensagem de erro: "Parâmetro inválido"
na linha:

 PicFunc.Image = System.Drawing.Image.FromStream(stmBLOBData)
 


 Public Function PesquisarFotoFuncionario(ByVal RefMat As Integer) As Boolean

        'Declara variáveis
        Dim StringDeConexao As String
        Dim InstrucaoSql As String
        Dim con As OleDbConnection
        Dim Dt As New DataTable

  Try


 'Define String de conexão
  StringDeConexao = "Provider=OraOLEDB.Oracle;Data Source=MinhaBD;User ID=MeuUsuario;Password=Minhasenha"


 'Define InstrucaoSql
  InstrucaoSql = "Select Matricula,Foto From tbFuncionario Where Matricula = " & TxtMat.text


  con = New OleDbConnection
  con.ConnectionString = StringDeConexao
  Dim cmd As New OleDbCommand(InstrucaoSql, con)
  Dim da As New OleDbDataAdapter(cmd)
  Dim ds As New DataSet()
  da.Fill(Dt)
  Dim c As Integer = Dt.Rows.Count

  Dim bytBLOBData() As Byte = Dt.Rows(0).Item(1)
  Dim stmBLOBData As New MemoryStream(bytBLOBData)

 'Exibe foto
  PicFunc.Image = System.Drawing.Image.FromStream(stmBLOBData)

 'Retorna valor
  Return True

  Catch ex As Exception
          
   Msgbox( "Erro:" & Ex.message)

  End Try

 End function

Algum colega, tem ideia do que pode ter acontecido?

Observação: Sei que os dados da tabela no Banco de dados estão corretos, pois outras aplicações conseguem ler a imagem das fotos normalmente neste mesmo campo.
KERPLUNK 22/02/2024 19:07:17
#503098 Resposta escolhida
Depure essa linha
Dim bytBLOBData() As Byte = Dt.Rows(0).Item(1)

É quase certo que o problema está ali.
MARCOS 26/02/2024 12:28:13
#503103
Pessoal,
Obrigado pela ajuda!
No entanto, somente consegui resolver depois de optar por usar
um outro provedor e também mudar a string de conexão para o acesso a BD Oracle.
Por algum motivo, este provedor "ORAOLEDB", não esta mais
conseguindo ler o campo de Imagem( Lê os demais campos, mas não consegue mais ler o de imagem).
Obrigado Kerplunk!
MARCOS 05/03/2024 08:18:55
#503160
Ok
Tópico encerrado , respostas não são mais permitidas
Voltar