Como embutir um arquivo em um banco de dados Access usando o Visual Basic

Contente

• Instruções
• Dicas

Você pode anexar um arquivo a um banco de dados do Microsoft Access 2007 usando o Visual Basic. O Access 2007 oferece um novo tipo de dado, chamado Anexo, que você pode usar para armazenar todos os tipos de documentos em seu banco de dados, como arquivos do Word ou imagens digitais. Você não tem que se preocupar com o tamanho do banco de dados, já que o Access 2007 comprime os arquivos automaticamente. Um único registro também pode lidar com vários anexos.

Instruções

Anexe arquivos a um banco de dados Access usando o Visual Basic (binary digits - computer science image by drx from Fotolia.com)

1. Inicie o Microsoft Access 2007 e crie uma tabela chamada "Tabela 1". Adicione um campo chamado "Arquivos" e defina o "Tipo de dados" como "Anexo". Clique em "Ferramentas de banco de dados" e selecione "Visual Basic", no painel "Macro" . Crie um arquivo de texto em "C:" chamado "anexeEsteArquivo.txt".

2. Crie uma nova sub digitando "Sub addAttachments()” e declare as seguintes variáveis ​​dentro dela: “Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2”

3. Digite “Set db = CurrentDb Set rst = db.OpenRecordset("Tabela1") rst.AddNew” para adicionar um novo registro à “Tabela1".

   
   

4. Digite “Set rstChld = rst.Fields("Anexos").Value” para definir uma variável de registro filha. Digite “rstChld.AddNew Set fldAttach = rstChld.Fields("DadosArquivo")” para adicionar um novo campo e definir o campo que armazena os dados binários

5. Digite "fldAttach.LoadFromFile "C:anexeEsteArquivo.txt" rstChld.Update" para carregar o arquivo a ser anexado e atualizar o registro.

6. Digite “rstChld.Close rst.Update” para fechar o conjunto de registros e atualizar o primeiro conjunto de registros. Digite “rst.Close” para fechar o conjunto de registros e “End Sub” na última linha, se necessário.

Dicas

• Sua sub final deve ficar assim:
• "Sub addAttachments()
• Dim db As DAO.Database
• Dim rst As DAO.Recordset
• Dim rstChld As DAO.Recordset2
• Dim fldAttach As DAO.Field2
• Set db = CurrentDb
• Set rst = db.OpenRecordset("Tabela1")
• rst.AddNew
• Set rstChld = rst.Fields("Anexos").Value
• rstChld.AddNew
• Set fldAttach = rstChld.Fields("DadosArquivo")
• fldAttach.LoadFromFile "C:anexeEsteArquivo.txt"
• rstChld.Update
• rstChld.Close
• rst.Update
• rst.Close
• End Sub"