Home‎ > ‎

Cargar Imagenes en BD Access

Basicamente se trata de eso....
Como Cargar Imagenes en nuestra Basde de Datos
Sin que esta aumente desproporcionadamente su tamaño
¿ Como se hace ?
 
Primero Creas Un Modulo, en èl insertas este Codigo
 
Function CargaImg(Direccion As String, Img As Control)
'Creado Por Jefferson Jimenez
   ' Cabimas - Venezuela
         ' Junio 2009
             On Error GoTo Err_CargaImg_Click 'Tratamiento de Error
                Img.Picture = (CurrentProject.Path & "\" & Direccion) 'Cargo la Imagen
Exit_CargaImg_Click:
     Exit Function
Err_CargaImg_Click:                     'Al existir un Error
           MsgBox "Se ha detectado un error al cargar la Imagen" & vbCrLf & _
          CurrentProject.Path & "\" & Direccion & vbCrLf & _
        "Puede que la imagen Cambio de Nombre o Bien se ha Eliminado", vbCritical, "Falta Imagen"
      DoCmd.Quit 'No continuo la Carga hasta no resolver el error
Resume Exit_CargaImg_Click
End Function
 

Luego Inserta un Cuadro Imagen en tu Formulario (Pero no le coloques nada, dejalo en Blanco)
En el Evento Al Abrir de tu Formulario llamas la Funcion
Para que el ejemplo funcione la imagen debe estar en la misma carpeta de la BD
 
Call CargaImg("El Nombre de la Imagen", Nombre del cuadro Imagen)
 
 
 
SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  147 kb v. 3 18 jun. 2009 15:37 Jefferson Jimenez
Comments