Πώς να αποκτήσετε πρόσβαση Long Binary Data

Γνωρίζοντας πώς να έχουν πρόσβαση σε μεγάλη δυαδικά δεδομένα από έναν πίνακα βάσης δεδομένων μπορεί να κάνει την εφαρμογή της βάσης δεδομένων σας πιο δυναμική . Microsoft Office Access χρησιμοποιείται συνήθως για να σχεδιάσουν τοπικές βάσεις δεδομένων . Long δυαδικά δεδομένα χρησιμοποιούνται για την αποθήκευση αρχείων εικόνας σε έναν πίνακα βάσης δεδομένων . Μπορείτε να χρησιμοποιήσετε το Visual Basic for Applications ( VBA ) για να εξάγουν τα δυαδικά δεδομένα σε ένα αρχείο . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των εργασιών ρουτίνας στην Access και άλλες εφαρμογές του Office . Οδηγίες
Η

1 Ανοίξτε το Microsoft Office Access ? Επιλέξτε την καρτέλα "Δημιουργία " και επιλέξτε " Σχεδίαση φόρμας " για να δημιουργήσετε μια νέα φόρμα . Κάντε δεξί κλικ στη φόρμα για να εμφανιστεί το " Φύλλο ιδιοτήτων ". 2

Κάντε κλικ στην καρτέλα "Δεδομένα" . Δίπλα στο " Object Πηγή », πληκτρολογήστε το όνομα του πίνακα που περιέχει τις μεγάλες δυαδικά δεδομένα . Επιλέξτε " Μορφή " στο " Τύπος επιλογής . " Κάντε κλικ στην καρτέλα "Συμβάν" και δίπλα στο " On Click " επιλέξτε " [ Διαδικασία συμβάντος ] " για να ανοίξετε το Microsoft Visual Basic παράθυρο .
Εικόνων 3

Πληκτρολογήστε τα ακόλουθα στο " Form_Load " για να καλέσετε η λειτουργία για να εξαγάγετε καιρό δυαδικά δεδομένα από το τραπέζι σας σε ένα αρχείο :

imageToFile " C : \\ Images \\ exportedImage.jpg " , [ εικόνα ] Ξενοδοχεία

Επεξεργαστείτε τη διαδρομή, εάν θέλετε η εικόνα να να εξαχθούν σε άλλη διαδρομή και ένα διαφορετικό όνομα αρχείου . « [Εικόνα ] » είναι το πεδίο στον πίνακα που περιέχει τις μεγάλες δυαδικά δεδομένα
Η 4

αντιγραφή και επικόλληση του παρακάτω συνάρτησης σε μονάδα σας : .

ImageToFile Public Function ( strFile Όπως String , ByRef πεδίο As Object ) Όπως Long

Dim αριθμός_αρχείου As Integer

Dim byteData ( ) Όπως Byte

imageToFile = 0

αριθμός_αρχείου = FreeFile

Open strFile Για Binary Access Γράψτε Όπως αριθμός_αρχείου

byteData = πεδίο

Βάλτε # αριθμός_αρχείου , , byteData

imageToFile = ΤΤΣ ( αριθμός_αρχείου )

End Function
5

Κλείστε το "Microsoft Visual Basic" Παράθυρο και κάντε δεξί κλικ " Φόρμα1 . " Επιλέξτε " Προβολή φόρμας " για να εξάγουν τα δυαδικά δεδομένα και να δημιουργήσετε ένα αρχείο εικόνας .
Η
εικόνων