![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
22/04/2010, 15:43
|
| | Fecha de Ingreso: abril-2008
Mensajes: 112
Antigüedad: 16 años, 9 meses Puntos: 0 | |
Respuesta: Insertar Registros con imagenes en una DB Gracias ChusterBoy, es precisamente lo q he hecho
Binarizar como tu lo llamas, por si alguien tiene interes en el tema es algo asi:
Private Sub BtnNvoProdINGRESAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNvoProdINGRESAR.Click
Try
Cn.Open() 'Abrimos la conexion
Dim arrFileName() As String = Split(Text, "\")
Array.Reverse(arrFileName)
Dim ms As New MemoryStream 'variable para pasar la imagen a un Stream
PicBoxNvoProd.Image.Save(ms, PicBoxNvoProd.Image.RawFormat)
Dim arrImage As Byte() = ms.GetBuffer 'declaramos un arreglo para guardar el stream de la imagen
Dim cmd As New SqlCommand("Insert into Productos(codigo_producto, descripcion, precio, id_proveedor, imagen) Values(@codigo_producto, @descripcion, @precio, @id_proveedor, @imagen)", Cn)
With cmd
.Parameters.Add(New SqlParameter("@codigo_producto", SqlDbType.NVarChar, 50)).Value = Me.TxtNvoProdCodigo.Text
.Parameters.Add(New SqlParameter("@descripcion", SqlDbType.NVarChar, 50)).Value = Me.TxtNvoProdDescripcion.Text
.Parameters.Add(New SqlParameter("@precio", SqlDbType.SmallMoney)).Value = Me.TxtNvoProdPrecio.Text
.Parameters.Add(New SqlParameter("@id_proveedor", SqlDbType.NVarChar, 50)).Value = Me.TxtNvoProdIDProv.Text
.Parameters.Add(New SqlParameter("@imagen", SqlDbType.Image)).Value = arrImage
End With
MessageBox.Show("Registro Ingresado")
cmd.ExecuteNonQuery()
Catch SqlExc As SqlException
MessageBox.Show(SqlExc.ToString, "SQL Exception Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
MsgBox(ex.Message)
Finally
Cn.Close() 'cerramos la Conexion
End Try
CargaInfoProducto() 'Refrescar el DataGridView general de productos
ProductoProveedor() 'Refrescar el DataGridView de productos pro proveedor
End Sub
'Examinar imagen para Producto
Private Sub BtnNvoProdImagen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNvoProdImagen.Click
With OpenFD
.InitialDirectory = ""
.Filter = "Archivos de Imagen |*.*|JPEGs|*.jpg|GIFS|*.gif|Bitmaps|*.bmp" 'Archivos que receptara el cuadro de dialogo
.FilterIndex = 1 'tipo de archivo por defecto
End With
If OpenFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
With PicBoxNvoProd
.Image = Image.FromFile(OpenFD.FileName)
.SizeMode = PictureBoxSizeMode.CenterImage
.BorderStyle = BorderStyle.Fixed3D
Me.BtnNvoProdINGRESAR.Enabled = True
End With
End If
End Sub |