เนื้อหา
คุณสามารถแนบไฟล์ไปยังฐานข้อมูล Microsoft Access 2007 ได้โดยใช้ Visual Basic Access 2007 เสนอชนิดข้อมูลใหม่ที่เรียกว่า Attachment ซึ่งคุณสามารถใช้เพื่อเก็บเอกสารทุกประเภทในฐานข้อมูลของคุณเช่นไฟล์ Word หรือรูปภาพดิจิทัล คุณไม่ต้องกังวลกับขนาดของฐานข้อมูลเนื่องจาก Access 2007 บีบอัดไฟล์โดยอัตโนมัติ บันทึกเดียวยังสามารถจัดการสิ่งที่แนบมาหลายรายการ
คำสั่ง
แนบไฟล์ไปยังฐานข้อมูลการเข้าถึงโดยใช้ Visual Basic (เลขฐานสอง - ภาพวิทยาศาสตร์คอมพิวเตอร์โดย drx จาก Fotolia.com)-
เริ่ม Microsoft Access 2007 และสร้างตารางชื่อ "ตารางที่ 1" เพิ่มเขตข้อมูลที่ชื่อว่า "ไฟล์" และตั้งค่า "ชนิดข้อมูล" เป็น "ไฟล์แนบ" คลิก "เครื่องมือฐานข้อมูล" และเลือก "Visual Basic" ในแผง "แมโคร" สร้างไฟล์ข้อความใน "C: " ชื่อ "attachThis.File.txt"
-
สร้างย่อยใหม่โดยพิมพ์ "Sub addAttachments ()" และประกาศตัวแปรต่อไปนี้ภายใน: "Dim db เป็น DAO.Database Dim rst เป็น DAO.Recordset Dim rstChld เป็น DAO.Recordset2 Dim fldAttach As DAO.Field2"
-
พิมพ์ "Set db = CurrentDb ตั้งค่า rst = db.OpenRecordset (" Table1 ") rst.AddNew" เพื่อเพิ่มระเบียนใหม่ไปที่ "Table1"
-
พิมพ์ "Set rstChld = rst.Fields (" Attachments ") ค่า" เพื่อตั้งค่าตัวแปรรีจิสตรีย่อย พิมพ์ "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" เพื่อเพิ่มฟิลด์ใหม่และตั้งค่าฟิลด์ที่เก็บข้อมูลไบนารี
-
พิมพ์ "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" เพื่อโหลดไฟล์ที่จะต่อท้ายและอัปเดตรีจิสตรี
-
พิมพ์ "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
- ท้ายย่อย "