Microsoft Office Access är en relationsdatabas management system som vanligen används för mindre och lokala databaser . Visual Basic for Applications , även känd som VBA , är en dator programmeringsspråk som används för att automatisera rutinmässiga processer . En fråga används för att hämta data från databastabeller. Du kan skapa en fråga till även uppdatera data i en databastabell . I några steg du kan skriva VBA-kod för att utföra en uppdateringsfråga och även skapa en urvalsfråga för att visa uppdateringen . Instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2
Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic Window . Klicka på " Infoga "-fältet och välj " Modul . " Addera 3
Kopiera och klistra in följande kod på din nya modulen för att uppdatera tabellen Anställda och sedan visa uppdateringen med en urvalsfråga .
Public Sub DAOQuery ( ) katalog
Dim titeln As String
Dim db Som DAO.Database
Dim rst Som DAO.Recordset
Dim qry As String
title = " DAO Query "
Set db = CurrentDb ( ) katalog
qry = " UPDATE Medarbetare SET anställda . [ Mobiltelefon ] = '210 -999-999 ' "
qry = qry & " WHERE ( ( ( Employees. [ Efternamn ] ) = ' cencini ' ) ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( qry ) katalog
Debug.Print titel & " : SQL Update Paramenter Query : " & _
vbNewLine & " " & qry
qry = " SELECT anställda . [ Efternamn ] , anställda . [ Mobiltelefon ] "
qry = qry & " FROM Anställda "
qry = qry & " WHERE ( ( ( Employees. [ Efternamn ] ) = ' cencini ' ) ) ; "
Debug.Print titel & " : SQL Query : " & _
vbNewLine & " " & qry
" Kör qry och skapa ett rekord set
set rst = db.OpenRecordset ( qry ) katalog titel
Debug.Print & " : Hämta schema info för givet resultat som : "
jag = 0 till rst.Fields.Count - 1
Debug.Print "
