Imagen desde visual basic a access
Publicado por Cristian Moscoso (6 intervenciones) el 10/03/2005 22:39:49
Hola:
Necesito saber como agregar una imagen a la base de datos access 97 des de visual basic, estoy ocupando un datacontrol con microsoft jet 4.0, mando el codigo para saber si me pueden solucionar por favor esta pana.
Private Sub ingresar_Click()
sqltxt$ = "Select * from fichapacientes where paci_id = '" & Mask & "'"
Ficha.RecordSource = sqltxt$
Ficha.Refresh
Ficha.Recordset.AddNew
Ficha.Recordset.Fields("paci_id") = Mask
Ficha.Recordset.Fields("fipa_fecha") = Text2
Ficha.Recordset.Fields("fipa_peso") = Text3
Ficha.Recordset.Fields("fipa_estatura") = Text4
Ficha.Recordset.Fields("fipa_imc") = Text5
Ficha.Recordset.Fields("fipa_sintomas") = sintoma
Ficha.Recordset.Fields("fipa_tratamiento") = tratamiento
Ficha.Recordset.Fields("fipa_observaciones") = observaciones
Ficha.Recordset.Fields("fipa_ojo_izquierdo") = Picture1.Image
Ficha.Recordset.Fields("fipa_ojo_derecho") = Picture2.Image
Ficha.Recordset.Update
Ficha.Refresh
MsgBox "Datos Ingresados"
Form1.Show
'End If
End Sub
Necesito saber como agregar una imagen a la base de datos access 97 des de visual basic, estoy ocupando un datacontrol con microsoft jet 4.0, mando el codigo para saber si me pueden solucionar por favor esta pana.
Private Sub ingresar_Click()
sqltxt$ = "Select * from fichapacientes where paci_id = '" & Mask & "'"
Ficha.RecordSource = sqltxt$
Ficha.Refresh
Ficha.Recordset.AddNew
Ficha.Recordset.Fields("paci_id") = Mask
Ficha.Recordset.Fields("fipa_fecha") = Text2
Ficha.Recordset.Fields("fipa_peso") = Text3
Ficha.Recordset.Fields("fipa_estatura") = Text4
Ficha.Recordset.Fields("fipa_imc") = Text5
Ficha.Recordset.Fields("fipa_sintomas") = sintoma
Ficha.Recordset.Fields("fipa_tratamiento") = tratamiento
Ficha.Recordset.Fields("fipa_observaciones") = observaciones
Ficha.Recordset.Fields("fipa_ojo_izquierdo") = Picture1.Image
Ficha.Recordset.Fields("fipa_ojo_derecho") = Picture2.Image
Ficha.Recordset.Update
Ficha.Refresh
MsgBox "Datos Ingresados"
Form1.Show
'End If
End Sub
Valora esta pregunta


0