Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: E N T E R en Septiembre 27, 2014, 03:15:06 pm
-
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 (http://leandroascierto.com/foro/index.php?topic=2570.0) como cargar las imagenes radiograficas de cada paciente.
Lo que hice fue crear 3 tablas.
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)
http://snag.gy/cfg1F.jpg (http://snag.gy/cfg1F.jpg)
SCREEN DEL REPORTE
(http://snag.gy/sZ4NL.jpg)
http://snag.gy/sZ4NL.jpg (http://snag.gy/sZ4NL.jpg)
CODIGO FUENTE
https://www.mediafire.com/?48pcqzt8mfokjxe (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...
-
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
-
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...
-
Claro yo hablaba de hacerlo automático desde vb 6 ( copiar imagen a la capeta /imagenes/)
saludos
-
Asi podes copiar.
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.recursosvisualbasic.com.ar/htm/listado-api/65-copiar-archivo-progreso.htm)
http://www.forosdelweb.com/f69/copiar-archivo-directamente-escritorio-vb6-913802/ (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 (http://microsoft.public.es.vb.narkive.com/Vr2edzIc/vb6-copiar-ficheros-de-una-carpeta-a-otra)
Saludos...
-
Pero yo quiero copiar cada imagen que agrego a la carpeta imagen , como lo haria vos ?
saludos
-
Genial mi amigo querido!!! en especial A8 ;)
-
A8 esta bien, esa variable cumple, pero A2!!! ni que decir.
A2 = AL (http://www.adrianalima.com/)
-
Chicosssssssssssss de que hablannnnnnnnnnnnnnnnnn ?????????????????
-
A9 = MAQUINA
A15 = SUPER MAQUINA
JEJEJ ;D ;D ;D
-
Bueno eso de copiar el archivo a otro destino no es tan complicado podes hacer de esta forma.
Crear esta Función
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
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
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
-
A9 = MAQUINA
A15 = SUPER MAQUINA
JEJEJ ;D ;D ;D
ElParaiso = A9 + A15
-
Bueno eso de copiar el archivo a otro destino no es tan complicado podes hacer de esta forma.
Crear esta Función
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
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
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 :
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
(http://s8.postimg.org/5979j43lt/Captura_de_pantalla_2014_10_01_20_21_08.jpg) (http://postimg.org/image/5979j43lt/)
No sabes que paso ?
A9
A35
A125
A900.............................
jua jua
-
Pues ahi lo que te dice es que no existe la ruta, estas seguro que existe esa carpeta?
-
Siiii , ese es el destino , osea la carpeta IMAGENES de tu ejemplo
sAludos
-
Aca tenes el ejemplo con algunos retoques y con la función copiar archivo el destino tenes que modificar le a gusto.
SOURCE
https://www.mediafire.com/?uyn38qe36vj301q (https://www.mediafire.com/?uyn38qe36vj301q)
-
Me falta un ocx capo
Sos un maestroooooooooooooooo !!!!!!!!!!!!1
(http://s30.postimg.org/nfmkuvt1p/Error.jpg) (http://postimg.org/image/nfmkuvt1p/)
-
No es un ocx es una version de MSCOMCTL.OCX que yo tengo no mas podes modificar el proyecto con extencion .vbp con el bloc de notas.
Reemplazando la entrada esta:
Form=MDIForm1.frm
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.1#0; MSCOMCTL.OCX
Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
por esta
Form=MDIForm1.frm
Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
Object={86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCT2.OCX
Pero te volvi a subir el proyecto
https://www.mediafire.com/?uyn38qe36vj301q (https://www.mediafire.com/?uyn38qe36vj301q)
-
lo pruebo y te cuento amigo
gracias
-
Me falta un ocx capo
Sos un maestroooooooooooooooo !!!!!!!!!!!!1
(http://s30.postimg.org/nfmkuvt1p/Error.jpg) (http://postimg.org/image/nfmkuvt1p/)
ME sigue dando elmismo error de no encontrada la ruta
-
Hace esto click derecho como te muestro mas abajo:
screen
(http://snag.gy/qdWG4.jpg)
http://snag.gy/qdWG4.jpg
Despues esto:
screen
(http://snag.gy/RHsJp.jpg)
http://snag.gy/RHsJp.jpg
Ahi donde te marque el el 2.1 cambia a 2.0 y guarda y volve a abrir con el VB6
-
Doctor gasafonso, debes dar mas información, aparte de la imagen con el error publica también el código y señala en que linea te salta el error y asi tendrás tu respuesta mas rápido, debes también usar la ventana Inmediato para que veas el contenido de tus variables y detectes si estas manipulandolas correctamente.
He bajado el código de ENTER, el ultimo, y lo he probado tal cual a ver que sucede y efectivamente salta un error de ruta en esta linea:
Call FileCopy(ListView1.ListItems(i).SubItems(1), "D:\DESTINO\" & Extraer(ListView1.ListItems(i).SubItems(1), "\"))
Y eso es porque el amigo ENTER está usando una ruta absoluta y no relativa (ni disco D tengo en la virtual), simplemente debes de modificar esa linea de codigo y adaptarlo a tus necesidades. Por ejemplo, yo cambie la ruta destino para que se grabe en la misma carpeta del proyecto:
Call FileCopy(ListView1.ListItems(i).SubItems(1), App.Path & "\" & Extraer(ListView1.ListItems(i).SubItems(1), "\"))
Y funciona perfectamente doc.
Checa eso.
EDITO: Enter te respondio antes que yo por el tema de la version del MSCOMCTL... mmm, no creo que sea eso porque normalmente ese error salta ni bien se abre el proyecto pero bueno prueba.
-
Siii YAcosta graciasssssssssssssss
Era eso amigo
GRacias y saludos