Leren hoe om waarden te voegen vanuit Microsoft Word op een Microsoft Access -database kan handig zijn wanneer je de gegevens van gebruikers door middel van Word vast te leggen . De beste manier om de gegevens in te voegen vanuit Word naar Access is door het gebruik van "Active Data Objects ( ADO ) " in Visual Basic for Applications ( VBA ) . VBA is een programmeertaal gebruikt in Microsoft Office-toepassingen om programma's te schrijven . ADO kunt u een verbinding maken met een database en steek waarden aan de tabel en kolommen van uw keuze . Instructies
Lancering Microsoft Word 1 , klikt u op het tabblad "Ontwikkelaar " , en klik op " Visual Basic " om het venster VB editor te starten . Klik op het menu "Invoegen " en klik op "Module " om een nieuwe code -module plaatsen
Type 2 het volgende om een nieuwe sub procedure te maken: . Private Sub insertValuesToDB ( ) op < br >
3 Maak een string datatype variabele aan het Woord gegevens die u wilt invoegen houden : Dim valueRead
als Koord
4 Selecteer de regel tekst in Word en sla het op in de string variabele : Application.Selection.Expand wdLine valueRead
= Application.Selection.Text
5 Maak de ADODB object variabelen : Dim adoConn
Zoals ADODB.Connection Dim adoCmd
Zoals ADODB.Command
6 Definieer het pad en de naam van uw Access-database . Open de aansluiting :
Set = Nieuwe ADODB.Connection
Met adoConn
ConnectionString = " Provider = Microsoft.ACE.OLEDB.12.0 ; " adoConn & _ < br . " data Source = C : \\ Noordenwind 2007.accdb " > .
Open Einde
met
7 Maak een nieuwe opdracht om de regel in te voegen geselecteerd in Word met een Access- database tabel : Set adoCmd = Nieuwe ADODB.Command
met adoCmd
ActiveConnection = adoConn
CommandText = " . . INSERT INTO ( ) VALUES ( ' " & ( valueRead ) & " ' ) " Einde
Met adoCmd.Execute
bewerken 8 en en typ uw tabelnaam en veldnaam die u wilt gebruiken om de gegevens in te voegen release objecten
uit het geheugen en sluit de aansluiting : . < br > adoConn.Close
Stel adoConn = Nothing
9 Laat een bericht wanneer de waarde is toegevoegd aan de database en het einde van de procedure :
MsgBox " Waarde is om uw database tabel toegevoegd . " End Sub
Druk op " F5 "
10 om de procedure uit te voeren.
< br >
|
