Insertar .JPG en campo tipo OLE de tabla Access
Publicado por ivan (1 intervención) el 20/10/2000 00:00:00
Estoy buscando como insertar desde codigo VB un fichero JPG en un campo tipo OLE de una tabla Access, estoy utilizando ADO.
Me he peleado mucho con el tema y se que es algo así:
Dim Chunk as Byte
Dim LongitudLeida as Long
Open "foto.jpg" For Binary Access Read as #1
Do while LongitudLeida < LOF(1)
GET #1, ,Chunk
MiRS.Fields("CampoOle").AppendChunk Chunk
LongitudLeida = LongitudLeida + 1
Loop
Close #1
Pero no consigo que el método AppendChunk me funcione aún probando a cambiar el tipo de la variable Chunk.
Gracias a todos
Iván.
Me he peleado mucho con el tema y se que es algo así:
Dim Chunk as Byte
Dim LongitudLeida as Long
Open "foto.jpg" For Binary Access Read as #1
Do while LongitudLeida < LOF(1)
GET #1, ,Chunk
MiRS.Fields("CampoOle").AppendChunk Chunk
LongitudLeida = LongitudLeida + 1
Loop
Close #1
Pero no consigo que el método AppendChunk me funcione aún probando a cambiar el tipo de la variable Chunk.
Gracias a todos
Iván.
Valora esta pregunta
0