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

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

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

Δημιουργήστε ένα νέο sub πληκτρολογώντας " Sub addAttachments ( ) " και να αναγνωρίσει τις ακόλουθες μεταβλητές στο εσωτερικό του υπο :

"Dim db Όπως DAO.Database

Dim rst Όπως DAO.Recordset

Dim rstChld Όπως DAO.Recordset2

Dim fldAttach Όπως DAO.Field2 "

Η 3

Τύπος "Set db = CurrentDb

Set RST = db.OpenRecordset ( " Πίνακας 1 " )

rst.AddNew " για να προσθέσετε μια νέα εγγραφή στο " Πίνακας 1 ".
Η 4

Τύπος " Set rstChld = rst.Fields ( " Συνημμένα " ) . Value" για να ορίσετε μια μεταβλητή παιδί εγγραφών .

Τύπος " rstChld.AddNew

Ορισμός fldAttach = rstChld.Fields ( " FileData " ) fldAttach.LoadFromFile " C " για να προσθέσετε ένα νέο πεδίο και να ορίσετε το πεδίο που κρατά δυαδικά δεδομένα
5

Τύπος . " : \\ attachThisfile.txt "

rstChld.Update " για να φορτώσετε το αρχείο που επισυνάπτεται και να ενημερώσετε την εγγραφή .
Η 6

Τύπος " rstChld.Close

rst.Update " για να κλείσει το σύνολο εγγραφών και την ενημέρωση της πρώτης εγγραφών .

Τύπος " rst.Close " για να κλείσει το σύνολο εγγραφών και" End Sub " στην τελευταία σειρά , αν χρειαστεί .
εικόνων