Come incorporare un file in un database di Access utilizzando Visual Basic

Autore: Eugene Taylor
Data Della Creazione: 9 Agosto 2021
Data Di Aggiornamento: 1 Maggio 2024
Anonim
Microsoft Access Intro to VBA Programming - Visual Basic for Applications for Beginners - Access VBA
Video: Microsoft Access Intro to VBA Programming - Visual Basic for Applications for Beginners - Access VBA

Contenuto

È possibile collegare un file a un database di Microsoft Access 2007 utilizzando Visual Basic. Access 2007 offre un nuovo tipo di dati, denominato Allegato, che è possibile utilizzare per archiviare tutti i tipi di documenti nel database, ad esempio file Word o immagini digitali. Non devi preoccuparti delle dimensioni del database, poiché Access 2007 comprime automaticamente i file. Un singolo record può anche gestire più allegati.


indicazioni

Allegare file a un database di Access utilizzando Visual Basic (cifre binarie - immagine informatica da drx da Fotolia.com)

  1. Avviare Microsoft Access 2007 e creare una tabella denominata "Tabella 1". Aggiungi un campo chiamato "File" e imposta "Tipo di dati" su "Allegato". Fai clic su "Strumenti database" e seleziona "Visual Basic" nel pannello "Macro". Crea un file di testo in "C: " denominato "attachThis.File.txt".

  2. Creare un nuovo sub digitando "Sub addAttachments ()" e dichiarare le seguenti variabili al suo interno: "Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"

  3. Digitare "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" per aggiungere un nuovo record a "Table1".


  4. Digitare "Set rstChld = rst.Fields (" Allegati "). Valore" per impostare una variabile del Registro di sistema figlio. Digitare "rstChld.AddNew Impostare fldAttach = rstChld.Fields (" DataFile ")" per aggiungere un nuovo campo e impostare il campo che memorizza i dati binari

  5. Digitare "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" per caricare il file da aggiungere e aggiornare il registro.

  6. Digitare "rstChld.Close rst.Update" per chiudere il recordset e aggiornare il primo recordset. Digitare "rst.Close" per chiudere il recordset e "End Sub" sull'ultima riga, se necessario.

suggerimenti

  • Il tuo sottotitolo finale dovrebbe assomigliare a questo:
  • "Sub addAttachments ()
  • Dim db As DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld As DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Impostare db = CurrentDb
  • Imposta rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Imposta rstChld = rst.Fields ("Allegati").
  • rstChld.AddNew
  • Imposta fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • End Sub "