Как да вградите файл в база данни на Access чрез Visual Basic

Автор: Eugene Taylor
Дата На Създаване: 16 Август 2021
Дата На Актуализиране: 12 Може 2024
Anonim
Базы данных на Visual Basic .NET. 1/4 Access.
Видео: Базы данных на Visual Basic .NET. 1/4 Access.

Съдържание

Можете да прикачите файл към база данни на Microsoft Access 2007, като използвате Visual Basic. Access 2007 предлага нов тип данни, наречен прикачен файл, който можете да използвате за съхраняване на всички видове документи в базата данни, като например файлове с Word или цифрови изображения. Не е нужно да се притеснявате за размера на базата данни, тъй като Access 2007 компресира файловете автоматично. Един запис може да обработва и множество прикачени файлове.


инструкции

Прикачване на файлове към база данни за достъп чрез Visual Basic (двоични цифри - образ на компютърната наука от drx от Fotolia.com)
  1. Стартирайте Microsoft Access 2007 и създайте таблица с име "Таблица 1". Добавете поле, наречено "Файлове" и задайте "Тип данни" на "Прикачен файл". Щракнете върху "Инструменти за бази данни" и изберете "Visual Basic" в панела "Макро". Създайте текстов файл в "C:" с име "attachThis.File.txt".

  2. Създайте нова подгрупа, като напишете "Sub addAttachments ()" и заявете следните променливи в него: "Dim db As DAO.Database Dim rst As DA.Recordset Dim rstChld As DAO.Recordset2"

  3. Тип "Задаване db = CurrentDb Задайте rst = db.OpenRecordset (" Таблица1 ") rst.AddNew", за да добавите нов запис към "Таблица1".


  4. Тип "Задайте rstChld = rst.Fields (" Приложения "). Стойност", за да зададете променлива за детски регистър. Въведете "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")", за да добавите ново поле и задайте полето, което съхранява двоичните данни

  5. Въведете "fldAttach.LoadFromFile" C: addThis.file "rstChld.Update", за да заредите файла за добавяне и да актуализирате системния регистър.

  6. Напишете "rstChld.Close rst.Update", за да затворите набора от записи и да обновите първия набор от записи. Напишете "rst.Close", за да затворите набора от записи и "End Sub" в последния ред, ако е необходимо.

съвети

  • Крайната Ви подпрограма трябва да изглежда така:
  • "Sub addAttachments ()
  • Dim db As DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld As DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Задайте db = CurrentDb
  • Задаване на rst = db.OpenRecordset ("Таблица1")
  • rst.AddNew
  • Задайте rstChld = rst.Fields ("Приложения").
  • rstChld.AddNew
  • Задаване на fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C:
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • Край под