Як вставити файл у базу даних Access за допомогою Visual Basic

Автор: Roger Morrison
Дата Створення: 17 Вересень 2021
Дата Оновлення: 13 Листопад 2024
Anonim
Как ЛЕГКО и БЫСТРО вставить картинку в базу данных Access
Відеоролик: Как ЛЕГКО и БЫСТРО вставить картинку в базу данных 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 DAO.Recordset Dim rstChld Як DAO.Recordset2 Dim fldAttach As DAO.Field2"

  3. Тип "Встановити db = CurrentDb Встановити rst = db.OpenRecordset (" Table1 ") rst.AddNew", щоб додати новий запис до "Table1".


  4. Тип "Встановити rstChld = rst.Fields (" Додатки "). Значення" для встановлення змінної дочірнього реєстру. Введіть "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")", щоб додати нове поле і встановити поле, в якому зберігаються двійкові дані

  5. Введіть "fldAttach.LoadFromFile" C: attach.his.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
  • Закрити
  • Закінчити підпункт "