Manejar diferentes archivos en campo SQL
Publicado por Jose (2 intervenciones) el 09/02/2011 17:36:07
Hola;
Tengo este código:
Dim Imagen() As Byte
Dim ManejarArchivo As FileStream
AbrirArchivo.Filter = "Imagenes (JPG)|*.jpg"
If AbrirArchivo.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
ManejarArchivo = New FileStream(AbrirArchivo.FileName, FileMode.Open, FileAccess.Read)
ReDim Imagen(ManejarArchivo.Length)
ManejarArchivo.Read(Imagen, 0, CInt(ManejarArchivo.Length))
End If
lo que hace es convertir una imagen en un arreglo de bytes y con eso ya puedo guardarlo en la base de datos en un campo image de sql.
Ahora mi consulta es como puedo hacer para descargar esa imagen que esta almacenada en la base de datos y volver a tener un archivo también necesito adaptarlo para que funcione no solo con imágenes sino que también con archivos .pdf, .doc y .xls.
Si es para otros archivos cambiaría mucho el proceso de subirlo y descargarlo, alguien que me pueda ayudar por favor se lo agradecere mucho.
Tengo este código:
Dim Imagen() As Byte
Dim ManejarArchivo As FileStream
AbrirArchivo.Filter = "Imagenes (JPG)|*.jpg"
If AbrirArchivo.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
Exit Sub
Else
ManejarArchivo = New FileStream(AbrirArchivo.FileName, FileMode.Open, FileAccess.Read)
ReDim Imagen(ManejarArchivo.Length)
ManejarArchivo.Read(Imagen, 0, CInt(ManejarArchivo.Length))
End If
lo que hace es convertir una imagen en un arreglo de bytes y con eso ya puedo guardarlo en la base de datos en un campo image de sql.
Ahora mi consulta es como puedo hacer para descargar esa imagen que esta almacenada en la base de datos y volver a tener un archivo también necesito adaptarlo para que funcione no solo con imágenes sino que también con archivos .pdf, .doc y .xls.
Si es para otros archivos cambiaría mucho el proceso de subirlo y descargarlo, alguien que me pueda ayudar por favor se lo agradecere mucho.
Valora esta pregunta
0