Du kan bifoga en fil med hjälp av Visual Basic till en Microsoft Access 2007 -databas . Access 2007 erbjuder en ny datatyp kallas anknytning som du kan använda för att lagra alla typer av dokument i databasen . Du kan lagra filer såsom Word- dokument eller digitala bilder . Du behöver inte oroa dig för din databasens storlek eftersom Access 2007 komprimerar filerna automatiskt . En enda skiva kan också hantera flera bilagor . Instruktioner
1
Starta Microsoft Access 2007 och skapa en tabell som heter " Tabell1 ". Lägga till ett fält som heter " Files " och definiera " Data Type " som " Bilaga ". Klicka på "Database Tools " och välj " Visual Basic " på " Macro " rutan . Skapa en textfil i " C : \\ " heter " attachThisfile.txt . "
2
Skapa en ny sub genom att skriva " Sub addAttachments ( ) " och förklarar följande variabler inuti sub :
" Dim db Som DAO.Database
Dim rst Som DAO.Recordset
Dim rstChld Som DAO.Recordset2
Dim fldAttach Som DAO.Field2 "
3
Type " Set db = CurrentDb
Set rst = db.OpenRecordset ( " Tabell1 " ) katalog
rst.AddNew " för att lägga till en ny post i " Tabell1 . "
4
Type " Set rstChld = rst.Fields ( " Bifogade filer " ) . Value " för att definiera en variabel barn postmängd .
Type " rstChld.AddNew
Set fldAttach = rstChld.Fields ( " FileData " ) " för att lägga till ett nytt fält och ange det fält som innehåller binära data
5
Type . " fldAttach.LoadFromFile " C : \\ attachThisfile.txt "
rstChld.Update " för att läsa in filen är fäst och att uppdatera posten .
6
Type " rstChld.Close
rst.Update " för att stänga recordset och uppdatera den första postmängd .
Type " rst.Close " för att stänga recordset och " Sub End " på sista raden om det behövs .
