Como visualizar anexos da Tabela SQL?

Question

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.

Answer 1

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".

Answer 2

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.

Answer 3

Consegui:

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