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 : < br >
"db As DAO.Database
primer As DAO.Recordset
rstChld As DAO.Recordset2
fldAttach As DAO.Field2 " < br >
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 < br >
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.
< br >