Πώς να ενσωματώσετε ένα αρχείο σε μια βάση δεδομένων της Access χρησιμοποιώντας τη Visual Basic

Συγγραφέας: Eugene Taylor
Ημερομηνία Δημιουργίας: 8 Αύγουστος 2021
Ημερομηνία Ενημέρωσης: 20 Νοέμβριος 2024
Anonim
C# ASP.NET MVC Web App & API with React and TypeScript
Βίντεο: C# ASP.NET MVC Web App & API with React and TypeScript

Περιεχόμενο

Μπορείτε να επισυνάψετε ένα αρχείο σε μια βάση δεδομένων της Microsoft Access 2007 χρησιμοποιώντας τη Visual Basic. Η Access 2007 προσφέρει έναν νέο τύπο δεδομένων, που ονομάζεται συνημμένο, που μπορείτε να χρησιμοποιήσετε για την αποθήκευση όλων των τύπων εγγράφων στη βάση δεδομένων σας, όπως αρχεία Word ή ψηφιακές εικόνες. Δεν χρειάζεται να ανησυχείτε για το μέγεθος της βάσης δεδομένων, καθώς η Access 2007 συμπιέζει τα αρχεία αυτόματα. Μια ενιαία εγγραφή μπορεί επίσης να χειριστεί πολλαπλά συνημμένα.


Οδηγίες

Επισύναψη αρχείων σε μια βάση δεδομένων της Access χρησιμοποιώντας τη Visual Basic (δυαδικά ψηφία - εικόνα της επιστήμης των υπολογιστών από drx από την Fotolia.com)

  1. Ξεκινήστε τη Microsoft Access 2007 και δημιουργήστε έναν πίνακα που ονομάζεται "Πίνακας 1". Προσθέστε ένα πεδίο που ονομάζεται "Αρχεία" και ορίστε "Τύπος δεδομένων" σε "Συνημμένο". Κάντε κλικ στο "Εργαλεία βάσης δεδομένων" και επιλέξτε "Visual Basic" στον πίνακα "Macro". Δημιουργήστε ένα αρχείο κειμένου στο "C: " που ονομάζεται "attachThis.File.txt".

  2. Δημιουργήστε μια νέα υποδιαστολή πληκτρολογώντας "Sub addAttachments ()" και δηλώστε τις ακόλουθες μεταβλητές μέσα σε αυτήν: "Dim db Ως DAO.Database Dimst 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 (" Συνημμένα ")" Value "για να ορίσετε μια μεταβλητή μητρώου. Πληκτρολογήστε "rstChld.AddNew Ρυθμίστε fldAttach = rstChld.Fields (" DataFile ")" για να προσθέσετε ένα νέο πεδίο και να ορίσετε το πεδίο που αποθηκεύει τα δυαδικά δεδομένα

  5. Πληκτρολογήστε "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" για να φορτώσετε το αρχείο που θα προστεθεί και να ενημερώσετε το μητρώο.

  6. Πληκτρολογήστε "rstChld.Close rst.Update" για να κλείσετε το σύνολο εγγραφών και να ενημερώσετε το πρώτο σύνολο εγγραφών. Πληκτρολογήστε "rst.Close" για να κλείσετε το σύνολο εγγραφών και "End Sub" στην τελευταία γραμμή, εάν είναι απαραίτητο.


Πώς

  • Το τελευταίο σου υποκεφάλαιο θα πρέπει να έχει ως εξής:
  • "Sub addAttachments ()
  • Dim db Ως DAO.Database
  • Μέτρηση ως DAO.Recordset
  • DimestChld Ως DAO.Recordset2
  • Διαγραφή ως DAO.Field2
  • Ορίστε db = 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 "