tengo un formulario donde puedes añadir los datos de un cliente en una base de datos access.al mismo tiempo muestro los datos en un datagridwie. Lo que quiero es saber como puedo incluir un picturebox donde seleciono una imagen y cuando yo haga click en guardar, se me guarde la imagen en la base de datos access donde esta el campo foto tipo ole.Luego tal como voy recorriendo el datagridview me muestre las fotos de cada cliente. Utilizo dataset y datadapter.
--------------------
sqlinsertar = "INSERT INTO CLIENTES (nombre,nif,direccion,localidad,cpostal,provincia,telefonofijo,telefonomovil,telefonofamiliar,fax,email,fecha)" & _
" VALUES (@nombre,nif,@direccion,@localidad,@cpostal,@provincia,@telefonofijo,@telefonomovil,@telefonofamiliar,@fax,@email,@fecha)"
'
'crearemos comando
Dim micomando As New OleDbCommand(sqlinsertar, nuevaConexion)
' añadimos el primer parametro del campo
micomando.Parameters.Add(New OleDbParameter("@nombre", OleDbType.VarChar, 25)).Value = txtNombre.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@nif", OleDbType.VarChar, 25)).Value = txtNif.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@direccion", OleDbType.VarChar, 25)).Value = txtDireccion.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@localidad", OleDbType.VarChar, 25)).Value = txtLocalidad.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@cpostal", OleDbType.Integer, 25)).Value = txtCpostal.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@provincia", OleDbType.VarChar, 25)).Value = txtprovincia.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@telefonofijo", OleDbType.Integer, 25)).Value = txttelefonofijo.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@telefonomovil", OleDbType.Integer, 25)).Value = txttelefonomovil.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@telefonofamiliar", OleDbType.Integer, 25)).Value = txttelefonofamilia.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@fax", OleDbType.Integer, 25)).Value = txtfax.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@email", OleDbType.VarChar, 25)).Value = txtemail.Text.ToString
micomando.Parameters.Add(New OleDbParameter("@fecha", OleDbType.Date, 25)).Value = txtfecha.Text.ToString
' Declaramos un memorystream
Dim ms As New System.IO.MemoryStream()
' despues salvamos la imagen dentro del meorystream en formato origen o rawformat
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
' declaramos una variable byte y guardamos lo que esta en miMemoryStream
Dim imagenbit() As Byte = ms.GetBuffer
' cerramos nuestro memorystream, y a tenemos nuestra imagen convertida
micomando.Parameters.Add(New OleDbParameter("@foto", OleDbType.VarBinary, 205)).Value = imagenbit
micomando.CommandText = sqlinsertar
nuevaConexion.Open()
micomando.ExecuteNonQuery()
-----------------------
never1979
|
