Saper utilizzare Visual Basic, Applications Edition (VBA) quando si lavora con Microsoft Access consente di risparmiare tempo quando è necessario per visualizzare i contenuti in una tabella del database. È possibile recuperare il contenuto di una tabella di database utilizzando un oggetto RecordSet. Recordset sono costituiti da record (righe) e campi (colonne). Ti danno la possibilità di visualizzare o manipolare i dati in una tabella. A "Per Loop" può essere utilizzato per collegare attraverso ogni campo e record in una tabella del database.

istruzione

1 Avviare il database Northwind 2007 e fai clic su "Strumenti di database." Fai clic su "Visual Basic" per aprire la finestra di Microsoft Visual Basic. Fare clic sul menu "Inserisci" e fare clic su "Modulo".

2 Digitare la seguente per creare una nuova procedura da eseguire:

stepThroughFields Private Sub ()

On Error GoTo Err_stepThroughFields:

3 Digitare la seguente per creare variabili utilizzate per leggere la tabella Ordini:

DBS fiochi come database

Dim rst come Recordset

Dim rcrdCnt As Integer

Dim fldCnt As Integer

4 Digitare quanto segue per definire il database da utilizzare:

Set dbs = CurrentDb

5 Digitare la seguente per aprire un nuovo recordset utilizzando la tabella Ordini:

Set rst = dbs.OpenRecordset ( "Ordini")

6 Digitare il seguente loop attraverso ogni campo nella tabella e visualizzare il nome:

Per fldCnt = 0 Per rst.Fields.Count - 1

Debug.Print rst.Fields(fldCnt).Name

Successivo fldCnt

7 Digitare quanto segue per scorrere tutti i campi in ogni riga della tabella e visualizzarne il contenuto:

rst.MoveFirst

Per rcrdCnt = 0 Per rst.RecordCount - 1

For fldCnt = 0 To rst.Fields.Count - 1

Debug.Print rst.Fields (fldCnt) .Value

Successivo fldCnt

rst.MoveNext

Successivo rcrdCnt

8 Digitare la seguente per rilasciare le variabili dalla memoria:

rst.Close

dbs.Close

9 Digitare il seguente per terminare la procedura e catturare gli eventuali errori:

Exit_stepThroughFields:

Exit Sub

Err_stepThroughFields:

MsgBox Err.Description

Riprendi 'Exit_stepThroughFields:

End Sub

Premere il tasto "F5" per eseguire il procedimento e campo di visualizzazione delle informazioni.