Hoe een bestand in te sluiten in een Access-database met behulp van Visual Basic

Schrijver: Eugene Taylor
Datum Van Creatie: 12 Augustus 2021
Updatedatum: 16 November 2024
Anonim
Full EA Portal Onboarding Session
Video: Full EA Portal Onboarding Session

Inhoud

U kunt een bestand koppelen aan een Microsoft Access 2007-database met behulp van Visual Basic. Access 2007 biedt een nieuw gegevenstype, genaamd Bijlage, dat u kunt gebruiken om alle soorten documenten in uw database op te slaan, zoals Word-bestanden of digitale afbeeldingen. U hoeft zich geen zorgen te maken over de grootte van de database, omdat Access 2007 de bestanden automatisch comprimeert. Een enkele record kan ook meerdere bijlagen verwerken.


routebeschrijving

Voeg bestanden toe aan een toegangsdatabase door Visual Basic te gebruiken (binaire cijfers - computer science image by drx from Fotolia.com)

  1. Start Microsoft Access 2007 en maak een tabel met de naam "Tabel 1". Voeg een veld toe met de naam "Files" en stel het "Data Type" in op "Attachment". Klik op "Hulpmiddelen voor databases" en selecteer "Visual Basic" in het deelvenster "Macro". Maak een tekstbestand in "C: " met de naam "attachThis.File.txt".

  2. Maak een nieuwe sub door "Sub addAttachments ()" te typen en de volgende variabelen erin te declareren: "Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"

  3. Typ "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" om een ​​nieuwe record toe te voegen aan "Table1".


  4. Typ "Set rstChld = rst.Fields (" Bijlagen "). Waarde" om een ​​onderliggende registervariabele in te stellen. Typ "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" om een ​​nieuw veld toe te voegen en het veld in te stellen waarin de binaire gegevens worden opgeslagen

  5. Typ "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" om het bestand te laden dat moet worden toegevoegd en werk het register bij.

  6. Typ "rstChld.Close rst.Update" om de recordset te sluiten en de eerste recordset bij te werken. Typ "rst.Close" om de recordset te sluiten en "End Sub" op de laatste regel, indien nodig.

tips

  • Je laatste sub zou er als volgt uit moeten zien:
  • "Sub addAttachments ()
  • Dim db As DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld As DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Stel db = CurrentDb in
  • Stel rst = db.OpenRecordset ("Table1") in
  • rst.AddNew
  • Stel rstChld = rst.Fields ("Bijlagen") in.
  • rstChld.AddNew
  • FldAttach = rstChld.Fields ("FileData") instellen
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • End Sub "