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

Aprender a insertar los valores de Microsoft Word en una base de datos de Microsoft Access puede ser útil cuando se capturan los datos de los usuarios a través de la Palabra . La mejor manera de insertar datos de Word a Access es mediante el 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 de la tabla y las columnas de su elección . Instrucciones
1

lanzamiento Microsoft Word, haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para abrir la ventana Editor VB . Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código
2

Escriba lo siguiente para crear un nuevo procedimiento sub : .

Private Sub insertValuesToDB ()
Página 3

Crear una cadena variable de tipo de datos para almacenar los datos de Word que desea insertar :

valueRead dévil como secuencia
4

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

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text
5

Cree el ADODB variables de objeto :

adoConn As ADODB.Connection

adoCmd As ADODB.Command
6

Definir la ruta y el nombre de su base de datos Access . Abra la conexión:

Set adoConn = New ADODB.Connection

adoConn

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

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

abierto

End con fotos de 7

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

Set adoCmd = New ADODB.Command

adoCmd

ActiveConnection = adoConn

CommandText = " . . INSERT INTO

terminar con adoCmd.Execute

8

Editar

soltar objetos de la memoria y cerrar la conexión: .

adoConn.Close

adoConn Set = Nothing
9

Muestra un cuadro de mensaje cuando el valor se ha insertado en la base y al final del procedimiento:
< p > MsgBox "valor esta en la tabla de base de datos . "

End Sub
10

Press "F5 " para ejecutar el procedimiento .

Visual Basics Programación

VB6 en tiempo de ejecución Error 70 : Permiso denegado

Cómo hacer un archivo EXE en un archivo de catálogo

Cómo crear documentos de Word mediante Visual Basic 6

¿Cómo Pasar por valor y paso por el Trabajo referencia en Visual Basic

Cómo utilizar un archivo CGZIP en Visual Basic 6

Cómo agregar una referencia a un proyecto de Visual Basic

Cómo vincular un objeto a un GridView en el Código

Cómo ocultar un icono de la barra de tareas con VB