• 
  

  hur man hittar högt värde i recordset Visual Basic

  
  

En post som i planeringen används för att hålla bordet poster från en databas . Microsoft Office Access är en relationsdatabas som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera processer annars manuellt . I programmering är bra att kunna fråga en tabell och fastställa det högsta värdet för ett visst tabellfält
1 .
Öppna Microsoft Office Access , välj " tom databas " klicka på " Skapa ". Klicka på " Databas Verktyg "och välj "Visual Basic "för att öppna Microsoft Visual Basic.
2 .
Välj " Infoga " -menyn och klicka på " Module ".
3 .
Kopiera och klistra in följande kod på din modul . Koden kommer att skapa en ny tabell , lägga till poster till den och fråga det högsta värdet i " rabatter " område genom ett recordset .



Private Sub readHighestValue ( )

Dim DBS som databas

Dim rst Som Recordset

Dim SQLstr As String



Ställ DBS=CurrentDb

SQLstr=" CREATE TABLE tableValues ( Sales ANTAL , Rabatter NUMMER ), "

DoCmd . RunSQL ( SQLstr )



SQLstr=" INSERT INTO tableValues ( [försäljningschefen ], [ Rabatter ]) "

SQLstr=SQLstr " VALUES ( ཆ ' 0,52 , 1 0,25 ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( SQLstr )

SQLstr=" INSERT TILL tableValues ( [försäljningschefen ], [ Rabatter ]) "

SQLstr=SQLstr " VALUES ( "15 0,25 ', Ɗ 0,52 ');"

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( SQLstr )



SQLstr=" SELECT TOP 1 tableValues. Discounts "

SQLstr=SQLstr " FRÅN tableValues "

SQLstr=SQLstr " ORDER BY tableValues . Rabatter DESC ; "



Set rst=dbs. OpenRecordset ( SQLstr )

MsgBox " högsta rabatterna var : " rst. Fields ( 0) . Värde

rst. Close

dbs. Close



End Sub
4 .
Kör din subrutin genom att trycka " F5 ".

Previous：nothing Next：hur man använder ms Visual Basic

Relaterade artiklar