insertar imagen access con vb sentencias sql

[jheysson13]

Buenas a todos.

Quisiera que me pudieran ayudar con mi problema que es el siguiente.
necesito guardar y cargar imagenes a access con vb, mediante codigos, me explico

me conecto a la base de datos asi:

Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLED B.12.0;Data Source=DBsistema_clinico.accdb;Persist Security Info=False")
Public comando As New OleDb.OleDbCommand
Public sql As String = ""

' funcion para copnectarse
Public Sub conertarse()

Try
conn.Open()

Catch ex As Exception

MsgBox(ex.ToString)
End Try

'utilizo el codigo para cargar la imagen desde la pc. usando un try por si ahi algun error
Try
OpenFileDialog1.Title = " Cargar Imagen"
OpenFileDialog1.FileName = " Imagen "
OpenFileDialog1.Filter = "All Files |*.*"
OpenFileDialog1.ShowDialog()
foto.Image = System.Drawing.Image.FromFile(OpenFileDialog1.File Name)
Catch ex As Exception

End Try

'ahora bien el problema es que no se como mandar esa imagen a la base de datos
pensaba que se podia hacer por sql (disculpen mi ignorancia pero nunca habia tratado con imagenes) lo trate de hacer asi
'sabiendo que "foto" es el nombre del picturebox

comando.CommandType = CommandType.Text
comando.Connection = conn
sql = "insert into paciente ( foto ) values ('" foto.Image "')

comando.CommandText = sql

Try
comando.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try


' sim embargo esto no funciona, espero que me entiendan y que me puedan dar una manito. a por cierto el campo foto lo nombre en access como Objeto OLE.
gracias de antemano.

[jheysson13]

Nadie me puede ayudar ??

[gnzsoloyo]

Aquí tienes un posible método de solucionar tu problema: guardar mapa de bits en tabla Access

Suele ser una forma muy útil cuando preguntas cosas de manual.

[jheysson13]

ya lo solucione
utilizando algunos parametros

Dim ms As New MemoryStream
foto.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim pic As Byte() = ms.GetBuffer

Dim cmd As New OleDbCommand("insert into paciente values (@pic,)", conn)
cmd.Parameters.Add(New OleDbParameter("@pic", pic))
cmd.ExecuteNonQuery()