Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako vložiť hodnoty z aplikácie Microsoft Word do databázy

Naučiť sa , ako vložiť hodnoty z aplikácie Microsoft Word do databázy programu Microsoft Access môže byť užitočné , keď budete zbierať dáta od užívateľov cez Word . Najlepší spôsob , ako vložiť dáta z aplikácie Word do programu Access je pomocou " Active Data Objects ( ADO ) " v jazyku Visual Basic for Applications ( VBA ) . VBA je programovací jazyk použitý v aplikáciách Microsoft Office písať programy . ADO umožňuje vytvoriť pripojenie k databáze a vložiť hodnoty do tabuľky a stĺpcov podľa svojho výberu . Pokyny dovolená 1

Spustite program Microsoft Word , kliknite na kartu " Vývojár " , a kliknite na tlačidlo " Visual Basic " pre spustenie okna VB Editor . Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu
2

Zadajte nasledujúci vytvoriť nový čiastkové postup : .

Private Sub insertValuesToDB ( )

3

Vytvoriť string typ dát premenné pre uloženie dát aplikácie Word , ktorý chcete vložiť :

Dim valueRead As string GameTwist GameTwist 4

Vyberte riadok textu v programe Word a uložiť ho do reťazcové premenné :

Application.Selection.Expand wdLine

valueRead = Application.Selection.Text
5

Vytvoriť premenné objektu ADODB :

Dim adoConn Ako ADODB.Connection

Dim adoCmd Ako ADODB.Command
Praha 6

Zadajte cestu a názov databázy programu Access . Otvorte pripojenie :

Set adoConn = New ADODB.Connection

S adoConn

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

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

Otvoriť

End With
7

Vytvoriť nový príkaz pre vloženie linku vybraný v programe Word tabuľky databázy Access : ..

Set adoCmd = New ADODB.Command

S adoCmd

ActiveConnection = adoConn

CommandText = " INSERT INTO

( ) VALUES ( ' " & ( valueRead ) & " ' ) "

End With

adoCmd.Execute
8

Upraviť

a a zadajte názov tabuľky a názov poľa , ktoré chcete použiť na vloženie dát

uvoľnenie objektu z pamäte a ukončiť spojenie : .

adoConn.Close

Set adoConn = Nothing
9

Zobrazí sa okno so správou , keď bola hodnota vložená do databázy a ukončiť postup :

MsgBox " Hodnota bol pridaný do databázovej tabuľky . "

End Sub
10

Stlačte " F5 " pre spustenie procedúry .


Najnovšie články