Aprender cómo insertar los valores de Microsoft Word en una base de datos Microsoft Access puede llegar a ser útil cuando se capturan los datos de los usuarios a través de la Palabra. La mejor manera de insertar los datos de la Palabra de acceso es a través del uso de "Active Data Objects (ADO)" en Visual Basic para Aplicaciones (VBA). VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office para escribir programas. ADO le permite realizar una conexión con una base de datos e insertar los valores en la tabla y columnas de su elección.
Instrucciones
1 Lanzamiento de Microsoft Word, haga clic en la pestaña "desarrolladores", y haga clic en "Visual Basic" para abrir la ventana Editor de VB. Haga clic en el menú "Insertar" y haga clic en "Módulo" para insertar un nuevo módulo de código.
2 Escribe lo siguiente para crear un nuevo procedimiento de substitución:
Private Sub insertValuesToDB ()
3 Crear una variable de cadena tipo de datos para contener los datos de Word que desea insertar:
Dim valueRead As String
4 Seleccione la línea de texto en Word y guardarlo en la variable de cadena:
Application.Selection.Expand wdLine
valueRead = Application.Selection.Text
5 Crear las variables de objeto ADODB:
Dim adoConn As ADODB.Connection
Dim adoCmd Como ADODB.Command
6 Definir la ruta y el nombre de su base de datos Access. Abrir la conexión:
Set adoConn = New ADODB.Connection
con adoConn
.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;" & _
"Data Source = C: \ Neptuno 2007.accdb"
.Abierto
Terminar con
7 Crear un nuevo comando para insertar la línea seleccionada en Word a una tabla de base de datos Access:
Set adoCmd = New ADODB.Command
con adoCmd
.ActiveConnection = AdoConn
.CommandText = "INSERT INTO y lt; nombre de tabla> (& lt; nombre de campo>) VALUES ( '" & (valueRead) & "')"
Terminar con
adoCmd.Execute
8 Editar <nombre de tabla> y <nombre del campo> y escriba el nombre de la tabla y el nombre del campo que desea utilizar para insertar los datos.
Liberar los objetos de la memoria y cerrar la conexión:
adoConn.Close
Set adoConn = Nothing
9 Muestra un cuadro de mensaje cuando el valor se ha insertado en la base de datos y finalizar el procedimiento:
MsgBox "Value was added to your database table."
End Sub
10 Pulse la tecla "F5" para ejecutar el procedimiento.