Ako pre prenos dát medzi tabuľkami

Vedieť , ako pre prenos dát medzi databázovými tabuľkami môže vaše databázové aplikácie dynamickejšie . Microsoft Office Access sa bežne používa pre návrh malých a lokálnych databáz . V programe Access môžete použiť Microsoft Visual Basic for Applications ( VBA ) , automatizovať rutinné úlohy , ako je prenos dát z jednej tabuľky do druhej . VBA je programovací jazyk počítač , ktorý vám poskytne viac flexibility manipulovať s dátami . Otázka sa používa načítanie informácií z databázovej tabuľky . Veci , ktoré budete potrebovať v Microsoft Office Access
Northwind databázy
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite databáze Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office . " . Modul " Zvoľte menu " Vložiť " a kliknite na
2

Zadajte nasledujúci vytvoriť nový podprogram :

Private Sub Transfer ( )

Stlačte " . Zadajte "
3

Zadajte nasledujúce deklarovať svoje premenné :

Dim stringSQL As String

Dim db Ako Databáza

Dim rst Ako Recordset

Dim rstTwo Ako Recordset

Set db = CurrentDb
4

Zadajte nasledujúci vytvoriť novú tabuľku a prenos dát :

stringSQL = " CREATE TABLE employeeNames ( priezvisko TEXT ( 25 ) , Meno TEXT ( 25 ) ) ; "

DoCmd.RunSQL ( stringSQL )

zadajte nasledujúci príkaz pre otvorenie novej tabuľky pomocou Recordset pridať dáta : klipart

Set rstTwo = db.OpenRecordset ( " employeeNames " )
5

zadajte nasledujúci dotaz tabuľka " zamestnanci " :

stringSQL = " SELECT Employees.Company , "

stringSQL = stringSQL & " Zamestnanci . [ Priezvisko ] "

stringSQL = stringSQL & " Zamestnanci . [ Meno ] "

stringSQL = stringSQL & " FROM Zamestnanci ; "

Set rst = db.OpenRecordset ( stringSQL )

rst.MoveLast

rst.MoveFirst
6

zadajte nasledujúce prechádzať dotazu a prenosu " Last Name " a " Krstné meno " na " employeeNames " stola :

robiť , keď nie je rst.EOF

rstTwo . addnew

rstTwo.Fields ( " LastName " ) . Value = rst.Fields ( " [ Priezvisko ] " ) . Hodnota

rstTwo.Fields ( " Meno " ) . Value = rst . pole ( " [ First Name ] " ) . Hodnota

rstTwo.Update

rst.MoveNext

Loop
7

zadajte nasledujúce uvoľnenie premenné z pamäte :

rst.Close

rstTwo.Close

db.Close

Stlačte " F5 " spustiť podprogram
.

• Predchádzajúca strana: Ako posielať príkazy do aplikácie nie je zaostrený pre Visual Basic 
• Ďalšia strana: Ako načítať súbor CSV do sady dát