La Web del Programador: Comunidad de Programadores
 
    Pregunta:  10166 - IMAGENES EN UNA TABLA VFOXPRO
Autor:  James O. Carvajal
Hola me gustaria saber como guardo una imagen o foto en una tabla visualfoxpro y tambien usando ODBC con SQL Server?
Gracias por su pronta respuesta

  Respuesta:  David F. Amador Tapia
Con este codigo no solo puedes guardar archivos de imagenes sino cualquier archivo que desees..

&& PUEDE SER IMPLEMENTADO COMO UTILIDAD DE BACKUP

CREATE TABLE Backup (nombre c(30), archivo g)

CD GETDIR()
&& selecciona el directorio, puedes omitir esto si tienes && algo pensado en especial

nArchivos = ADIR(aArchivosBack, "*.*")
&&& puedes cambiar la extension a *.bmp o la extension que && desees

IF nArchivos > 0
FOR i = 1 to nArchivos
APPEND BLANK
REPLACE Backup.Nombre WITH aArchivosBack(i,1)
APPEND GENERAL archivo FROM aArchivosBack(i,1)
ENDFOR
ELSE
=MESSAGEBOX("No hay archivos de de este tipo")
ENDIF

&&& DAVID AMADOR TAPIA &&&
&&& TECNOLOGO EN SISTEMAS &&&
&&& DESARROLLADOR VFP &&&

&&& VISITA MI WEB &&&

&&& www.davphantom.4t.com &&&
&&& www3.gratisweb.com/davphantom