Visual Basic - insertar imagen access con vb sentencias sql

Life is soft - evento anual de software empresarial
   
Vista:

insertar imagen access con vb sentencias sql

Publicado por jheysson marte (6 intervenciones) el 08/02/2015 03:36:39
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Megamind

insertar imagen access con vb sentencias sql

Publicado por Megamind (121 intervenciones) el 08/02/2015 06:54:26
En Vb6 yo las guardo asi
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdSave_Click()
    Dim pBag As PropertyBag
    Dim pByteA() As Byte
    Dim strQuery
    Set pBag = New PropertyBag
    pBag.WriteProperty "MyPicture", Picture1.Picture
    pByteA = pBag.Contents
 
    rs.AddNew
    rs.Fields("ImgFoto").Value = pByteA
    rs.Update
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

insertar imagen access con vb sentencias sql

Publicado por jheysson marte (6 intervenciones) el 08/02/2015 16:29:55
Buenas
ants que nada gracias por responder.
bueno tu codigo entiendo la logica y esta claro pero no tengo muy claro sobre el tipo de variable " PropertyBag" ademas intento usarlo en vb y me dice Erro " El tipo 'PropertyBag' no está definido. "
me puedes dar una manito ahi o explicarme que hisite exactamente
gracias denuevo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Megamind

insertar imagen access con vb sentencias sql

Publicado por Megamind (121 intervenciones) el 08/02/2015 17:53:38
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

insertar imagen access con vb sentencias sql

Publicado por jheysson marte (6 intervenciones) el 11/02/2015 07:07:33
muchas gracias por la ayuda .
pude resolver mi problemas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar