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 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

Es muy sencillo verdad y si aun tienes dudas te comparto un video tutorial para que veas el funcionamiento del proyecto.

Y como regalo adicional también comparto el código para visualizar un reporte diseñado en CrystalReport.

Para poder llamar el Objeto .RPT es necesario tener un visor de Reportes y esto es lo que se tiene que Instalar más configurar en su PC.

 

Acerca del autor

Fernando M.Blas administrator

Deja un comentario