Ako vložiť súbor do databázy programu Access pomocou jazyka Visual Basic

Autor: Judy Howell
Dátum Stvorenia: 2 V Júli 2021
Dátum Aktualizácie: 9 December 2024
Anonim
Ako vložiť súbor do databázy programu Access pomocou jazyka Visual Basic - Články
Ako vložiť súbor do databázy programu Access pomocou jazyka Visual Basic - Články

Obsah

Súbor môžete pripojiť k databáze programu Microsoft Access 2007 pomocou jazyka Visual Basic. Program Access 2007 ponúka nový typ údajov nazvaný Príloha, ktorý môžete použiť na ukladanie všetkých typov dokumentov v databáze, napríklad súborov programu Word alebo digitálnych obrázkov. Nemusíte sa starať o veľkosť databázy, pretože Access 2007 komprimuje súbory automaticky. Jeden záznam môže tiež spracovať viacero príloh.


inštrukcia

Pripojiť súbory do databázy Access pomocou jazyka Visual Basic (binárne číslice - informatika veda snímka drx from Fotolia.com)

  1. Spustite program Microsoft Access 2007 a vytvorte tabuľku s názvom "Tabuľka 1". Pridajte pole s názvom "Súbory" a nastavte "Typ údajov" na "Príloha". Kliknite na "Databázové nástroje" a vyberte "Visual Basic" v "Makro" panel. Vytvorte textový súbor v "C:" s názvom "attachThis.File.txt".

  2. Vytvoriť nový sub zadaním "Sub addAttachments ()" a deklarovať nasledujúce premenné v ňom: "Dim db ako DAO.Database Dim rst As DAO.Recordset Dim rstChld Ako DAO.Recordset2 Dim fldAttach As DAO.Field2"


  3. Typ "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" na pridanie nového záznamu do "Table1".

  4. Typ "Nastaviť rstChld = rst.Fields (" Prílohy "). Hodnota" nastaviť premennú podriadeného registra. Typ "rstChld.AddNew Nastaviť fldAttach = rstChld.Fields (" DataFile ")" na pridanie nového poľa a nastavenie poľa, do ktorého sa ukladajú binárne údaje

  5. Zadajte "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" na načítanie súboru, ktorý sa má pridať, a aktualizáciu registra.

  6. Zadajte "rstChld.Close rst.Update" na zatvorenie sady záznamov a aktualizáciu prvej sady záznamov. Zadajte "rst.Close" na zatvorenie sady záznamov a "End Sub" na poslednom riadku, ak je to potrebné.

tipy

  • Vaša posledná čiastka by mala vyzerať takto:
  • "Sub addAttachments ()
  • Dim db Ako DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld Ako DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Nastavte db = CurrentDb
  • Nastaviť rst = db.OpenRecordset ("Tabuľka1")
  • rst.AddNew
  • Nastavte rstChld = rst.Fields ("Prílohy").
  • rstChld.AddNew
  • Nastaviť fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: pripojiťThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Koniec koncovky "