guardar imagen en base de datos: sql server 2008 II2

[juvena...@gmail.com]

IMPORTAMOS LA IMAGEN: EXAMINAR

Imports System.IO

Dim openFileDialog1 As New OpenFileDialog()

Dim result As New DialogResult
openFileDialog1.InitialDirectory = "Bibliotecas\Imágenes"
openFileDialog1.Filter = "archivos de imagen (*.jpg)|*.png|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 3
openFileDialog1.RestoreDirectory = True
result = openFileDialog1.ShowDialog()
If (result = DialogResult.OK) Then
picfoto.Image = Image.FromFile(openFileDialog1.FileName)
End If


GUARDAMOSLA IMAGE:
Dim cn As New SqlConnection("Server=JUVENAL;user id=sa;password=123456;Database=imagen")
'Dim cn As New SqlConnection("Data Source=.;Initial Catalog=imagen;Integrated Security=True")
Dim coUsuario As New SqlCommand
coUsuario.Connection = cn
coUsuario.CommandText = "INSERT INTO Producto VALUES (@Descripcion,@precio, @foto)"
coUsuario.Parameters.Add("@Descripcion", System.Data.SqlDbType.NVarChar)
coUsuario.Parameters.Add("@precio", System.Data.SqlDbType.SmallMoney)
coUsuario.Parameters.Add("@foto", System.Data.SqlDbType.Image)

coUsuario.Parameters("@Descripcion").Value = txtdescripcion.Text
coUsuario.Parameters("@precio").Value = Val(txtprecio.Text)

Dim ms As New System.IO.MemoryStream()
picfoto.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
coUsuario.Parameters("@foto").Value = ms.GetBuffer()
cn.Open()
coUsuario.ExecuteNonQuery()
cn.Close()


VER LA IMAGEN EN EL DATA GRIW:

IMPORTAMOS UNA LIBRERIA:

If IsDBNull(DgDetalleMarca.Item(8, FILA).Value) = False Then
'El MemoryStream nos permite crear un almacen de memoria
Dim ms As New MemoryStream(ExtraerImagen(CODDMA))
Me.PBImageM.Image = Image.FromStream(ms)
End If

Function ExtraerImagen(ByVal Foto As String) As Byte()
Dim SqlSelect As String = "Select imagenDM From MarcaTramite Where IdMarcaTramite ='" & Foto & "'"
Dim Command As New SqlCommand(SqlSelect, cn)
cn.Open()
Dim MyPhoto() As Byte = CType(Command.ExecuteScalar(), Byte())
cn.Close()
Return MyPhoto
End Function