Insertar Imagenes de Excel en Binario a Acces -

Insertar Imagenes de Excel en Binario a Acces

Como Insertar imagen en una base de datos de Acces en un Campo de tipo OLE desde Excel usando programación VBA.

Me recuerdo que hace algún tiempo trate de lograr este tipo de registro, pero no lo logre, y opte por usar una librería de .NET la cual me fue de utilidad.

Se que muchos hemos tratado de guardar un objeto Img de Vba Excel en Acces y por mucho que lo intentamos no logramos hacerlo, bueno de ahí nació la otra idea que no era necesario guardar la imagen solo guardar la ruta de la imagen y cargar la imagen en el Objeto IMG de Excel.

Pues quiero compartirles con ustedes la manera de guardar una imagen en Acces , los métodos que se usan no son muy complejos más bien son sencillos.

Primero se tiene que convertir la imagen en binario.
Segundo se tiene usar los métodos de ado.stream
Tercero crear los métodos de conexión a la base de datos.

Aquí Comparto las Líneas de Ejemplo de ADO.STREAM

Function ReadBinaryFile(FileName)
  Const adTypeBinary = 1  
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")  
  'Specify stream type - we want To get binary data.
  BinaryStream.Type = adTypeBinary  
  'Open the stream
  BinaryStream.Open  
  'Load the file data from disk To stream object
  BinaryStream.LoadFromFile FileName  
  'Open the stream And get binary data from the object
  ReadBinaryFile = BinaryStream.Read
End Function

Function ReadBinaryFile(FileName)

Const adTypeBinary = 1

'Create Stream object

Dim BinaryStream

Set BinaryStream = CreateObject("ADODB.Stream")

'Specify stream type - we want To get binary data.

BinaryStream.Type = adTypeBinary

'Open the stream

BinaryStream.Open

'Load the file data from disk To stream object

BinaryStream.LoadFromFile FileName

'Open the stream And get binary data from the object

ReadBinaryFile = BinaryStream.Read

End Function

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2  
  'Create Stream object
  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")  
  'Specify stream type - we want To save binary data.
  BinaryStream.Type = adTypeBinary  
  'Open the stream And write binary data To the object
  BinaryStream.Open
  BinaryStream.Write ByteArray  
  'Save binary data To disk
  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function