Hogyan kell beágyazni egy fájlt az Access adatbázisba a Visual Basic használatával

Szerző: Randy Alexander
A Teremtés Dátuma: 4 Április 2021
Frissítés Dátuma: 4 Július 2024
Anonim
Hogyan kell beágyazni egy fájlt az Access adatbázisba a Visual Basic használatával - Cikkek
Hogyan kell beágyazni egy fájlt az Access adatbázisba a Visual Basic használatával - Cikkek

Tartalom

A Visual Basic segítségével fájlokat csatolhat a Microsoft Access 2007 adatbázishoz. Az Access 2007 új adattípust, az Attachment nevet, amely az összes típusú dokumentum tárolására szolgál az adatbázisban, mint például a Word fájlok vagy a digitális képek. Nem kell aggódnia az adatbázis mérete miatt, mivel az Access 2007 automatikusan tömöríti a fájlokat. Egyetlen rekord is kezelhet több mellékletet.


irányok

Fájlok csatolása egy hozzáférési adatbázishoz a Visual Basic használatával (bináris számjegyek - számítógépes tudomány kép drx által a Fotolia.com-tól)
  1. Indítsa el a Microsoft Access 2007 programot, és hozzon létre egy táblázatot, amelynek neve "1. táblázat". Adjon hozzá egy "Fájlok" mezőt, és állítsa az "Adat típusa" értékét "Mellékletként". Kattintson az "Adatbáziseszközök" elemre, és válassza a "Visual Basic" lehetőséget a "Makró" panelen. Hozzon létre egy szövegfájlt a "C:" nevű "attachThis.File.txt" néven.


  2. Hozzon létre egy új alpontot a "Sub addAttachments ()" beírásával, és adja meg a következő változókat benne: "Dim db Mint DAO.Database Dim rst mint DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"

  3. Írja be a "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew parancsot, hogy új rekordot adjon a" Table1 "-hez.

  4. Írja be a "Set rstChld = rst.Fields (" Attachments ") értéket. Írjon be "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" új mező hozzáadásához és a bináris adatok tárolására szolgáló mező beállításához

  5. Írja be a "fldAttach.LoadFromFile" C betűt: csatolja a "rstChld.Update" fájlt a hozzáadandó fájl betöltéséhez és a rendszerleíró adatbázis frissítéséhez.


  6. Írja be az "rstChld.Close rst.Update" parancsot a rekord bezárásához és az első felvétel frissítéséhez. Írja be az "rst.Close" parancsot, hogy szükség esetén bezárja a rekordot és az utolsó sorban az "End Sub" -t.

tippek

  • Az utolsó résznek így kell kinéznie:
  • "Sub addAttachments ()
  • Dim db Mint DAO.Database
  • Dim rst Mint DAO.Recordset
  • Dim rstChld mint DAO.Recordset2
  • Dim fldAttach as DAO.Field2
  • A db = CurrentDb beállítása
  • Rst = db.OpenRecordset ("1. táblázat") beállítása
  • rst.AddNew
  • Állítsa be az rstChld = rst.Fields ("Mellékletek") beállítást.
  • rstChld.AddNew
  • Állítsa be a fldAttach = rstChld.Fields ("FileData") beállítást
  • fldAttach.LoadFromFile "C: t
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Sub Sub End