Att lära sig att sätta in värden från Microsoft Word till en Microsoft Access-databas kan bli användbart när du fånga data från användare via Word . Det bästa sättet att infoga data från Word till Access är genom användning av " Active Data Objects ( ADO ) " i Visual Basic for Applications ( VBA ) . VBA är en dator programmeringsspråk som används i Microsoft Office-program för att skriva program . ADO kan du göra en anslutning till en databas och infoga värden till bordet och kolumner som du väljer . Instruktioner
1
Launch Microsoft Word , klicka på " Utvecklare " fliken , och klicka på " Visual Basic " för att starta VB Editor fönstret . Klicka på " Infoga " -menyn och klicka på " modul " för att infoga en ny kodmodul
2
Skriv följande för att skapa en ny sub förfarande : .
Private Sub insertValuesToDB ( )
3
Skapa en sträng datatyp variabeln för att hålla Word data du vill infoga :
Dim valueRead As String
4
Välj textrad i Word och spara den i strängvariabeln :
Application.Selection.Expand wdLine
valueRead = Application.Selection.Text
5
Skapa adodb objekt variabler :
Dim adoConn Som ADODB.Connection
Dim adoCmd Som ADODB.Command
6
Definiera sökvägen och namnet på din Access-databas . Öppna anslutningen :
Set adoConn = Ny ADODB.Connection
adoConn
ConnectionString = " Provider = Microsoft.ACE.OLEDB.12.0 , " & _
" Data Source = C : \\ Northwind 2007.accdb " .
Open
End With
7
Skapa ett nytt kommando för att infoga linjen vald i Word till en Access-databas tabell :
Set adoCmd = Ny ADODB.Command
adoCmd
ActiveConnection = adoConn
CommandText = " . . INSERT INTO ( ) VALUES ( ' " & ( valueRead ) & " ' ) "
End With
adoCmd.Execute
8
Edit och och skriv ditt tabellnamn och fältnamn som du vill använda för att infoga data från minnet
Release objekt och stänga anslutningen : .
adoConn.Close
Set adoConn = Nothing
9
Visa ett meddelande när värdet har införts i databasen och avsluta proceduren :
MsgBox " Value sattes till din databas tabellen . " för att köra proceduren
End Sub
10
Tryck " F5 " .
