SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory






Talvez precise importar as fotos de um cadastro de funcionários | clientes | fornecedores, ou criar um catálogo, album de fotos, etc... E deseje manter todas as fotos dentro de um arquivo MS Access.


Isso é recomendável? Não!


É possível? Sim!


Crie uma tabela com a seguinte especificação dentro do seu banco de dados MS Access.





Em seguida crie um módulo como o nome de mdl_Importando_Imagens.


Em seguida cole o código abaixo nele:

Sub ImportPhotosFromDirectory()
        '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardes@gmail.com
    '        Date: 17/05/2016 - 15:14
    ' Application: Field Force Dashboard Analysis® - © A&A - In Any Place 2016, Inc. Todos os direitos reservados.
    '     Company: © A&A - In Any Place 2016, Inc. Todos os direitos reservados.
    '     Purpose: Import Photos from Directory.
    ' C:\Users\Photos

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim oFS As New FileSystemObject
    
    Dim oFolder As Folder
    Dim oFile As File
    Dim nPath As String

    Let nPath = "C:\Users\Photos"
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_Photos")

    Set oFolder = oFS.GetFolder(nPath)

    With rs

        For Each oFile In oFolder.Files
            Debug.Print oFile.Name
            
            .AddNew
                        
            Let !PhotoName = oFile.Name
            Let !Photo = oFile
            
            .Update

        Next oFile

    End With
End Sub


Ahhh, não se esqueça de manter a seguinte referência em seu projeto MS Access:




Nenhum comentário:

Postar um comentário

diHITT - Notícias