sacar fotos de 1 b.d. access

[Jeremias Spoken]

Una forma es utilizar visual basic, utilizando las propiedades del recordset chunk... con esto puedes "bajar" tus campos OLE a un archivo temporal y éstos los puedes guardar (ya sea como jpg o gif)...

<Code>
'-----ejemplo de código en visual basic v6 sp5-----
'-----usando un DataEnvironment para la conexion a Datos--
Private Sub Form_Load()
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer
Const ChunkSize As Integer = 16384

with dta.Recordsets("Tabla")
If .State = 1 Then
.Close
End If
.Open "Select * from Tabla"
while .EOF = False
Open "pictemp" & .Fields("Id") For Binary Access Write As DataFile
Fl = dta.Recordsets("Tabla").Fields("Imagen").ActualSiz e
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = dta.Recordsets("Tabla").Fields("Imagen").GetChunk( Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Buffer(ChunkSize)
Chunk() = dta.Recordsets("Tabla").Fields("Imagen").GetChunk( ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
.MoveNext
Wend
End Sub


</Code>