Πώς αποθηκεύετε τα δακτυλικά αποτυπώματα στη βάση δεδομένων της Access;

Τα δακτυλικά αποτυπώματα είναι μοναδικά σχέδια που βρίσκονται στην επιφάνεια των ανθρώπινων δακτύλων. Χρησιμοποιούνται για σκοπούς ταυτοποίησης, συμπεριλαμβανομένων ποινικών ερευνών και βιομετρικών συστημάτων ασφαλείας. Η βάση δεδομένων Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων και δεν διαθέτει ενσωματωμένο τύπο δεδομένων για την αποθήκευση δακτυλικών αποτυπωμάτων. Ωστόσο, υπάρχουν διάφοροι τρόποι αποθήκευσης δακτυλικών αποτυπωμάτων σε μια βάση δεδομένων της Access.

Μια προσέγγιση είναι να μετατρέψετε την εικόνα δακτυλικού αποτυπώματος σε δυαδικό τύπο δεδομένων και να την αποθηκεύσετε σε ένα πεδίο. Αυτό μπορεί να γίνει χρησιμοποιώντας τη συνάρτηση ImageToBlob() στο Access VBA. Ο παρακάτω κώδικας δείχνει ένα παράδειγμα του τρόπου μετατροπής μιας εικόνας δακτυλικών αποτυπωμάτων σε δυαδικό τύπο δεδομένων και αποθήκευσης σε ένα πεδίο:

```

Μείωση εικόνας Δεδομένων ως παραλλαγή

Ανοίξτε το αρχείο εικόνας και μετατρέψτε το σε πίνακα Variant.

imageData =Image.LoadPicture("C:\Fingerprint.jpg")

Μετατρέψτε τον πίνακα Variant σε δυαδικό τύπο δεδομένων.

imageData =ImageToBlob(imageData)

Ενημερώστε την εγγραφή της βάσης δεδομένων με τον δυαδικό τύπο δεδομένων.

Ενημέρωση αρχείων

SET FieldName =imageData

WHERE Αναγνωριστικό εγγραφής =1;

```

Μια άλλη προσέγγιση είναι η αποθήκευση της εικόνας δακτυλικών αποτυπωμάτων ως συνημμένο σε μια εγγραφή. Αυτό μπορεί να γίνει χρησιμοποιώντας τη συλλογή Συνημμένα του αντικειμένου Recordset. Ο παρακάτω κώδικας δείχνει ένα παράδειγμα για το πώς να επισυνάψετε μια εικόνα δακτυλικού αποτυπώματος σε μια εγγραφή:

```

Dim db Ως DAO.Βάση δεδομένων

Dim rs As DAO.Recordset

Αχνό συνημμένο ως DAO.Attachment

Ανοίξτε τη βάση δεδομένων.

Ορισμός db =OpenDatabase ("C:\FingerprintDatabase.accdb")

Πάρτε το σετ αρχείων.

Set rs =db.OpenRecordset("TableName")

Δημιουργήστε ένα νέο συνημμένο και προσθέστε το στο σύνολο εγγραφών.

Ορισμός συνημμένου =rs.CreateAttachment

attachment.FileName ="C:\Fingerprint.jpg"

συνημμένο.Τύπος =dbAttachBinary

Ενημερώστε την εγγραφή.

rs.Ενημέρωση

```