none
Como visualizar anexos da Tabela SQL? RRS feed

  • Pergunta

  • Olá

    Estou salvando na tabela SQL anexos, e uso o código a baixo para visualizar os arquivos:

     Private Sub VerAnexo()
            If DataGridView2.SelectedRows.Count = 1 Then
                Dim Extensao = IO.Path.GetExtension(DataGridView2.CurrentRow.Cells(1).Value())
                Dim cn As New SqlConnection(SQLFile())
                    Dim cmd As New SqlCommand("select * from Anexos where C='" & txtIDAnexo.Text & "'", cn)
                    Dim da As New SqlDataAdapter(cmd)
                    Dim ds As New DataSet()
                    da.Fill(ds, "Anexos")
                    Dim c As Integer = ds.Tables("Anexos").Rows.Count
                If c > 0 Then
                    Dim bytBLOBData() As Byte = ds.Tables("Anexos").Rows(c - 1)("Anexo")
                    Dim stmBLOBData As New MemoryStream(bytBLOBData)
                    If Extensao = ".png" Or Extensao = ".jpg" Or Extensao = ".jpeg" Then
                        PictureBox1.Image = Image.FromStream(stmBLOBData)
                    ElseIf Extensao = ".txt" Then
                        RichTextBox1.Text = ????????????
                    ElseIf Extensao = ".pdf" Then
                        RichTextBox1.Text = ?????
                    End If
    
                End If
            End If
        End Sub

    Consigo visualizar as imagens em um picturebox, mas não estou conseguindo visualizar arquivos .txt em um RichTextBox nem pdf. O código está pronto, só falta essa parte.

    Alguém pode me ajudar? Desde já agradeço.

    terça-feira, 1 de novembro de 2016 11:35

Respostas

  • Consegui:

     Dim sr As New StreamReader(stmBLOBData, System.Text.Encoding.Default)
                        Dim myStr = sr.ReadToEnd
                        prtbTexto.Text = myStr

    • Marcado como Resposta Eliseu5 terça-feira, 1 de novembro de 2016 16:57
    terça-feira, 1 de novembro de 2016 16:57

Todas as Respostas

  • Eliseu,

    Você deveria postar essa dúvida no fórum de VB.Net. Mas já adiantando um detalhe, até onde sei o RichTextBox não suporta arquivos PDF.


    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".

    Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    terça-feira, 1 de novembro de 2016 11:57
  • Olá Juliano

    Postei aqui pois preciso ler um arquivo contido em uma tabela SQL, mas se não tiver nada ver posso mudar.

    Referente ao RichTextBox eu entendo que não aceita PDF, mas eu estou separando, imagem para picturebox, texto para richtextbox e pdf ainda eu nao sei.

    terça-feira, 1 de novembro de 2016 16:15
  • Consegui:

     Dim sr As New StreamReader(stmBLOBData, System.Text.Encoding.Default)
                        Dim myStr = sr.ReadToEnd
                        prtbTexto.Text = myStr

    • Marcado como Resposta Eliseu5 terça-feira, 1 de novembro de 2016 16:57
    terça-feira, 1 de novembro de 2016 16:57