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

November 11

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


È possibile allegare un file utilizzando Visual Basic a un database di Microsoft Access 2007. Access 2007 offre un nuovo tipo di dati denominato allegato che è possibile utilizzare per memorizzare tutti i tipi di documenti nel database. È possibile memorizzare i file come documenti Word o immagini digitali. Non dovete preoccuparvi del vostro dimensione del database da Access 2007 comprime automaticamente i file. Un singolo record può anche gestire più allegati.

istruzione

1 Avviare Microsoft Access 2007 e creare una tabella denominata "Table1". Aggiungere un campo denominato "File" e definire il "Tipo di dati" come "Allegato". Fare clic su "Strumenti database" e selezionare "Visual Basic" nel riquadro "Macro". Creare un file di testo in "C: \", dal nome "attachThisfile.txt."

2 Creare un nuovo sub digitando "addAttachments Sub ()" e dichiarare le seguenti variabili all'interno del sub:

"Dim db Come DAO.Database

Dim primo Come DAO.Recordset

Dim rstChld Come DAO.Recordset2

Dim fldAttach Come 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 definire una variabile bambino di record.

Tipo "rstChld.AddNew

Impostare fldAttach = rstChld.Fields ( "Filedata") "per aggiungere un nuovo campo e per impostare il campo che contiene dati binari.

5 Tipo "fldAttach.LoadFromFile" C: \ attachThisfile.txt "

rstChld.Update "per caricare il file viene allegato e per aggiornare il record.

6 Tipo "rstChld.Close

rst.Update "per chiudere il set di record e aggiornare il primo set di record.

Tipo "rst.Close" per chiudere il recordset e "End Sub" sull'ultima riga, se necessario.

Consigli e avvertenze

  • Il tuo sub finale dovrebbe essere simile a questo:
  • "addAttachments sub ()
  • db fioco come DAO.Database
  • Dim primo Come DAO.Recordset
  • Dim rstChld Come DAO.Recordset2
  • Dim fldAttach Come DAO.Field2
  • Set db = CurrentDb
  • Set rst = db.OpenRecordset ( "Table1")
  • rst.AddNew
  • Set rstChld = rst.Fields ( "Allegati"). Valore
  • rstChld.AddNew
  • Impostare fldAttach = rstChld.Fields ( "Filedata")
  • fldAttach.LoadFromFile "C: \ Avelar \ eHow \ attachThisfile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • End Sub "