Imparare come inserire i valori da Microsoft Word a un database di Microsoft Access può diventare utile quando si acquisisce i dati degli utenti attraverso la Parola. Il modo migliore per inserire i dati da Word di accesso è attraverso l'uso di "Active Data Objects (ADO)" in Visual Basic, Applications Edition (VBA). VBA è un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per scrivere programmi. ADO consente di effettuare una connessione ad un database e inserire i valori al tavolo e colonne di vostra scelta.

istruzione

1 Avviare Microsoft Word, fare clic sulla scheda "Sviluppatore", e cliccare su "Visual Basic" per avviare la finestra di VB Editor. Fare clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice.

2 Digitare la seguente per creare una nuova procedura sotto:

Private Sub insertValuesToDB ()

3 Creare una variabile tipo di dati String per contenere i dati di Word che si desidera inserire:

Dim valueRead As String

4 Selezionare la riga di testo in Word e salvarlo nella variabile stringa:

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text

5 Creare le variabili oggetto ADODB:

Dim adoConn As ADODB.Connection

Dim adoCmd Come ADODB.Command

6 Definire il percorso e il nome del database di Access. Aprire la connessione:

Set adoConn = New ADODB.Connection

con adoConn

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

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

.Aperto

End With

7 Creare un nuovo comando per inserire la linea selezionata in Word a una tabella di database di Access:

Set adoCmd = New ADODB.Command

con adoCmd

.ActiveConnection = AdoConn

.CommandText = "INSERT INTO & lt; nome tabella> (& lt; nome di campo>) VALUES ( '" & (valueRead) & "')"

End With

adoCmd.Execute

8 Modifica <nome tabella> e <nome del campo> e digitare il nome della tabella e il nome del campo che si desidera utilizzare per inserire i dati.

Rilasciare gli oggetti dalla memoria e chiudere la connessione:

adoConn.Close

Set adoConn = Nothing

9 Visualizzare una finestra di messaggio quando il valore è stato inserito nel database e terminare la procedura:

MsgBox "Value was added to your database table."

End Sub

10 Premere il tasto "F5" per eseguire la procedura.