Tecnología

Inicio

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

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


Puede adjuntar un archivo utilizando Visual Basic a una base de datos Access 2007 Microsoft. Access 2007 ofrece un nuevo tipo de datos llamado adjuntos que se 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 cree una tabla llamada "Tabla 1". Añadir 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 de la substitución:

"Dim db Como DAO.Database

Dim primera medida DAO.Recordset

Dim rstChld Como DAO.Recordset2

Dim fldAttach Como DAO.Field2 "

3 Escriba "Set db = CurrentDb

Establecer primera db.OpenRecordset = ( "Tabla 1")

rst.AddNew "para agregar un nuevo registro a la" Tabla 1 ".

4 Tipo "Establecer rstChld = rst.Fields (" Anexos "). Valor" para definir una variable de registros secundarios.

Tipo "rstChld.AddNew

Establecer fldAttach = rstChld.Fields ( "FileData") "para agregar un nuevo campo y para 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 Tipo "rstChld.Close

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

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

Consejos y advertencias

  • Su sub final debería tener este aspecto:
  • "addAttachments Sub ()
  • Dim db Como DAO.Database
  • Dim primera medida DAO.Recordset
  • Dim rstChld Como DAO.Recordset2
  • Dim fldAttach Como DAO.Field2
  • Set db = CurrentDb
  • Establecer primera db.OpenRecordset = ( "Tabla 1")
  • rst.AddNew
  • Establecer rstChld = rst.Fields ( "Anexos"). Valor
  • rstChld.AddNew
  • Establecer fldAttach = rstChld.Fields ( "FileData")
  • fldAttach.LoadFromFile "C: \ Avelar \ eHow \ attachThisfile.txt"
  • rstChld.Update
  • rstChld.Close
  • rst.Update
  • rst.Close
  • End Sub "