Foros del Web » Programación para mayores de 30 ;) » .NET »

cargar imagen a una bd

Estas en el tema de cargar imagen a una bd en el foro de .NET en Foros del Web. hola a todos ,una pregunta ?¿ , tengo un form en el cual tiene los campos. txtusu,txtpass,txtconfimarpass,btnexmaniar (pa buscar una imagen)y un picturebox1,y estos estan ...
  #1 (permalink)  
Antiguo 06/08/2007, 15:55
Avatar de traviz88  
Fecha de Ingreso: julio-2007
Ubicación: lima - villa maria
Mensajes: 31
Antigüedad: 17 años, 7 meses
Puntos: 0
Pregunta cargar imagen a una bd

hola a todos ,una pregunta ?¿ , tengo un form en el cual tiene los campos. txtusu,txtpass,txtconfimarpass,btnexmaniar (pa buscar una imagen)y un picturebox1,y estos estan conectado a una BDusuario,en la q tengo una campo
USUARIO VARCHAR (10) ... etc y un campo FOTO IMAGE, la pregunta es ,como podria guardar a una base de datos sql2005 o 2000 la imagen (osea la del picturebox1) con la q buske con mi btnexaminar y la muestra en el picturebox1 mmm
...toy tranto de resolverlo pero solo e conseguido guarda la ruta y eso no es lo q kiero
bueno esa es mi duda
GRACIAS,
  #2 (permalink)  
Antiguo 07/08/2007, 09:12
Avatar de JonhyReyes  
Fecha de Ingreso: febrero-2007
Mensajes: 103
Antigüedad: 18 años
Puntos: 1
Re: cargar imagen a una bd

Hola Traviz

Pues antes de guardar una imagen tienes que convertirla al tipo byte(), te pongo las funciones para que puedas convertir y guardar la imagen de un picturebox y que puedas convertir y mostrar la imagen en un picturebox:

Public Shared Function Image2Bytes(ByVal img As System.Drawing.Image) As Byte()
Dim sTemp As String = System.IO.Path.GetTempFileName()
Dim fs As New System.IO.FileStream(sTemp, IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)
img.Save(fs, System.Drawing.Imaging.ImageFormat.Jpeg)
fs.Position = 0
'
Dim imgLength As Integer = CInt(fs.Length)
Dim bytes(0 To imgLength - 1) As Byte
fs.Read(bytes, 0, imgLength)
fs.Close()
Return bytes
End Function

Public Shared Function Bytes2Image(ByVal bytes() As Byte) As System.Drawing.Image
If bytes Is Nothing Then Return Nothing
'
Dim ms As New System.IO.MemoryStream(bytes)
Dim bm As System.Drawing.Bitmap = Nothing
Try
bm = New System.Drawing.Bitmap(ms)
Catch ex As Exception
System.Diagnostics.Debug.WriteLine(ex.Message)
End Try
Return bm
End Function


Saludos
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:07.