Comment incorporer un fichier dans une base de données Access à l'aide de Visual Basic

Auteur: Robert Simon
Date De Création: 18 Juin 2021
Date De Mise À Jour: 15 Peut 2024
Anonim
Comment incorporer un fichier dans une base de données Access à l'aide de Visual Basic - Des Articles
Comment incorporer un fichier dans une base de données Access à l'aide de Visual Basic - Des Articles

Contenu

Vous pouvez joindre un fichier à une base de données Microsoft Access 2007 à l'aide de Visual Basic. Access 2007 propose un nouveau type de données, appelé Pièce jointe, que vous pouvez utiliser pour stocker tous les types de documents dans votre base de données, tels que les fichiers Word ou les images numériques. Vous n'avez pas à vous soucier de la taille de la base de données, car Access 2007 compresse automatiquement les fichiers. Un seul enregistrement peut également gérer plusieurs pièces jointes.


Les instructions

Joindre des fichiers à une base de données Access à l'aide de Visual Basic (chiffres binaires - image de la science informatique par drx de Fotolia.com)

  1. Démarrez Microsoft Access 2007 et créez une table nommée "Table 1". Ajoutez un champ appelé "Fichiers" et définissez le "Type de données" sur "Pièce jointe". Cliquez sur "Outils de base de données" et sélectionnez "Visual Basic" dans le panneau "Macro". Créez un fichier texte dans "C: " nommé "attachThis.File.txt".

  2. Créez un nouveau sous en tapant "Sub addAttachments ()" et déclarez les variables suivantes: "Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstChld As DAO.Recordset2 Dim fldAttach As DAO.Field2"


  3. Tapez "Set db = CurrentDb Set rst = db.OpenRecordset (" Table1 ") rst.AddNew" pour ajouter un nouvel enregistrement à "Table1".

  4. Tapez "Set rstChld = rst.Fields (" Attachments "). Value" pour définir une variable de registre enfant. Tapez "rstChld.AddNew Set fldAttach = rstChld.Fields (" DataFile ")" pour ajouter un nouveau champ et définir le champ qui stocke les données binaires.

  5. Tapez "fldAttach.LoadFromFile" C: attachThis.file "rstChld.Update" pour charger le fichier à ajouter et mettre à jour le registre.

  6. Tapez "rstChld.Close rst.Update" pour fermer le jeu d'enregistrements et mettre à jour le premier jeu d'enregistrements. Tapez "rst.Close" pour fermer le jeu d'enregistrements et "End Sub" sur la dernière ligne, si nécessaire.

Comment

  • Votre dernier sous devrait ressembler à ceci:
  • "Sub addAttachments ()
  • Dim db As DAO.Database
  • Dim rst As DAO.Recordset
  • Dim rstChld As DAO.Recordset2
  • Dim fldAttach As DAO.Field2
  • Set db = CurrentDb
  • Définissez rst = db.OpenRecordset ("Table1")
  • rst.AddNew
  • Définissez rstChld = rst.Fields ("Attachments").
  • rstChld.AddNew
  • Définir fldAttach = rstChld.Fields ("FileData")
  • fldAttach.LoadFromFile "C: attachThisFile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Fermer
  • End Sub "