Slik legger du inn en fil i en Access-database ved hjelp av Visual Basic

Forfatter: Eugene Taylor
Opprettelsesdato: 14 August 2021
Oppdater Dato: 13 Kan 2024
Anonim
ДИМАШ УЛЕТАЮ | Dimash Fly Away Analysis
Video: ДИМАШ УЛЕТАЮ | Dimash Fly Away Analysis

Innhold

Du kan legge ved en fil til en Microsoft Access 2007-database ved hjelp av Visual Basic. Tilgang 2007 tilbyr en ny datatype, kalt Vedlegg, som du kan bruke til å lagre alle typer dokumenter i databasen, for eksempel Word-filer eller digitale bilder. Du trenger ikke å bekymre deg for størrelsen på databasen, siden Access 2007 komprimerer filene automatisk. En enkelt plate kan også håndtere flere vedlegg.


retninger

Fest filer til en tilgangsdatabase ved hjelp av Visual Basic (binære tall - datavitenskapsbilde av drx fra Fotolia.com)

  1. Start Microsoft Access 2007 og opprett et bord med tittelen "Tabell 1". Legg til et felt som heter "Files" og sett "Data Type" til "Attachment." Klikk på "Database Tools" og velg "Visual Basic" i "Macro" -panelet. Opprett en tekstfil i "C: " kalt "attachThis.File.txt".

  2. Opprett en ny under ved å skrive "Sub addAttachments ()" og deklarere følgende variabler i den: "Dim db Som DAO.Database Dim rst Som DAO.Recordset Dim rstChld Som DAO.Recordset2 Dim fldAttach Som DAO.Field2"

  3. Skriv "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" for å legge til en ny post til "Table1".


  4. Skriv inn "Set rstChld = rst.Fields (" Attachments "). Verdi" for å angi en registerregistervariabel. Skriv "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" for å legge til et nytt felt og angi feltet som lagrer binærdataene

  5. Skriv "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" for å laste filen som skal legges til og oppdatere registret.

  6. Skriv "rstChld.Close rst.Update" for å lukke platesettet og oppdatere det første platesettet. Skriv "rst.Close" for å lukke platesettet og "End Sub" på den siste linjen, om nødvendig.

tips

  • Din siste del skal se slik ut:
  • "Sub addAttachments ()
  • Dim db Som DAO.Database
  • Dim rst Som DAO.Recordset
  • Dim rstChld Som DAO.Recordset2
  • Dim fldAttach Som DAO.Field2
  • Angi db = CurrentDb
  • Angi rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Angi rstChld = rst.Fields ("Vedlegg").
  • rstChld.AddNew
  • Angi fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Slutt Sub "