Microsoft Office Access is een relationele database management systeem vaak gebruikt voor kleinere en lokale databases . Visual Basic for Applications , ook wel bekend als VBA , is een programmeertaal gebruikt om routinematige processen te automatiseren . Een query wordt gebruikt om gegevens uit de database tabellen halen . U kunt een query maken om ook gegevens in een database tabel bij te werken . In een paar stappen kunt u VBA-code schrijven om een update query uit te voeren en ook een selectiequery om de update te bekijken te creëren . Instructies
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite .
Klik 2 " Database Extra " en selecteer vervolgens " Visual Basic " om de Microsoft Visual Basic venster te openen . Klik op het veld " Insert " en selecteer " Module . "
Kopieer 3 en plak de volgende code in uw nieuwe module op de tabel Werknemers werken en dan bekijk de update met een selectiequery . Public Sub DAOQuery ( ) Dim titel
als Koord Dim db
Zoals DAO.Database Dim rst
Zoals DAO.Recordset
Dim qry als Koord title
= " DAO Query "
Set db = CurrentDb ( ) qry
= " UPDATE Medewerkers SET Werknemers . [Mobiel ] = '210 -999-999 ' "
qry = qry & " WHERE ( ( ( Employees. [ Achternaam ] ) = " Cencini ' ) ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( qry ) Debug.Print titel
& " : SQL update paramenter Query : " & _
vbNewLine & " " & qry qry
= " SELECT Werknemers . [ Naam ] , Werknemers . [Mobiel ] "
qry = qry & " FROM Employees "
qry = qry & " WHERE ( ( ( Employees. [ achternaam ] ) = " Cencini ' ) ) ; " Debug.Print titel
& " : SQL Query : " & _
vbNewLine & " " & qry
' Run de qry en maak een record set set rst = db.OpenRecordset ( qry ) Debug.Print titel
& " : ophalen schema informatie voor het gegeven resultaat te stellen : "
i = 0 To rst.Fields.Count - 1 Debug.Print
" | " & rst.Fields ( i ) Naam
Next i Debug.Print titel
. & " : Haal de feitelijke gegevens : " !
Do While Not rst.EOF Debug.Print
" | " & rst [ Achternaam ] & " | " & rst [Mobiel ] rst.MoveNext Loop Debug.Print titel
& " : Total Rij Count: " & rst.RecordCount Debug.Print titel &
" : . . Cleanup Done " rst.Close db.Close End Sub
4
Run je subroutine door op " F5 . "
|
