Usuário com melhor resposta
Como visualizar anexos da Tabela SQL?

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