Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come esportare i dati da un campo all'altro in Access 2007

Esportazione dei dati in un campo di tabella a un altro non è così complicato come si potrebbe pensare . In Access , è possibile utilizzare Visual Basic, Applications Edition per automatizzare questo processo . L'oggetto Recordset rappresenta i record di una tabella oppure i record restituiti da una query . Questo oggetto viene utilizzato in VBA per manipolare questi dati a livello di record . È possibile esportare i dati da looping tra i record e l'aggiunta di valori di campo di altri campi nella stessa tabella o in una tabella diversa . Istruzioni
1

Clicca su "Strumenti Database " e cliccare su " Visual Basic " per aprire l'editor di Visual Basic . Avviare la creazione di un sub- procedimento nuovo , aggiungendo il seguente codice : Private Sub

copyFieldData ( ) economici 2

Creare le seguenti variabili che si intende utilizzare per copiare i dati :

Dim sqlstr As String Dim

sourceRst come Recordset

Dim targetRst come Recordset

Dim rCntr As Integer

Dim dbs Come base di dati

Set dbs = CurrentDb
3

Creare una tabella vuota con un solo campo .

strSQL = " CREATE TABLE emptyTable "

strSQL = strSQL & "(testo Nome ) "

DoCmd.RunSQL ( strSQL ) economici 4

Aprire tabelle di origine e di destinazione utilizzando un Recordset .

targetRst = dbs.OpenRecordset ( " emptyTable " ) per

sourceRst = dbs.OpenRecordset ( " Dipendenti SELECT * FROM Impiegati , . " ) economici 5

Creare un " per ... loop" per eseguire il ciclo tutte le righe nel campo "Nome" della tabella Employees ed esportarli nel campo " Nome " nel emptyTable .

sourceRst.MoveLast

sourceRst.MoveFirst

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

targetRst.AddNew

targetRst.Fields ( " Nome " ) Valore = sourceRst.Fields ( "Nome" ) Valore

targetRst.Update

sourceRst.MoveNext

Avanti rCntr
6

visualizzare una finestra di messaggio quando l' esportazione è stata completata .

MsgBox ( " dati da campo Nome è stato esportato " ) economici 7

Fine della procedura digitando " End Sub ". Premere il tasto " F5 " per eseguire la procedura .

 

Programmazione © www.354353.com