copiar imagenes de una base de datos a un directorio específico

Mostrar la cita

Hola foro tengo una aplicación realizada en VB6,

conectada a una base de
Mostrar la cita

datos ACCESS 97 que contiene una tabla con tres campos (

un campo ID de tipo
Mostrar la cita

entero largo, un segundo campo de tipo texto que

corresponde al nombre de la
Mostrar la cita

imagen y un tercer campo de tipo OLE donde almaceno

imágenes BMP). Lo que
Mostrar la cita

necesito es por medio de un botón de comando el usuario

pueda copiar todas
Mostrar la cita

las imagenes de esa base de datos a un directorio

determinado, en mi caso
Mostrar la cita

puede ser el mismo de la aplicación y que pase con su

correspondiente
Mostrar la cita

extensión .¿Cómo puedo hacerlo?.


De antemano gracias.




Si quieres copiar todas las imágenes de golpe, esta

función te puede servir:
Function CopiaBMP()
Dim db as database, dt as recordset, ruta as string

set db=currentDB 'O la que quieras abrir.
set dtÛ.Openrecordset("tabla", DB_OPENTABLE)
if dt.EOF then Exit Function 'Si la tabla está vacia.
With dt
Do Until.EOF
ruta=dt![Campo del BMP]
File Copy Ruta, Destino 'Ruta del destino
.MoveNext
Loop
.Close
End With
End Function
Mostrar la cita

Gracias Juan Carlos, voy a probarlo

Hola Juan Carlos, primero gracias por tu ayuda pero no me sirvió tal vez
porque ruta es de tipo string y el dato que voy a copiar es binario,
entonces se me presentan errores. No se que más puedo hacer!
!AYUDAA!!!

"Juan Carlos Castaño" escribió en
el mensaje news:063401c3448d$74328010$

Mostrar la cita

Hola foro tengo una aplicación realizada en VB6,

conectada a una base de
Mostrar la cita

datos ACCESS 97 que contiene una tabla con tres campos (

un campo ID de tipo
Mostrar la cita

entero largo, un segundo campo de tipo texto que

corresponde al nombre de la
Mostrar la cita

imagen y un tercer campo de tipo OLE donde almaceno

imágenes BMP). Lo que
Mostrar la cita

necesito es por medio de un botón de comando el usuario

pueda copiar todas
Mostrar la cita

las imagenes de esa base de datos a un directorio

determinado, en mi caso
Mostrar la cita

puede ser el mismo de la aplicación y que pase con su

correspondiente
Mostrar la cita

extensión .¿Cómo puedo hacerlo?.


De antemano gracias.




Si quieres copiar todas las imágenes de golpe, esta

función te puede servir:
Function CopiaBMP()
Dim db as database, dt as recordset, ruta as string

set db=currentDB 'O la que quieras abrir.
set dtÛ.Openrecordset("tabla", DB_OPENTABLE)
if dt.EOF then Exit Function 'Si la tabla está vacia.
With dt
Do Until.EOF
ruta=dt![Campo del BMP]
File Copy Ruta, Destino 'Ruta del destino
.MoveNext
Loop
.Close
End With
End Function
Mostrar la cita