Ako exportovať dáta z jedného poľa do druhého v programe Access 2007

Export dát z jedného poľa tabuľky do druhej nie je tak zložité , ako si môžete myslieť . V programe Access môžete použiť Visual Basic for Applications , aby tento proces automatizovať . Objekt Recordset predstavuje záznamov v tabuľke alebo záznamov z dotazu . Tento objekt sa používa vo VBA manipulovať tieto dáta na rekordnej úrovni . Môžete exportovať dáta pomocou slučiek prostredníctvom záznamov a pridávanie hodnoty polí do iných oblastí v rovnakej tabuľke alebo inej tabuľky . Pokyny dovolená 1

Kliknite na " Databázové nástroje " a kliknite na " Visual Basic " , otvorte editor jazyka . Začiatok vytvorenie novej sub - postup pridaním nasledujúci kód :

Private Sub copyFieldData ( )
2

Vytvorte nasledujúce premenné , ktoré budete používať pre kopírovanie dát :

Dim SQLstr As String Dim

sourceRst As Recordset

Dim targetRst ako Recordset

Dim rCntr As Integer

Dim dbs ako databáza

Nastavenie DBS = CurrentDb
3

Vytvoriť prázdnu tabuľku s jedným poľom .

strSQL = " CREATE TABLE emptyTable "

strSQL = strSQL & " ( FirstName TEXT ) "

DoCmd.RunSQL ( strSQL )
4

otvorte zdrojovej a cieľovej tabuľky pomocou objektu Recordset .

Set targetRst = dbs.OpenRecordset ( " emptyTable " )

Set sourceRst = dbs.OpenRecordset ( " SELECT * FROM Zamestnanci Zamestnanci ; . " )
5

Vytvorenie " Pre ... Loop " sa prechádzať všetky riadky v poli " Meno " z tabuľky Zamestnanci a exportovať ich do poľa " Meno " , v emptyTable .

sourceRst.MoveLast

sourceRst.MoveFirst

Pre rCntr = 0 sourceRst.RecordCount - .. 1.

targetRst.AddNew

targetRst.Fields ( " Meno " ) hodnota = sourceRst.Fields ( " Meno " ) hodnota

targetRst.Update

sourceRst.MoveNext

Ďalšie rCntr
6

Zobrazí sa okno so správou , ak je vyvážajúca bola dokončená .

MsgBox ( " Dáta z prvého poľa Názov bol exportovaný " )
7

Ukončenie postupu zadaním " End Sub " . Stlačením tlačidla " F5 " spustiť procedúru .

• Predchádzajúca strana: Ako vytvoriť samostatný Visual Basic program 
• Ďalšia strana: Ako nájsť exe aplikácie VB.NET