Imagen en VB.NET 2005

[jaullo]

Estuve revisando el ejemplo de la web del programador y no se com hacer con el siguiente codio se para guardar todos los demas datos (como estan usando un binding navigator)como nombre, tipo,etc.

' Guardar los datos en la tabla
Dim da As New SqlDataAdapter("SELECT * FROM conFotos", cnnStr)
Try
Dim cb As New SqlCommandBuilder(da)
da.UpdateCommand = cb.GetUpdateCommand(True)
da.InsertCommand = cb.GetInsertCommand(True)
da.DeleteCommand = cb.GetDeleteCommand(True)
da.Update(dt)
dt.AcceptChanges()
Catch ex As Exception
MessageBox.Show("ERROR al guardar los datos:" & vbCrLf & _
ex.Message, "Error al guardar los datos", _
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try

ahora tambien quisiera su opinion sobre este otro codigo que estoy tratando de utilizar pero no he logrado que me funcione

Dim objconexion As SqlClient.SqlConnection
Dim objcomandoparametrizado As SqlClient.SqlCommand
Dim lector As SqlClient.SqlDataAdapter
Dim objpar1, objpar2, objpar3, objpar4, objpar5, objpar6, objpar7 As SqlClient.SqlParameter
Dim objtransaccion As SqlClient.SqlTransaction
Dim strmensaje As String


Dim strconexion As String = "Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=facturacion;Data Source=(local)"
objconexion = New SqlClient.SqlConnection(strconexion)
Try

objconexion.Open()
'abrimos la conexion
objtransaccion = objconexion.BeginTransaction
Dim arrFilename() As String = Split(lblFilePath.Text, "\")
Array.Reverse(arrFilename)

Dim ms As New MemoryStream()
FotoPictureBox.Image.Save(ms, FotoPictureBox.Image.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer

Dim cmd As New SqlClient.SqlCommand("insert into producto(cod_producto,foto,clase_producto,marca_pr oducto,pais_producto,precio_producto,cod_proveedor ,cantidad,id_bodega,cod_ubicacion,id_status))value s(@cod_producto,@foto,@clase_producto,@marca_produ cto,@pais_producto,@precio_producto,@cod_proveedor ,@antidad,@id_bodega,@cod_ubicacion,@id_status)")
With cmd
.Parameters.Add(New SqlParameter("@cod_producto", _
SqlDbType.Decimal, 18)).Value = Me.txtCodigo.Text

.Parameters.Add(New SqlParameter("@foto", _
SqlDbType.Image)).Value = arrImage

.Parameters.Add(New SqlParameter("@clase_producto", _
SqlDbType.Decimal, 18)).Value = Me.txtclaseprod.Text

.Parameters.Add(New SqlParameter("@marca_producto", _
SqlDbType.VarChar, 50)).Value = Me.cbomarcas.Text

.Parameters.Add(New SqlParameter("@pais_producto", _
SqlDbType.VarChar, 30)).Value = Me.cbopais.Text

.Parameters.Add(New SqlParameter("@precio_producto", _
SqlDbType.Decimal, 18)).Value = Me.txtprecio.Text

.Parameters.Add(New SqlParameter("@cod_proveedor", _
SqlDbType.Decimal, 18)).Value = Me.txtcodprov.Text

.Parameters.Add(New SqlParameter("@antidad", _
SqlDbType.Decimal, 18)).Value = Me.txtcantidad.Text

.Parameters.Add(New SqlParameter("@id_bodega", _
SqlDbType.Decimal, 18)).Value = Me.txtidbodega.Text

.Parameters.Add(New SqlParameter("@cod_ubicacion", _
SqlDbType.Decimal, 18)).Value = Me.txtcodubicacion.Text

.Parameters.Add(New SqlParameter("@id_status", _
SqlDbType.Decimal, 18)).Value = Me.txtestado.Text

End With

cmd.ExecuteReader()

Catch sqlExc As SqlException
objtransaccion.Rollback()
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
MsgBox(ex.Message)
Finally
'cn.close()
End Try