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

07/07/2003 - 08:54 por Carlos Alberto Hernández Arcila | Informe spam

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.

Siga el debate

3 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Juan Carlos Castaño

07/07/2003 - 15:41 | Informe spam

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

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :