Insertar y extraer imágenes de Access
Hola, tengo una gran pelea sobre la lectura/escritura de imágenes en Access (en un campo OLÉ :). Si a alguien se le atascaba ahi va la historia :
Sub InsertarBLOB_2(MIRegistro As ADODB.Recordset, _
MINombreCampo As String, MIRutaArchivo As String)
Dim TamTotal As Long
Dim TamRestante As Long
Dim NumeroChunks As Long
Dim MIBufer() As Byte
Dim Archivo As Integer
Dim i As Long
Const TamBufer = 2048
'On Local Error GoTo ControlError
Archivo = FreeFile
Open MIRutaArchivo For Binary Access Read As Archivo
TamTotal = LOF(Archivo)
NumeroChunks = TamTotal TamBufer
TamRestante = TamTotal Mod TamBufer
ReDim MIBufer(TamRestante)
Get Archivo, , MIBufer
MIRegistro(MINombreCampo).AppendChunk MIBufer
ReDim MIBufer(TamBufer)
For i = 1 To NumeroChunks
Get Archivo, , MIBufer
MIRegistro(MINombreCampo).AppendChunk MIBufer
Next i
Close Archivo
MIRegistro.Update
Exit Sub
ControlError:
Close Archivo
End Sub
La cosa es que esto furula. Sobre cómo hacerlo al revés hay mucha información por ahí, y si no me manden un email. Pero dos problemas, uno que con imágenes gif no me lo hace (y por qué carajo?) pero lo que me tiene harto es que con las bmp lo hace bien pero la imagen pierde calidad.
Si a alguien se le ocurre algo, pos que me vaya avisando, y gracias de antemano.
Un saludo
Sub InsertarBLOB_2(MIRegistro As ADODB.Recordset, _
MINombreCampo As String, MIRutaArchivo As String)
Dim TamTotal As Long
Dim TamRestante As Long
Dim NumeroChunks As Long
Dim MIBufer() As Byte
Dim Archivo As Integer
Dim i As Long
Const TamBufer = 2048
'On Local Error GoTo ControlError
Archivo = FreeFile
Open MIRutaArchivo For Binary Access Read As Archivo
TamTotal = LOF(Archivo)
NumeroChunks = TamTotal TamBufer
TamRestante = TamTotal Mod TamBufer
ReDim MIBufer(TamRestante)
Get Archivo, , MIBufer
MIRegistro(MINombreCampo).AppendChunk MIBufer
ReDim MIBufer(TamBufer)
For i = 1 To NumeroChunks
Get Archivo, , MIBufer
MIRegistro(MINombreCampo).AppendChunk MIBufer
Next i
Close Archivo
MIRegistro.Update
Exit Sub
ControlError:
Close Archivo
End Sub
La cosa es que esto furula. Sobre cómo hacerlo al revés hay mucha información por ahí, y si no me manden un email. Pero dos problemas, uno que con imágenes gif no me lo hace (y por qué carajo?) pero lo que me tiene harto es que con las bmp lo hace bien pero la imagen pierde calidad.
Si a alguien se le ocurre algo, pos que me vaya avisando, y gracias de antemano.
Un saludo