Ako nájsť vysokú hodnotu v Recordset Visual Basic

Sada záznamov v programovaní sa používa na držanie tabuľky záznamy z databázy . Microsoft Office Access je relačný databázový systém zahrnuté do balíka Microsoft Office . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu procesov , inak ručne urobiť . V programovaní , je vhodné , aby bolo možné sa dotazovať tabuľky a určí maximálnu hodnotu určitého poľa tabuľky . Návod dovolená 1

Otvorte program Microsoft Office Access , zvoľte " Prázdna databáza " a potom kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a vyberte " Visual Basic " pre otvorenie aplikácie Microsoft Visual Basic .
2

Zvoľte menu " Vložiť " a kliknite na " modul " .
3

skopírujte a vložte nasledujúci kód do modulu . Kód vytvorí novú tabuľku , pridať záznamy do neho a dotaz na najvyššiu hodnotu v poli " zľavy " prostredníctvom záznamov .

Private Sub readHighestValue ( )

Dim dbs ako databáza

Dim rst Ako Recordset

Dim SQLstr As String

Set DBS = CurrentDb

SQLstr = " CREATE TABLE tableValues ​​( predajné číslo , Zľavy číslo ) ; "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO tableValues ​​( [ Predaj ] , [ Zľavy ] ) "

SQLstr = SQLstr a " VALUES ( '10 .52 ' , '1 .25 ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO tableValues ​​( [ Predaj ] , [ Zľavy ] ) "

SQLstr = SQLstr a " VALUES ( '15 .25 ' , '4 0,52 ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr = " SELECT TOP 1 tableValues.Discounts "

SQLstr = SQLstr & " Z tableValues ​​"

SQLstr = SQLstr & " ORDER BY tableValues.Discounts DESC ; "

set rst = dbs.OpenRecordset ( SQLstr )

MsgBox " Najvyššia Zľava bola : " . & rst.Fields ( 0 ) Hodnota

rst.Close

dbs.Close

End Sub
4

Spustiť podprogram stlačením tlačidla " F5 " .

• Predchádzajúca strana: Ako môžem vytvoriť AutoIncrement Polia v aplikácii Visual Basic pre Access ? 
• Ďalšia strana: Ako obnoviť lokálne skript admin heslo