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

Cómo crear una interfaz de entrada Web con Visual Basic Net

Cómo crear un campo Validar en VB6

Tamaño de archivo en VB.NET

Cómo cambiar el cursor a un cursor personalizado para formularios de Visual Basic

Diferencia entre las funciones y subrutinas en Visual Basic

Cómo vincular MS Access a Visual Basic 6.0

Visual Basic 6 proyectos para principiantes

Cómo convertir Fechas Fechas militares en Access 2007 VBA