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

Escrito por jaime avelar | Traduzido por milene hermenegildo
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como embutir um arquivo em um banco de dados Access usando o Visual Basic
Anexe arquivos a um banco de dados Access usando o Visual Basic (binary digits - computer science image by drx from Fotolia.com)

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.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 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. 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. 3

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

  4. 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. 5

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

  6. 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 & Advertências

  • 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"

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível