ubiquitour.com

Cómo insertar valores de Microsoft Word a una base de datos

Cómo insertar valores de Microsoft Word a una base de datos

Aprender a insertar valores de Microsoft Word a una base de datos de Microsoft Access puede ser útil cuando usted captura los datos de los usuarios a través de la palabra. La mejor manera de insertar datos de palabra de acceso es mediante el uso de "Active Data Objects (ADO)" en Visual Basic para aplicaciones (VBA). VBA es un lenguaje de programación de ordenador utilizado en aplicaciones de Microsoft Office para escribir programas. ADO le permite hacer una conexión a una base de datos e insertar valores a la tabla y las columnas de su elección.

Instrucciones

1 Iniciar Microsoft Word, haga clic en la ficha "Programador" y haga clic en "Visual Basic" para lanzar la ventana del 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 Escriba lo siguiente para crear un nuevo procedimiento sub:

Private Sub insertValuesToDB()

3 Crear una variable de tipo de datos string para contener los datos de la palabra que desea insertar:

Dim valueRead As String4

Seleccione la línea de texto en Word y guardarlo en la variable de cadena:

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text5

Crear las variables de objeto ADODB:

Dim adoConn As ADODB.Connection

Dim adoCmd As ADODB.Command6

Definir la ruta y el nombre de tu base de datos de Access. Abrir la conexión:

Set adoConn = New ADODB.Connection

With adoConn

.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _

"Data Source=C:\Northwind 2007.accdb"

.Open

End With7

Crear un nuevo comando para insertar la línea seleccionada en Word a una tabla de base de datos de Access:

Set adoCmd = New ADODB.Command

With adoCmd

.ActiveConnection = adoConn

.CommandText = "INSERT INTO <table name> (<field name>) VALUES ('" & (valueRead) & "')"

End With

adoCmd.Execute8

Editar nombre de tabla de < > y < nombre del campo > y escriba su nombre de la tabla y el nombre del campo que desea utilizar para insertar los datos.

Lanzar objetos de la memoria y cerrar la conexión:

adoConn.Close

Set adoConn = Nothing9

Mostrar un cuadro de mensaje cuando el valor se ha insertado en la base de datos y terminar el procedimiento:

MsgBox "Value was added to your database table."

End Sub

10 Presione "F5" para ejecutar el procedimiento.