Jak vložit soubor do databáze aplikace Access pomocí jazyka Visual Basic

Autor: Judy Howell
Datum Vytvoření: 1 Červenec 2021
Datum Aktualizace: 6 Smět 2024
Anonim
Jak vložit soubor do databáze aplikace Access pomocí jazyka Visual Basic - Články
Jak vložit soubor do databáze aplikace Access pomocí jazyka Visual Basic - Články

Obsah

Soubor databáze Microsoft Access 2007 můžete připojit pomocí jazyka. Aplikace Access 2007 nabízí nový typ dat nazvaný Příloha, který můžete použít k ukládání všech typů dokumentů v databázi, například souborů aplikace Word nebo digitálních obrázků. Nemusíte se starat o velikost databáze, protože aplikace Access 2007 komprimuje soubory automaticky. Jeden záznam může také zpracovat více příloh.


Pokyny

Připojit soubory k databázi Access pomocí jazyka (binární číslice - informatika) obrázek od drx from Fotolia.com)

  1. Spusťte aplikaci Microsoft Access 2007 a vytvořte tabulku s názvem "Tabulka 1". Přidejte pole s názvem "Soubory" a nastavte "Typ dat" na "Příloha". Klikněte na "Databázové nástroje" a vyberte "Visual Basic" v panelu "Makro". Vytvořit textový soubor v "C:" s názvem "attachThis.File.txt".

  2. Vytvořit nový sub zadáním "Sub addAttachments ()" a deklarovat následující proměnné v ní: "Dim db jako DAO.Database Dim rst jako DAO.Recordset Dim rstChld jako DAO.Recordset2 Dim fldAttach As DAO.Field2"


  3. Zadejte "Set db = CurrentDb Nastavit rst = db.OpenRecordset (" Table1 ") rst.AddNew" přidat nový záznam "Tabulka1".

  4. Zadejte "Set rstChld = rst.Fields (" Přílohy "). Hodnota" nastavit proměnnou podřízeného registru. Zadejte "rstChld.AddNew Nastavit fldAttach = rstChld.Fields (" DataFile ")" přidat nové pole a nastavit pole, které ukládá binární data

  5. Zadejte "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" načíst soubor, který má být připojen a aktualizovat registr.

  6. Zadejte "rstChld.Close rst.Update" zavřete sadu záznamů a aktualizovat první sadu záznamů. Zadejte "rst.Close" zavřete sadu záznamů a "End Sub" na posledním řádku v případě potřeby.

Jak

  • Vaše poslední část by měla vypadat takto:
  • "Sub addAttachments ()
  • Dim db jako DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld Jako DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Nastavte db = CurrentDb
  • Nastavit rst = db.OpenRecordset ("Tabulka1")
  • rst.AddNew
  • Nastavte rstChld = rst.Fields ("Přílohy").
  • rstChld.AddNew
  • Nastavit fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: připojitThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • End Sub "