כיצד להטביע קובץ במסד נתונים של Access באמצעות Visual Basic

מְחַבֵּר: Roger Morrison
תאריך הבריאה: 20 סֶפּטֶמבֶּר 2021
תאריך עדכון: 10 מאי 2024
Anonim
מדעי המחשב- תבʺא: יצירת מסד נתונים, Visual Studio | הנדסת תוכנה וסייבר לכיתות י,יא,יב
וִידֵאוֹ: מדעי המחשב- תבʺא: יצירת מסד נתונים, Visual Studio | הנדסת תוכנה וסייבר לכיתות י,יא,יב

תוֹכֶן

באפשרותך לצרף קובץ למסד נתונים של Microsoft Access 2007 באמצעות Visual Basic. Access 2007 מציע סוג נתונים חדש, הנקרא קובץ מצורף, שבו ניתן להשתמש כדי לאחסן את כל סוגי המסמכים במסד הנתונים, כגון קובצי Word או תמונות דיגיטליות. אתה לא צריך לדאוג לגבי גודל מסד הנתונים, מאז Access 2007 דוחס את הקבצים באופן אוטומטי. רשומה אחת יכולה גם לטפל במספר קבצים מצורפים.


הוראות

צרף קבצים למסד הנתונים של Access באמצעות Visual Basic (ספרות בינאריות - תמונת מדעי המחשב על ידי drx מ Fotolia.com)

  1. הפעל את Microsoft Access 2007 וצור טבלה בשם "טבלה 1". הוסף שדה בשם "קבצים" והגדר את "סוג נתונים" ל "קובץ מצורף". לחץ על "כלי מסד נתונים" ובחר "Visual Basic" בחלונית "מאקרו". צור קובץ טקסט בשם "C: " בשם "AttachThis.File.txt".

  2. יצירת תת חדשה על ידי הקלדת "תת addAttachments ()" ולהכריז על המשתנים הבאים בתוכה: "DIM db כמו DAO.Database DST רך כמו DAO.Recordset עמום rstChld כמו DAO.Recordset2 עמום fldAttach כמו DAO.Field2"

  3. הקלד "קבע db = CurrentDb קבע rst = db.OpenRecordset (" טבלה 1 ") rst.AddNew" כדי להוסיף רשומה חדשה ל "טבלה 1".


  4. ערך "set rstChld = rst.Fields (" קבצים מצורפים ") ערך" להגדרת משתנה רישום ילדים. הקלד "rstChld.AddNew הגדר fldAttach = rstChld.Fields (" DataFile ")" כדי להוסיף שדה חדש ולהגדיר את השדה שמאחסן את הנתונים הבינאריים

  5. הקלד "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" כדי לטעון את הקובץ להיות מצורף לעדכן את הרישום.

  6. הקלד "rstChld.Close rst.Update" כדי לסגור את ערכת הרשומות ולעדכן את ערכת הרשומות הראשונה. הקלד "rst.Close" כדי לסגור את ערכת הרשומות ואת "End Sub" בשורה האחרונה, במידת הצורך.

איך

  • הסוף הסופי שלך אמור להיראות כך:
  • "תת-תוספות משנה ()
  • Dm עמום כמו DAO.Database
  • עמום rst כמו DAO.Recordset
  • עמום rstChld כמו DAO.Recordset2
  • עמום fldAttach כמו DAO.Field2
  • קבע db = CurrentDb
  • הגדר rst = db.OpenRecordset ("טבלה 1")
  • 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 "