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: . < br >
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 .
< br >
