

La aplicación (vb.net) que estoy haciendo consiste en guardar archivos tales como (.doc,.xls,.pdf,.txt) dentro de una base de datos en un campo “documento” con tipo de dato “image”. Lo que quiero hacer es sacar una foto a la primero hoja del documento y mostrarla en un PictureBox1(como puedo hacer lo) el documento lo obtengo en la base como byte()
La forma de cómo muestro el documento, es la de abrir un archivo con su respectiva aplicación, pero eso no me sirve de mucho a lo que deseo hacer. El codigo con que hago esto es:
Cita:
La función la llamo de la siguiente formaPublic Function AbreDocumento(ByVal fname As String, ByVal DocBits() As Byte, ByVal Extension As String) As Boolean
Dim binWrt As BinaryWriter
Directory.CreateDirectory(TempWorkDir)
Try
Dim FlsStrm As FileStream = New FileStream(TempWorkDir + "\" + fname + Extension, _
FileMode.OpenOrCreate, FileAccess.Write)
binWrt = New BinaryWriter(FlsStrm)
binWrt.Write(DocBits)
binWrt.Flush()
binWrt.Close()
FlsStrm.Close()
'abro el documento
System.Diagnostics.Process.Start(TempWorkDir + "\" + fname + Extension)
NomArchivo = TempWorkDir + "\" + fname + Extension
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
Dim binWrt As BinaryWriter
Directory.CreateDirectory(TempWorkDir)
Try
Dim FlsStrm As FileStream = New FileStream(TempWorkDir + "\" + fname + Extension, _
FileMode.OpenOrCreate, FileAccess.Write)
binWrt = New BinaryWriter(FlsStrm)
binWrt.Write(DocBits)
binWrt.Flush()
binWrt.Close()
FlsStrm.Close()
'abro el documento
System.Diagnostics.Process.Start(TempWorkDir + "\" + fname + Extension)
NomArchivo = TempWorkDir + "\" + fname + Extension
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
Cita:
Se podra hacer lo que intento, si esposible porfavor ayudenme. Espero haberme esplicado bien, de ante mano graciasDim Fila() As DataRow = DbImagesDataSet.GImagenes.Select("id_cliente=" + _
Me.DataGridView1.Item(0, e.RowIndex).Value)
AbreDocumento(Fila(0).Item("nombre"), Fila(0).Item("documento"), _
Fila(0).Item("extension"))
Me.DataGridView1.Item(0, e.RowIndex).Value)
AbreDocumento(Fila(0).Item("nombre"), Fila(0).Item("documento"), _
Fila(0).Item("extension"))
salu2