En Recordset-objekt kan vara ett kraftfullt verktyg att använda i Microsoft Office Access när du behöver söka ett bord med hjälp av Visual Basic for Applications ( VBA ) . Det snabbaste sättet att hämta ett värde från en fråga är att använda VBA . I VBA kan du använda objektet för att fråga en tabell i en databas och hämta värden som lagras i tabellen . En Recordset-objekt används för att manipulera data i en databas på en rekordhög nivå . Saker du behöver
Northwind databas
Visa fler instruktioner
1
Öppna Northwind -databasen och klicka på " Database Tools " fliken . Klicka på " Visual Basic " för att öppna Visual Basic Editor Window
2
Börja med att skriva följande kod för att skapa en ny delprocedur : .
Private Sub readQueryValue ( ) katalog
Billiga 3
Kopiera och klistra in följande VBA-kod för att deklarera variabler att använda för att läsa en fråga :
Dim nwDBS som databas
Dim nwRST som Recordset
Dim nwSQL As String
Set nwDBS = CurrentDb
4
Skapa en SQL-fråga genom att skriva följande kod : .
nwSQL = " SELECT Anställda [ Senast namn ] , anställda [ förnamn ] "
nwSQL = nwSQL & " FROM Anställda ; "
5
Öppna ett nytt Recordset med hjälp av SQL-frågan skapade i föregående steg . :
Set nwRST = nwDBS.OpenRecordset ( nwSQL )
6
flytta Recordset till den första raden i frågeresultatet och sedan flytta Recordset framåt två gånger för att läsa " Efternamn " den tredje raden genom att skriva följande kod :
nwRST.MoveFirst
nwRST.MoveNext
nwRST.MoveNext
Debug.Print nwRST.Fields . ( " [ Efternamn ] " ) Value
7
Avsluta proceduren genom att skriva följande kod :
nwRST.Close
nwDBS.Close
End Sub
8
Tryck " Ctrl " och " G " för att öppna Immediate Window . Tryck " F5 " för att köra din procedur och se resultaten genom Immediate Window .
