Cómo incrustar un archivo en una base de datos Access mediante Visual Basic

Puede adjuntar un archivo mediante Visual Basic a una base de datos Microsoft Access 2007. Access 2007 ofrece un nuevo tipo de datos llamado archivo adjunto que puede utilizar para almacenar todo tipo de documentos en su base de datos . Puede almacenar archivos como documentos de Word o imágenes digitales. Usted no tiene que preocuparse por el tamaño de su base de datos desde Access 2007 comprime los archivos de forma automática . Un único registro también puede manejar varios archivos adjuntos . Instrucciones
1

Inicie Microsoft Access 2007 y crear una tabla llamada "Tabla1 ". Agregar un campo denominado "Archivos" y definir el "Tipo de datos ", como "Anexo ". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic " en el panel " Macro" . Crear un archivo de texto en "C: \\ " llamado " attachThisfile.txt . "
2

Crear un nuevo sub escribiendo " addAttachments Sub ( ) " y declarar las siguientes variables dentro del sub :

"db As DAO.Database

primer As DAO.Recordset

rstChld As DAO.Recordset2

fldAttach As DAO.Field2 "

3

Type " Set db = CurrentDb

Set rst = db.OpenRecordset ( " Tabla1 " )

rst.AddNew " para añadir un nuevo registro a "Tabla1 ".
4

Type " Set rstChld = rst.Fields ( " Anexos ") . Valor " para definir una variable de registros secundario .

Type " rstChld.AddNew

Set fldAttach = rstChld.Fields ( " FileData ") "para añadir un nuevo campo y establecer el campo que contiene los datos binarios
5

Tipo ". fldAttach.LoadFromFile "C: \\ attachThisfile.txt "

rstChld.Update " para cargar el archivo que se adjunta y para actualizar el registro.
6

Type " rstChld.Close

rst.Update " para cerrar el conjunto de registros y actualizar el primer conjunto de registros.

Type" rst.Close "para cerrar el conjunto de registros y " End Sub "en la última fila si es necesario.