Como incorporar um arquivo em um banco de dados Access usando Visual Basic

Anexar arquivos a um banco de dados Access usando o Visual Basic.

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"
De esta maneira? Compartilhar em redes sociais:

LiveInternet