Microsoft Office Access è un sistema di gestione di database relazionali comunemente usato per i database più piccoli e locali. Visual Basic, Applications, noto anche come VBA, è un linguaggio di programmazione utilizzato per automatizzare i processi di routine. Una query viene utilizzato per recuperare i dati dalle tabelle del database. È possibile creare una query per aggiornare anche i dati in una tabella di database. In pochi passi è possibile scrivere codice VBA per eseguire una query di aggiornamento e anche creare una query di selezione per visualizzare l'aggiornamento.

istruzione

1 Aprire il database Northwind di Microsoft Office Access. Il database Northwind è incluso nella suite Microsoft Office.

2 Fai clic su "Strumenti di database", quindi selezionare "Visual Basic" per aprire la finestra di Microsoft Visual Basic. Fare clic su "inserire" e selezionare "Modulo".

3 Copia e incolla il seguente codice nel nuovo modulo per aggiornare la tabella Impiegati e quindi visualizzare l'aggiornamento con una query di selezione.

Public Sub DAOQuery ()

Dim title As String

db fioco come DAO.Database

Dim primo Come DAO.Recordset

Dim qry As String

title = "DAO query"

Set db = CurrentDb ()

qry = "UPDATE Dipendenti SET dipendenti. [Cellulare] = '210-999-999'"

qry = qry & "WHERE (((Lavoratori [Cognome]) = 'Cencini').);"

DoCmd.SetWarnings False

DoCmd.RunSQL (qry)

Debug.Print titolo & ": Aggiornamento SQL paramenter Query:" & _

vbNewLine & "" & qry

qry = "SELECT dipendenti. [Cognome], dipendenti. [cellulare]"

qry = qry & "FROM Impiegati"

qry = qry & "WHERE (((Lavoratori [Cognome]) = 'Cencini').);"

Debug.Print titolo & ": SQL Query:" & _

vbNewLine & "" & qry

'Eseguire il qry e creare un set di record

Set rst = db.OpenRecordset (qry)

Debug.Print titolo & ": recuperare le informazioni dello schema per il data set di risultati:"

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

Debug.Print "|" & rst.Fields (i) .Name

Next i

Debug.Print titolo & ": recuperare i dati effettivi:"

Do While Non rst.EOF

Debug.Print "|" e prima [Cognome] e "|" e prima [Cellulare]!

rst.MoveNext

Ciclo continuo

Debug.Print titolo & ": Conteggio totale Row:" & rst.RecordCount

Debug.Print titolo & ": Cleanup Fatto.".

rst.Close

db.Close

End Sub

4 Eseguire la subroutine premendo il tasto "F5".