Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Spustite program Microsoft Access 2007 a vytvoriť tabuľku s názvom " Tabuľka 1 " . Pridať pole s názvom " súbory " a definovať " typ dát " ako " Príloha " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " na " makro " panelu . Vytvorte textový súbor " C : \\ " s názvom " . AttachThisfile.txt " 
 2 
 Vytvoriť nový sub zadaním " Sub addAttachments ( ) " a deklarovať nasledujúce premenné vnútri ponorky : 
 
 " Dim db Ako DAO.Database 
 
 Dim rst Ako DAO.Recordset 
 
 Dim rstChld Ako DAO.Recordset2 
 
 Dim fldAttach Ako DAO.Field2 " 
 
 3 
 typu " Set db = CurrentDb 
 
 Set rst = db.OpenRecordset ( " Tabuľka 1 " ) 
 
 rst.AddNew " pridať nový záznam do " Tabuľka 1 " . 
 4 
 Typ " Set rstChld = rst.Fields ( " Prílohy " ) . Value " definovať dieťa sady záznamov premennej . 
 
 typu " rstChld.AddNew 
 
 Nastaviť fldAttach = rstChld.Fields ( " Súbor " ) fldAttach.LoadFromFile " C " pre pridanie nového poľa a nastaviť polia , ktorá drží binárne dáta 
 5 
 typ . " : \\ attachThisfile.txt " 
 
 rstChld.Update " načítať súbor bol pripojený a aktualizovať záznam . 
 6 
 typu " rstChld.Close 
 
 rst.Update " zatvorte záznamov a aktualizovať prvú záznamov . 
 
 typu " v prípade potreby rst.Close " zatvorte záznamov a " End Sub " na poslednom riadku .