Lære å sette inn verdier fra Microsoft Word til en Microsoft Access-database kan bli nyttig når du fange opp data fra brukerne gjennom Word. Den beste måten å sette inn data fra Word til Access er gjennom bruk av "Aktive Data Objects ( ADO ) " i Visual Basic for Applications ( VBA ) . VBA er et programmeringsspråk som brukes i Microsoft Office-programmer til å skrive programmer . ADO lar deg opprette en tilkobling til en database og sette inn verdier til bordet og kolonner av ditt valg. Instruksjoner
en

Launch Microsoft Word , klikk på " Utvikler " fanen , og klikk " Visual Basic " for å starte VB Editor vinduet. Klikk på " Insert"-menyen og klikk " Module" for å sette inn en ny kode modul
2

Skriv inn følgende for å opprette en ny sub prosedyre : .

Private Sub insertValuesToDB ( )

3

Lag en streng datatype variabelen for å holde Word data du vil sette inn :

Dim valueRead As String
4

Velg tekstlinje i Word og lagre den i strengvariabelen : en

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text
5

Opprett adodb objekt variabler :

Dim adoConn Som ADODB.Connection

Dim adoCmd Som ADODB.Command
6

Definer banen og navnet til Access-databasen. Åpne tilkoblingen : en

Sett adoConn = Ny ADODB.Connection
p Med adoConn

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

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

Åpen

End With
7

Opprett en ny kommando for å sette inn linjen valgt i Word til en Access database tabell:

Set adoCmd = Ny ADODB.Command
p Med adoCmd

ActiveConnection = adoConn

CommandText = " . . INSERT INTO ( ) VALUES ( ' "& ( valueRead ) &" ' ) "

End Med

adoCmd.Execute
8

Edit og og skriv din bordet navn og feltnavn du vil bruke til å sette inn data

Slipp gjenstander fra minnet og lukke tilkoblingen : .

adoConn.Close

Sett adoConn = Ingenting
9

Vis en meldingsboks når verdien er satt til databasen og avslutte prosedyren :
< p > MsgBox "Value ble lagt inn i databasen tabellen . "

End Sub
10

Trykk " F5 " for å kjøre prosedyren.