|
Les empreintes digitales sont des motifs uniques trouvés à la surface des doigts humains. Ils sont utilisés à des fins d’identification, notamment dans le cadre d’enquêtes criminelles et de systèmes de sécurité biométriques. La base de données Access est un système de gestion de base de données relationnelle et ne dispose pas de type de données intégré pour stocker les empreintes digitales. Cependant, il existe plusieurs manières de stocker les empreintes digitales dans une base de données Access.
Une approche consiste à convertir l’image de l’empreinte digitale en un type de données binaire et à la stocker dans un champ. Cela peut être fait en utilisant la fonction ImageToBlob() dans Access VBA. Le code suivant montre un exemple de la façon de convertir une image d'empreinte digitale en un type de données binaire et de la stocker dans un champ :
```
Dim imageData en tant que variante
' Ouvrez le fichier image et convertissez-le en tableau Variant.
imageData =Image.LoadPicture("C:\Fingerprint.jpg")
' Convertit le tableau Variant en un type de données binaire.
imageData =ImageVersBlob (imageData)
' Mettre à jour l'enregistrement de la base de données avec le type de données binaire.
Mettre à jour les enregistrements
SET FieldName =imageData
OÙ IDEnregistrement =1 ;
```
Une autre approche consiste à stocker l’image de l’empreinte digitale sous forme de pièce jointe à un enregistrement. Cela peut être fait à l’aide de la collection Attachments de l’objet Recordset. Le code suivant montre un exemple de la manière de joindre une image d'empreinte digitale à un enregistrement :
```
Dim db comme DAO.Database
Dim rs Comme DAO.Recordset
Dim pièce jointe Comme DAO.Attachment
' Ouvrez la base de données.
Définir db =OpenDatabase("C:\FingerprintDatabase.accdb")
' Récupérez le jeu d'enregistrements.
Définir rs =db.OpenRecordset("TableName")
' Créez une nouvelle pièce jointe et ajoutez-la au jeu d'enregistrements.
Définir la pièce jointe =rs.CreateAttachment
attachment.FileName ="C:\Fingerprint.jpg"
attachment.Type =dbAttachBinary
' Mettre à jour le dossier.
rs.Mise à jour
```
|
