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 .
Copyright © počítačové znalosti Všetky práva vyhradené