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

Hola foro tengo una aplicación realizada en VB6,

conectada a una base de

datos ACCESS 97 que contiene una tabla con tres campos (

un campo ID de tipo

entero largo, un segundo campo de tipo texto que

corresponde al nombre de la

imagen y un tercer campo de tipo OLE donde almaceno

imágenes BMP). Lo que

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

pueda copiar todas

las imagenes de esa base de datos a un directorio

determinado, en mi caso

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

correspondiente

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

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$

Hola foro tengo una aplicación realizada en VB6,

conectada a una base de

datos ACCESS 97 que contiene una tabla con tres campos (

un campo ID de tipo

entero largo, un segundo campo de tipo texto que

corresponde al nombre de la

imagen y un tercer campo de tipo OLE donde almaceno

imágenes BMP). Lo que

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

pueda copiar todas

las imagenes de esa base de datos a un directorio

determinado, en mi caso

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

correspondiente

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