วิธีการฝังไฟล์ในฐานข้อมูล Access โดยใช้ Visual Basic

ผู้เขียน: Roger Morrison
วันที่สร้าง: 20 กันยายน 2021
วันที่อัปเดต: 12 พฤษภาคม 2024
Anonim
สอนสร้างโปรแกรมฐานข้อมูลด้วยVB2010+Acces2016
วิดีโอ: สอนสร้างโปรแกรมฐานข้อมูลด้วยVB2010+Acces2016

เนื้อหา

คุณสามารถแนบไฟล์ไปยังฐานข้อมูล Microsoft Access 2007 ได้โดยใช้ Visual Basic Access 2007 เสนอชนิดข้อมูลใหม่ที่เรียกว่า Attachment ซึ่งคุณสามารถใช้เพื่อเก็บเอกสารทุกประเภทในฐานข้อมูลของคุณเช่นไฟล์ Word หรือรูปภาพดิจิทัล คุณไม่ต้องกังวลกับขนาดของฐานข้อมูลเนื่องจาก Access 2007 บีบอัดไฟล์โดยอัตโนมัติ บันทึกเดียวยังสามารถจัดการสิ่งที่แนบมาหลายรายการ


คำสั่ง

แนบไฟล์ไปยังฐานข้อมูลการเข้าถึงโดยใช้ Visual Basic (เลขฐานสอง - ภาพวิทยาศาสตร์คอมพิวเตอร์โดย drx จาก Fotolia.com)

  1. เริ่ม Microsoft Access 2007 และสร้างตารางชื่อ "ตารางที่ 1" เพิ่มเขตข้อมูลที่ชื่อว่า "ไฟล์" และตั้งค่า "ชนิดข้อมูล" เป็น "ไฟล์แนบ" คลิก "เครื่องมือฐานข้อมูล" และเลือก "Visual Basic" ในแผง "แมโคร" สร้างไฟล์ข้อความใน "C: " ชื่อ "attachThis.File.txt"

  2. สร้างย่อยใหม่โดยพิมพ์ "Sub addAttachments ()" และประกาศตัวแปรต่อไปนี้ภายใน: "Dim db เป็น DAO.Database Dim rst เป็น DAO.Recordset Dim rstChld เป็น DAO.Recordset2 Dim fldAttach As DAO.Field2"

  3. พิมพ์ "Set db = CurrentDb ตั้งค่า rst = db.OpenRecordset (" Table1 ") rst.AddNew" เพื่อเพิ่มระเบียนใหม่ไปที่ "Table1"


  4. พิมพ์ "Set rstChld = rst.Fields (" Attachments ") ค่า" เพื่อตั้งค่าตัวแปรรีจิสตรีย่อย พิมพ์ "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" เพื่อเพิ่มฟิลด์ใหม่และตั้งค่าฟิลด์ที่เก็บข้อมูลไบนารี

  5. พิมพ์ "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" เพื่อโหลดไฟล์ที่จะต่อท้ายและอัปเดตรีจิสตรี

  6. พิมพ์ "rstChld.Close rst.Update" เพื่อปิดชุดระเบียนและอัปเดตชุดระเบียนแรก พิมพ์ "rst.Close" เพื่อปิดชุดระเบียนและ "End Sub" ในบรรทัดสุดท้ายหากจำเป็น

เคล็ดลับ

  • ข้อมูลย่อยสุดท้ายของคุณควรมีลักษณะดังนี้:
  • "ย่อย addAttachments ()
  • Dim db As DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld As DAO.Recordset2
  • ติ่ม fldAttach เป็น DAO.Field2
  • ตั้ง db = CurrentDb
  • ตั้งค่า rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • ตั้งค่า rstChld = rst.Fields ("Attachments")
  • rstChld.AddNew
  • ตั้งค่า fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • ท้ายย่อย "