GRAVAR ARQUIVO PDF
Boa Tarde
Gostaria de saber se e possivel gravar um arquivo em PDF no banco de dados.
Normalmente eu gravo arquivos no formato JPG, sem problemas mas agora eu precisarei gravar se possivel, arquivos no formato PDF.
Ja me disseram para gravar os arquivos em uma pasta para que todos acessem via rede.Isso e valido, porem os usuarios estao em cidades diferentes, o que acaba com essa possibilidade.
Estou usando o VB6 com o MS SQL Server.
Obrigado e um Abraço
Gostaria de saber se e possivel gravar um arquivo em PDF no banco de dados.
Normalmente eu gravo arquivos no formato JPG, sem problemas mas agora eu precisarei gravar se possivel, arquivos no formato PDF.
Ja me disseram para gravar os arquivos em uma pasta para que todos acessem via rede.Isso e valido, porem os usuarios estao em cidades diferentes, o que acaba com essa possibilidade.
Estou usando o VB6 com o MS SQL Server.
Obrigado e um Abraço
Dim SQL As String = [Ô]INSERT INTO nometabela([NOMEARQ]) VALUES (@arquivo)[Ô]
[ô] Cria uma nova ligao base de dados
Dim connection As New SqlConnection([Ô]string conexo[Ô])
[ô] Criao do comando indicando a instruo e a ligao
Dim command As New SqlCommand(SQL, connection)
Dim arquivo = [Ô]Caminho do arquivo[Ô]
Dim fs As FileStream = New FileStream(ARQUIVO, FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(Convert.ToInt32(fs.Length))
br.Close()
fs.Close()
command.Parameters.Add(
[Ô]@arquivo[Ô], SqlDbType.VarBinary).Value = bytes
[ô] Indicao dos parmetros que sero inseridos
[ô] Abre a ligao, executa o comando e guarda em [Ô]x[Ô] o nmero de registos inseridos
connection.Open()
Dim x As Integer = command.ExecuteNonQuery()
If x < 1 Then
MessageBox.Show(
[Ô]A operao efectuada no retomou qualquer resultado.[Ô])
End If
[ô] Fecha a ligao e limpa as variveis
connection.Close()
[ô] Este exemplo foi testado no SQLServer2005 do tipo .PDF e .XML se o arquivo for to tipo notafiscal ou muito grande as vezes vc não visualiza o arquivo no SQL mas ele vai estar la basta recuperar ele ou analizar o tipo de dado armazenado
[ô] Cria uma nova ligao base de dados
Dim connection As New SqlConnection([Ô]string conexo[Ô])
[ô] Criao do comando indicando a instruo e a ligao
Dim command As New SqlCommand(SQL, connection)
Dim arquivo = [Ô]Caminho do arquivo[Ô]
Dim fs As FileStream = New FileStream(ARQUIVO, FileMode.Open, FileAccess.Read)
Dim br As BinaryReader = New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(Convert.ToInt32(fs.Length))
br.Close()
fs.Close()
command.Parameters.Add(
[Ô]@arquivo[Ô], SqlDbType.VarBinary).Value = bytes
[ô] Indicao dos parmetros que sero inseridos
[ô] Abre a ligao, executa o comando e guarda em [Ô]x[Ô] o nmero de registos inseridos
connection.Open()
Dim x As Integer = command.ExecuteNonQuery()
If x < 1 Then
MessageBox.Show(
[Ô]A operao efectuada no retomou qualquer resultado.[Ô])
End If
[ô] Fecha a ligao e limpa as variveis
connection.Close()
[ô] Este exemplo foi testado no SQLServer2005 do tipo .PDF e .XML se o arquivo for to tipo notafiscal ou muito grande as vezes vc não visualiza o arquivo no SQL mas ele vai estar la basta recuperar ele ou analizar o tipo de dado armazenado
Muito agradeido por sua ajuda FABRICIOWEB
Me parece que esse exemplo e para o VB.Net e eu estou usando o VB6.
Teria um exemplo para o VB6?
Obrigado e um Abraço
Me parece que esse exemplo e para o VB.Net e eu estou usando o VB6.
Teria um exemplo para o VB6?
Obrigado e um Abraço
Tópico encerrado , respostas não são mais permitidas