Een record set in de programmering wordt gebruikt om tabelrecords houden uit een database . Microsoft Office Access is een relationele database management systeem opgenomen in de Microsoft Office suite . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om processen anders handmatig gedaan automatiseren . In de programmering , is het nuttig om te kunnen een tafel vragen en bepalen de hoogste waarde van een bepaald veld tafel . Instructies
1 Open Microsoft Office Access , selecteer " Lege database " en klik op "Create . " Klik op " Database Tools" en selecteer " Visual Basic " te openen Microsoft Visual Basic . Kopen van 2 Selecteer in het menu "Invoegen " en klik op "Module . "
3 Kopieer en plak de volgende code in uw module . De code zal een nieuwe tabel te maken , records toevoegen aan het en bevragen de hoogste waarde in het veld ' Korting ' door middel van een recordset . Private Sub readHighestValue ( )
Dim dbs Als Database < br Dim rst > As Recordset Dim sqlstr
als Koord Set
dbs = CurrentDb sqlstr
= " CREATE TABLE tableValues ( Sales NUMBER , kortingen NUMMER ) ; " < br DoCmd.RunSQL > ( sqlstr ) op sqlstr = " INSERT INTO tableValues ( [ omzet ] , [ Korting ] ) " sqlstr = sqlstr & " VALUES
( '10 .52 ' , '1 .25 ' ) ; " DoCmd.SetWarnings
False DoCmd.RunSQL ( sqlstr ) sqlstr =
" INSERT INTO tableValues ( [ omzet ] , [ Korting ] ) "
sqlstr = sqlstr & " VALUES ( '15 .25 ' , '4 .52 ' ) ; " DoCmd.SetWarnings
False
DoCmd.RunSQL ( sqlstr ) op sqlstr = " SELECT TOP 1 tableValues.Discounts "
sqlstr = sqlstr & " FROM tableValues " sqlstr = sqlstr & Breakfast " ORDER BY tableValues.Discounts DESC ; "
set rst = dbs.OpenRecordset ( sqlstr ) MsgBox
" Hoogste Korting was : " & rst.Fields ( 0 ) Value rst.Close dbs.Close
< . br > End Sub
4 Run je subroutine door op " F5 . "
|
