Bagaimana untuk membenamkan fail dalam pangkalan data Akses dengan menggunakan Visual Basic

Pengarang: Eugene Taylor
Tarikh Penciptaan: 14 Ogos 2021
Tarikh Kemas Kini: 17 November 2024
Anonim
Excel Sorting and Filtering Data
Video.: Excel Sorting and Filtering Data

Kandungan

Anda boleh melampirkan fail ke pangkalan data Microsoft Access 2007 dengan menggunakan Visual Basic. Akses 2007 menawarkan jenis data baru, yang disebut Lampiran, yang anda boleh gunakan untuk menyimpan semua jenis dokumen dalam pangkalan data anda, seperti fail Word atau imej digital. Anda tidak perlu bimbang tentang saiz pangkalan data, kerana Access 2007 memampatkan fail secara automatik. Rekod tunggal juga boleh mengendalikan beberapa lampiran.


Arahan

Lampirkan Fail ke Pangkalan Data Akses dengan Menggunakan Visual Basic (digit binari - imej sains komputer oleh drx dari Fotolia.com)

  1. Mulakan Microsoft Access 2007 dan buat jadual yang dinamakan "Jadual 1". Tambah medan yang dipanggil "Fail" dan tetapkan "Jenis Data" kepada "Lampiran." Klik "Alat Pangkalan Data" dan pilih "Visual Basic" dalam panel "Makro". Buat fail teks dalam "C: " bernama "attachThis.File.txt".

  2. Buat sub baru dengan menaip "Sub addAttachments ()" dan mengisytiharkan pembolehubah berikut di dalamnya: "Dim db Sebagai DAO.Database Dimulai Sebagai DAO.Recordset Dim rstChld Sebagai DAO.Recordset2 Dim fldAttach Sebagai DAO.Field2"

  3. Type "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" untuk menambah rekod baru ke "Table1".


  4. Taip "Tetapkan rstChld = rst.Fields (" Lampiran "). Nilai" untuk menetapkan pembolehubah registri kanak-kanak. Ketik "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" untuk menambah medan baru dan tetapkan field yang menyimpan data biner

  5. Taip "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" untuk memuatkan fail yang akan dilampirkan dan kemas kini pendaftaran.

  6. Ketik "rstChld.Close rst.Update" untuk menutup recordset dan mengemas kini recordset pertama. Ketik "rst.Close" untuk menutup recordset dan "End Sub" pada baris terakhir, jika perlu.

Bagaimana

  • Sub terakhir anda harus kelihatan seperti ini:
  • "Sub addAttachments ()
  • Dim db Sebagai DAO.Database
  • Dimulai Sebagai DAO.Recordset
  • Dim rstChld Sebagai DAO.Recordset2
  • Dim fldAttach Sebagai DAO.Field2
  • Tetapkan db = CurrentDb
  • Tetapkan rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Tetapkan rstChld = rst.Fields ("Lampiran").
  • rstChld.AddNew
  • Tetapkan fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Sub Akhir "