Você pode anexar um arquivo usando o Visual Basic para um banco de dados Microsoft Access 2007. Access 2007 oferece um novo tipo de dados chamado anexo que você pode usar para armazenar todos os tipos de documentos em seu banco de dados. Você pode armazenar arquivos, como documentos do Word ou imagens digitais. Você não tem que se preocupar com o tamanho do banco de dados Access 2007, uma vez comprime os arquivos automaticamente. Um único registro também pode lidar com vários anexos.
Inicie o Microsoft Access 2007 e criar uma tabela chamada "Tabela 1." Adicionar um campo denominado "Arquivos" e definir o "Tipo de dados" Como "Anexo." Clique em "Ferramentas de banco de dados" e selecione "Visual básico" no "macro" painel. Criar um arquivo de texto no "C:" nomeado "attachThisfile.txt."
Criar uma nova sub digitando "addAttachments sub ()" e declarar as seguintes variáveis dentro da sub:
"Dim db As DAO.Database
Dim primeiro Como DAO.Recordset
Dim rstChld Como DAO.Recordset2
Dim fldAttach Como DAO.Field2"
Digitar "Definir db = CurrentDb
Defina primeiro = db.OpenRecordset ("Tabela 1")
rst.AddNew" para adicionar um novo registro "Tabela 1."
Digitar "Definir rstChld = rst.Fields ("anexos").Valor" para definir uma variável de registros filho.
Digitar "rstChld.AddNew
Definir fldAttach = rstChld.Fields ("FileData")" para adicionar um novo campo e para definir o campo que contém dados binários.
Digitar "fldAttach.LoadFromFile "C: attachThisfile.txt"
rstChld.Update" para carregar o arquivo a ser anexado e para atualizar o registro.
Digitar "rstChld.Close
rst.Update" para fechar o conjunto de registros e atualizar o primeiro conjunto de registros.
Digitar "rst.Close" para fechar o conjunto de registros e "End Sub" na última linha, se necessário.
dicas & avisos
- Seu último sub deve ficar assim:
- "addAttachments sub ()
- Dim db As DAO.Database
- Dim primeiro Como DAO.Recordset
- Dim rstChld Como DAO.Recordset2
- Dim fldAttach Como DAO.Field2
- Definir db = CurrentDb
- Defina primeiro = db.OpenRecordset ("Tabela 1")
- rst.AddNew
- Definir rstChld = rst.Fields ("anexos").Valor
- rstChld.AddNew
- Definir fldAttach = rstChld.Fields ("FileData")
- fldAttach.LoadFromFile "C: Avelar eHow attachThisfile.txt"
- rstChld.Update
- rstChld.Close
- rst.Update
- rst.Close
- End Sub"
Como abrir mdb com o VBA
Como importar um arquivo CSV para o acesso
Como salvar uma consulta no acesso
Como combinar colunas no acesso
Como excluir um acesso de consulta com junte
Como exportar dados de acesso para CSV
Como contar registros exclusivos em um banco de dados Microsoft Access