[APORTE] Cargar y Guardar imagenes en una Base Datos

[E N T E R]

Hola hace mucho que no aporto mas entonces me decidí hoy a la mañana hacer esto.

El amigo gasafonso pidió acá: http://leandroascierto.com/foro/index.php?topic=2570.0 como cargar las imagenes radiograficas de cada paciente.
Lo que hice fue crear 3 tablas.

Código: (VB) [Seleccionar]

Tabla1  : [Clientes]      : Guarda los datos personales de cada cliente
Tabla2  : [Movimientos]   : En donde se registra el movimiento de la empresa + los datos del cliente
Tabla3  : [Fotos]         : Aca se guarda todas las fotos que se quiera de cada cliente y va asociada con el id del movimiento y tipo de movimiento si es radiografia,ecografia si hay mas se le puede agregar mas.

SCREEN Del Movimiento

http://snag.gy/cfg1F.jpg

SCREEN DEL REPORTE

http://snag.gy/sZ4NL.jpg


CODIGO FUENTE

https://www.mediafire.com/?48pcqzt8mfokjxe

Falta hacerle algunos ajustes pero esta funcionando.

Aclaro por que el titulo del post es medio engañoso las imagenes no guarda en la bd solo guarda el nombre del archivo.


Saludos...

[gasafonso]

Excelente amigo ENTER, lo que faltaría es que guarde una copie de la imagen en la carpeta "\imagenes\" y ademas en mi caso particular lo tendria que adaptar a mis DATAS..

"Con Gente como Uds , la programación es una universidad a medida  GRACIASSSSSS !!!!!!!!!!!!!!!!!!"


Saludos

[E N T E R]

Claro un copy no mas ya o move en la carpeta en donde queres eso se puede hacer desde el VB, y ahi vos vas a mirar el code y vas a adaptar a tu proyecto

Saludos...

[gasafonso]

Claro yo hablaba de hacerlo automático desde vb 6 ( copiar imagen a la capeta /imagenes/)



saludos

[E N T E R]

Asi podes copiar.

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
    Call FileCopy("c:\foto.jpg", "d:\foto.jpg")
End Sub

Tambien podes ver estos:

http://www.recursosvisualbasic.com.ar/htm/listado-api/65-copiar-archivo-progreso.htm
http://www.forosdelweb.com/f69/copiar-archivo-directamente-escritorio-vb6-913802/
http://microsoft.public.es.vb.narkive.com/Vr2edzIc/vb6-copiar-ficheros-de-una-carpeta-a-otra

Saludos...

[gasafonso]

Pero yo quiero copiar cada imagen que agrego a la carpeta imagen , como lo haria vos ?

saludos

[pedroesca]

Genial mi amigo querido!!! en especial A8 

[YAcosta]

A8 esta bien, esa variable cumple, pero A2!!! ni que decir.

A2 = AL

[gasafonso]

Chicosssssssssssss de que hablannnnnnnnnnnnnnnnnn ??

[E N T E R]

A9 = MAQUINA
A15 = SUPER MAQUINA

JEJEJ 

[E N T E R]

Bueno eso de copiar el archivo a otro destino no es tan complicado podes hacer de esta forma.

Crear esta Función

Código: (VB) [Seleccionar]

Sub COPIAR_ARCHIVOS()
   
    For i = 1 To ListView1.ListItems.Count
       
        Call FileCopy(ListView1.ListItems(i).SubItems(1), "D:\DESTINO\" & Extraer(ListView1.ListItems(i).SubItems(1), "\"))
               
    Next i
   
End Sub

Primero deves de crear la carpeta destino o sino te tira un error de que no existe esa carpeta.

Y donde se agregra la imagen poner este code

Código: (VB) [Seleccionar]

        Set lv = ListView1.ListItems.Add()
        With lv
            lv.Text = Extraer(dlg.Filename, "\")
            lv.SubItems(1) = dlg.Filename  'Este es el que tenes que agregarle
        End With

Ahora en el Botón cmdGuardar_Click

Código: (VB) [Seleccionar]

Private Sub cmdGuardar_Click()
   
    If ListView1.ListItems.Count = 0 Then
        mg = MsgBox("El registro no tiene ninguna foto esta seguro que quiere guardar", vbYesNo + vbInformation)
        If mg = vbYes Then
            Call GUARDAR_MOVIMIENTOS
            Call COPIAR_ARCHIVOS
        End If
       
    Else
        Call GUARDAR_MOVIMIENTOS
        Call COPIAR_ARCHIVOS
    End If
   
End Sub



[YAcosta]

A9 = MAQUINA
A15 = SUPER MAQUINA

JEJEJ 

ElParaiso = A9 + A15

[gasafonso]

Bueno eso de copiar el archivo a otro destino no es tan complicado podes hacer de esta forma.

Crear esta Función

Código: (VB) [Seleccionar]

Sub COPIAR_ARCHIVOS()
   
    For i = 1 To ListView1.ListItems.Count
       
        Call FileCopy(ListView1.ListItems(i).SubItems(1), "D:\DESTINO\" & Extraer(ListView1.ListItems(i).SubItems(1), "\"))
               
    Next i
   
End Sub

Primero deves de crear la carpeta destino o sino te tira un error de que no existe esa carpeta.

Y donde se agregra la imagen poner este code

Código: (VB) [Seleccionar]

        Set lv = ListView1.ListItems.Add()
        With lv
            lv.Text = Extraer(dlg.Filename, "\")
            lv.SubItems(1) = dlg.Filename  'Este es el que tenes que agregarle
        End With

Ahora en el Botón cmdGuardar_Click

Código: (VB) [Seleccionar]

Private Sub cmdGuardar_Click()
   
    If ListView1.ListItems.Count = 0 Then
        mg = MsgBox("El registro no tiene ninguna foto esta seguro que quiere guardar", vbYesNo + vbInformation)
        If mg = vbYes Then
            Call GUARDAR_MOVIMIENTOS
            Call COPIAR_ARCHIVOS
        End If
       
    Else
        Call GUARDAR_MOVIMIENTOS
        Call COPIAR_ARCHIVOS
    End If
   
End Sub



AMigo ENTER

yo puse en mi funcion de Copiar_Archivos asi :

Código: (VB) [Seleccionar]

Sub COPIAR_ARCHIVOS()
   
    For i = 1 To ListView1.ListItems.Count
       
        Call FileCopy(ListView1.ListItems(i).SubItems(1), " & App.Path & \imagenes\" & Extraer(ListView1.ListItems(i).SubItems(1), "\"))
               
    Next i
   
End Sub

y me da este error




No sabes que paso ?

A9
A35
A125
A900.............................


jua jua

[E N T E R]

Pues ahi lo que te dice es que no existe la ruta, estas seguro que existe esa carpeta?

[gasafonso]

Siiii , ese es el destino , osea la carpeta IMAGENES de tu ejemplo


sAludos