Cum să încorporați un fișier într-o bază de date Access utilizând Visual Basic

Autor: Eugene Taylor
Data Creației: 10 August 2021
Data Actualizării: 1 Mai 2024
Anonim
Cum să încorporați un fișier într-o bază de date Access utilizând Visual Basic - Articole
Cum să încorporați un fișier într-o bază de date Access utilizând Visual Basic - Articole

Conţinut

Puteți atașa un fișier la o bază de date Microsoft Access 2007 utilizând Visual Basic. Access 2007 oferă un nou tip de date, numit atașament, pe care îl puteți folosi pentru a stoca toate tipurile de documente în baza de date, cum ar fi fișierele Word sau imaginile digitale. Nu trebuie să vă faceți griji cu privire la dimensiunea bazei de date, deoarece Access 2007 comprimă automat fișierele. O singură înregistrare poate gestiona și atașamentele multiple.


instrucțiuni de ghidare

Atașați fișierele la o bază de date de acces utilizând Visual Basic (cifre binare - imagine computerizată de drx de la Fotolia.com)

  1. Porniți Microsoft Access 2007 și creați un tabel numit "Tabelul 1". Adăugați un câmp numit "Fișiere" și setați "Tipul de date" în "Atașare". Faceți clic pe "Instrumente de bază de date" și selectați "Visual Basic" în panoul "Macro". Creați un fișier text în "C: " numit "attachThis.File.txt".

  2. Creați o nouă sub-tastând "Sub addAttachments ()" și declarați următoarele variabile în cadrul acesteia: "Dim db Ca DAO.Database Dimstri ca DAO.Recordset Dim rstChld Ca DAO.Recordset2 Dim fldAttach Ca DAO.Field2"


  3. Tip "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" pentru a adăuga o nouă înregistrare la "Table1".

  4. Tip "Set rstChld = rst.Fields (" Attachments "). Valoare" pentru a seta o variabilă de registru copil. Tastați "rstChld.AddNew Setați fldAttach = rstChld.Fields (" DataFile ")" pentru a adăuga un câmp nou și pentru a seta câmpul care stochează datele binare

  5. Tastați "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" pentru a încărca fișierul care trebuie adăugat și pentru a actualiza registrul.

  6. Introduceți "rstChld.Close rst.Update" pentru a închide setul de înregistrări și pentru a actualiza prima setare de înregistrări. Introduceți "rst.Close" pentru a închide setul de înregistrări și "End Sub" pe ultima linie, dacă este necesar.


sfaturi

  • Sub-ul dvs. final ar trebui să arate astfel:
  • "Sub addAttachments ()
  • Dim db Ca DAO.Databaza
  • Dim prima ca DAO.Recordset
  • Dim rstChld Ca DAO.Recordset2
  • Dimensiune fldAttach Ca DAO.Field2
  • Setați db = CurrentDb
  • Setați rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Setați rstChld = rst.Fields ("Attachments").
  • rstChld.AddNew
  • Setați fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • End Sub "