Imports Microsoft.Office.Interop.Access.Dao
'...
Dim db As Database
Dim rs As Recordset2
Dim field As Field2
'...
' Abre la conexión con la base de datos
db = OpenDatabase("RutaDeTuBaseDeDatos.accdb")
' Abre la tabla o consulta que contiene el campo OLE
rs = db.OpenRecordset("NombreTabla")
' Asegúrate de tener un registro activo en el recordset o crea uno nuevo si es necesario
rs.AddNew()
' Obtiene el campo OLE al que deseas asignar la imagen
field = rs.Fields("NombreCampoOLE")
' Carga la imagen desde un archivo en una variable de tipo byte array
Dim imageBytes() As Byte = File.ReadAllBytes("RutaDeLaImagen.jpg")
' Asigna la imagen al campo OLE
field.LoadFromFile("RutaDeLaImagen.jpg")' Opción alternativa: field.Value = imageBytes
' Guarda los cambios en el registro
rs.Update()
' Cierra el recordset y la base de datos
rs.Close()
db.Close()
Crear cuenta