Vous pouvez joindre un fichier à l`aide de Visual Basic à une base de données Microsoft Access 2007. Access 2007 offre un nouveau type de données appelé attachement que vous pouvez utiliser pour stocker tous types de documents dans votre base de données. Vous pouvez stocker des fichiers tels que des documents Word ou des images numériques. Vous ne devez pas vous soucier de la taille de votre base de données depuis Access 2007 compresse les fichiers automatiquement. Un enregistrement unique peut également gérer plusieurs pièces jointes.
Démarrez Microsoft Access 2007 et de créer une table appelée "Tableau 1." Ajouter un champ nommé "Fichiers" et définir la "Type de données" comme "Attachement." Cliquer sur "Database Tools" et sélectionnez "Visual Basic" sur le "Macro" vitre. Créez un fichier texte dans "C:" nommé "attachThisfile.txt."
Créer un nouveau sous en tapant "addAttachments Sous ()" et déclarer les variables suivantes à l`intérieur de la sous:
"Dim db Comme DAO.Database
Dim premier Comme DAO.Recordset
Dim rstChld Comme DAO.Recordset2
Dim fldAttach Comme DAO.Field2"
Type "Set db = CurrentDb
Set rst = db.OpenRecordset ("Tableau 1")
rst.AddNew" d`ajouter un nouvel enregistrement à "Tableau 1."
Type "Set rstChld = rst.Fields ("Pièces jointes").Valeur" pour définir une variable d`enregistrements enfant.
Type "rstChld.AddNew
Set fldAttach = rstChld.Fields ("FileData")" d`ajouter un nouveau champ et pour définir le champ qui contient les données binaires.
Type "fldAttach.LoadFromFile "C: attachThisfile.txt"
rstChld.Update" pour charger le fichier en cours de joint et de mettre à jour le dossier.
Type "rstChld.Close
rst.Update" pour fermer le jeu d`enregistrements et mettre à jour le premier jeu d`enregistrements.
Type "rst.Close" pour fermer le jeu d`enregistrements et "End Sub" sur la dernière ligne si nécessaire.
Conseils & Avertissements
- Votre sous finale devrait ressembler à ceci:
- "addAttachments Sous ()
- Dim db Comme DAO.Database
- Dim premier Comme DAO.Recordset
- Dim rstChld Comme DAO.Recordset2
- Dim fldAttach Comme DAO.Field2
- Set db = CurrentDb
- Set rst = db.OpenRecordset ("Tableau 1")
- rst.AddNew
- Set rstChld = rst.Fields ("Pièces jointes").Valeur
- rstChld.AddNew
- Set fldAttach = rstChld.Fields ("FileData")
- fldAttach.LoadFromFile "C: Avelar eHow attachThisfile.txt"
- rstChld.Update
- rstChld.Close
- rst.Update
- rst.Close
- End Sub"
