Kako vdelati datoteko v zbirko podatkov Access z uporabo Visual Basic

Vsebina

• Navodila
• Kako

Datoteko lahko priložite zbirki podatkov Microsoft Access 2007 s pomočjo Visual Basic. Access 2007 ponuja nov tip podatkov, imenovan Priloga, ki ga lahko uporabite za shranjevanje vseh vrst dokumentov v podatkovni zbirki, kot so datoteke Word ali digitalne slike. Ni vam treba skrbeti za velikost baze podatkov, saj Access 2007 datoteke samodejno stisne. En sam zapis lahko obdeluje tudi več prilog.

Navodila

Priložite datoteke v dostopno bazo podatkov z uporabo Visual Basic (binarne številke - računalniška podoba drxa iz Fotolia.com)

1. Zaženite Microsoft Access 2007 in ustvarite tabelo z imenom "Tabela 1". Dodajte polje z imenom »Datoteke« in nastavite »Vrsta podatkov« na »Prilogo«. Kliknite "Orodja za zbirke podatkov" in izberite "Visual Basic" v plošči "Makro". Ustvarite besedilno datoteko v "C:", imenovano "attachThis.File.txt".

2. Ustvarite novo podmapo tako, da vnesete "Sub addAttachments ()" in v njej deklarirate naslednje spremenljivke: "Dim db As DAO.Database Dim rst As DA.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"

3. Tip "Set db = CurrentDb Set rst = db.OpenRecordset (" Tabela1 ") rst.AddNew", da dodate nov zapis v "Tabela1".

   
   

4. Type "Nastavi rstChld = rst.Fields (" Priloge "). Vrednost" za nastavitev spremenljivke podrejenega registra. Vnesite "rstChld.AddNew Set fldAttach = rstChld.Fields (" Podatkovna datoteka ")", da dodate novo polje in nastavite polje, ki shranjuje binarne podatke

5. Vnesite "fldAttach.LoadFromFile" C: ata.file "rstChld.Update", da naložite datoteko, ki jo želite dodati, in posodobite register.

6. Vnesite "rstChld.Close rst.Update", da zaprete zbirko zapisov in posodobite prvi nabor zapisov. Vnesite "rst.Close", da zaprete zbirko zapisov in "End Sub" na zadnji vrstici, če je potrebno.

Kako

• Končna podmena bi morala izgledati takole:
• "Sub addAttachments ()
• Dim db Kot DAO.Database
• Dim rst As DA.Recordset
• Dim rstChld As DAO.Recordset2
• Dim fldAttach Kot DAO.Field2
• Nastavi db = CurrentDb
• Nastavi rst = db.OpenRecordset ("Tabela1")
• rst.AddNew
• Nastavite rstChld = rst.Fields ("Priloge").
• rstChld.AddNew
• Nastavi fldAttach = rstChld.Fields ("Datotečni podatki")
• fldAttach.LoadFromFile "C: t
• rstChld.Update
• rstChld.Zapri
• rst.Update
• zaprto
• End Sub "