Så här lägger du in en fil i en Access-databas med Visual Basic

Författare: Judy Howell
Skapelsedatum: 5 Juli 2021
Uppdatera Datum: 1 Juli 2024
Anonim
Så här lägger du in en fil i en Access-databas med Visual Basic - Artiklar
Så här lägger du in en fil i en Access-databas med Visual Basic - Artiklar

Innehåll

Du kan bifoga en fil till en Microsoft Access 2007-databas genom att använda Visual Basic. Access 2007 erbjuder en ny datatyp, kallad Attachment, som du kan använda för att lagra alla typer av dokument i din databas, till exempel Word-filer eller digitala bilder. Du behöver inte oroa dig för databasens storlek, eftersom Access 2007 komprimerar filerna automatiskt. En enskild post kan också hantera flera bilagor.


vägbeskrivning

Bifoga filer till en åtkomstdatabas med hjälp av Visual Basic (binära siffror - datavetenskap bild av drx från Fotolia.com)

  1. Starta Microsoft Access 2007 och skapa en tabell med namnet "Tabell 1". Lägg till ett fält som heter "Files" och ställa in "Data Type" till "Attachment." Klicka på "Databasverktyg" och välj "Visual Basic" i "Makro" -panelen. Skapa en textfil i "C: " med namnet "attachThis.File.txt".

  2. Skapa en ny under genom att skriva "Sub addAttachments ()" och deklarera följande 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 "Ange db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" för att lägga till en ny post till "Table1".


  4. Skriv "Set rstChld = rst.Fields (" Attachments "). Värde" för att ställa in en barnregistret variabel. Skriv "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" för att lägga till ett nytt fält och ange fältet som lagrar binära data

  5. Skriv "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" för att ladda filen som ska bifogas och uppdatera registret.

  6. Skriv "rstChld.Close rst.Update" för att stänga recordset och uppdatera den första recordset. Skriv "rst.Close" för att stänga recordset och "End Sub" på den sista raden, om det behövs.

tips

  • Din sista del ska se så här ut:
  • "Sub addAttachments ()
  • Dim db Som DAO.Database
  • Dimma som DAO.Recordset
  • Dimma rstChld Som DAO.Recordset2
  • Dim fldAttach som DAO.Field2
  • Ange db = CurrentDb
  • Ange rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Ange rstChld = rst.Fields ("Attachments").
  • rstChld.AddNew
  • Ange fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Slutet del "