Imagenes o archivos en Sql

09/03/2005 - 01:54 por Julio | Informe spam
Hola mi pregunta es .
Tengo la logica para enviar y recoperar imagenes desde
sql . De la forma de que se envian las fotos al db pues
seria lo mismo solo que no cojo images solo otro tipo de
archivo como un documento de word. La pregunta es como
puedo covertir ese archivo para tras a .doc.
Lo que quiero es que en ves de una imagen sea cual quier
otra cosa.
Gracias

Esta es la logica como si fuera una imagen

Dim con As New System.Data.SqlClient.SqlConnection
("server=(local);database=ejemploImangen;user
id=sa;password=alpha1;")
con.Open()
Dim cmd As New System.Data.SqlClient.SqlCommand
("select * from SampleImageTable")
cmd.Connection = con
cmd.CommandType = CommandType.Text
Dim da As New System.Data.SqlClient.SqlDataAdapter
(cmd)
Dim ds As New DataSet()
da.Fill(ds)
Dim bits As Byte() = CType(ds.Tables(0).Rows
(0).Item(0), Byte())
Dim memorybits As New MemoryStream(bits)


Dim bitmap As New Bitmap(memorybits)
PictureBox1.Image = bitmap

Preguntas similare

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
09/03/2005 - 02:19 | Informe spam
Hasta aqui tienes el contenido en un array de bytes.

Dim bits As Byte() = CType(ds.Tables(0).Rows(0).Item(0), Byte())

Lo que tienes que hacer ahora es crear un FileStrem y grabar ese array en el
archivo.

Eduardo A. Morcillo [MS MVP VB]
Respuesta Responder a este mensaje
#2 Julio
09/03/2005 - 02:28 | Informe spam
Gracias pero esa ensi es mi duda como lo paso a un
filestream y lo paso a un formato.
Soy novato en esto tal vez para otro suene un poco logico
pero para mi no.


Hasta aqui tienes el contenido en un array de bytes.

Dim bits As Byte() = CType(ds.Tables(0).Rows


(0).Item(0), Byte())

Lo que tienes que hacer ahora es crear un FileStrem y


grabar ese array en el
archivo.

Eduardo A. Morcillo [MS MVP VB]
.

Respuesta Responder a este mensaje
#3 DJ MIAO
09/03/2005 - 02:36 | Informe spam
Comprate un libro.

Miao...
Gracias pero esa ensi es mi duda como lo paso a un
filestream y lo paso a un formato.
Soy novato en esto tal vez para otro suene un poco


logico
pero para mi no.


Hasta aqui tienes el contenido en un array de bytes.

Dim bits As Byte() = CType(ds.Tables(0).Rows


(0).Item(0), Byte())

Lo que tienes que hacer ahora es crear un FileStrem y


grabar ese array en el
archivo.

Eduardo A. Morcillo [MS MVP VB]
.



.

Respuesta Responder a este mensaje
#4 Eduardo A. Morcillo [MS MVP VB]
09/03/2005 - 04:01 | Informe spam
No hay que pasarlo a un formato o nada por el estilo. En el array tienes el
contenido binario del archivo tal cual era cuando lo leiste y grabaste en la
BD. Simplemente creas un FileStream y usas el metodo WriteBytes para guardar
el array en el archivo:

Dim archivo As New IO.FileStream("c:\miarchivo.doc", IO.FileMode.CreateNew)

Try

archivo.Write(data, 0, data.Length)

Finally

If Not archivo Is Nothing Then archivo.Close()

End Try


Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida