المحتوى
يمكنك إرفاق ملف بقاعدة بيانات Microsoft Access 2007 باستخدام Visual Basic. يوفر Access 2007 نوعًا جديدًا من البيانات ، يسمى "مرفق" ، يمكنك استخدامه لتخزين جميع أنواع المستندات في قاعدة البيانات الخاصة بك ، مثل ملفات Word أو الصور الرقمية. لا داعي للقلق بشأن حجم قاعدة البيانات ، لأن Access 2007 يضغط الملفات تلقائيًا. سجل واحد يمكن أيضا التعامل مع المرفقات متعددة.
الاتجاهات
إرفاق الملفات إلى قاعدة بيانات Access باستخدام Visual Basic (الأرقام الثنائية - صورة علوم الكمبيوتر عن طريق drx من Fotolia.com)-
ابدأ تشغيل Microsoft Access 2007 وإنشاء جدول باسم "الجدول 1". إضافة حقل يسمى "الملفات" وتعيين "نوع البيانات" إلى "مرفق". انقر فوق "أدوات قاعدة البيانات" وحدد "Visual Basic" في لوحة "ماكرو". إنشاء ملف نصي في "C: " المسمى "attachThis.File.txt".
-
إنشاء فرعي جديد عن طريق كتابة "Sub addAttachments ()" وقم بتعريف المتغيرات التالية داخلها: "Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"
-
اكتب "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" لإضافة سجل جديد إلى "Table1".
-
اكتب "تعيين rstChld = rst.Fields (" المرفقات "). القيمة" لتعيين متغير تسجيل تابع. اكتب "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" لإضافة حقل جديد وتعيين الحقل الذي يخزن البيانات الثنائية
-
اكتب "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" لتحميل الملف المطلوب إلحاقه وتحديث السجل.
-
اكتب "rstChld.Close rst.Update" لإغلاق مجموعة السجلات وتحديث مجموعة السجلات الأولى. اكتب "rst.Close" لإغلاق مجموعة السجلات و "End Sub" في السطر الأخير ، إذا لزم الأمر.
نصائح
- يجب أن تبدو الغواصة النهائية كما يلي:
- "المرفقات الفرعية ()
- خافت ديسيبل كما DAO.Database
- خافت rst باسم DAO.Recordset
- خافت rstChld باسم DAO.Recordset2
- خافت fldAttach باسم DAO.Field2
- تعيين ديسيبل = CurrentDb
- تعيين rst = db.OpenRecordset ("Table1")
- rst.AddNew
- عيّن rstChld = rst.Fields ("المرفقات").
- rstChld.AddNew
- تعيين fldAttach = rstChld.Fields ("FileData")
- fldAttach.LoadFromFile "C: attachThisFile.txt"
- rstChld.Update
- rstChld.Close
- rst.Update
- rst.Close
- End Sub "