Datamaskin
  | Hjem | Hardware | Nettverk | Programmering | Software | Feilsøking | Systems | 
Programmering  
  • C /C + + Programming
  • Computer Programmeringsspråk
  • Delphi Programming
  • Java Programming
  • JavaScript Programmering
  • PHP /MySQL programmering
  • Perl Programming
  • Python Programming
  • Ruby Programming
  • Visual Basics Programming
  •  
    Datamaskin >> Programmering >> Visual Basics Programming >> Content
    Hvordan finne høy verdi i Recordset Visual Basic
    A rekord satt i programmering brukes til å holde tabellen poster fra en database . Microsoft Office Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere prosesser ellers gjort manuelt . I programmering er nyttig å være i stand til å søke et bord og bestemme den høyeste verdien av et bestemt tabell felt . Instruksjoner
    en

    Åpne Microsoft Office Access , velger du " Blank Database " klikk " Opprett". Klikk "Database Verktøy" og velg " Visual Basic " for å åpne Microsoft Visual Basic.
    2

    Velg " Insert"-menyen og klikk " Module ".
    3 < p > Kopier og lim inn følgende kode i modulen . Koden vil opprette en ny tabell , legge til poster til det og spørre den høyeste verdien i " Rabatter "-feltet gjennom en recordset .

    Private Sub readHighestValue ( )

    Dim DBS Som Database

    Dim rst Som Recordset

    Dim SQLstr As String

    Set dBS = CurrentDb

    SQLstr = "CREATE TABLE tableValues ​​( Sales NUMMER , rabatter NUMBER ); "

    DoCmd.RunSQL ( SQLstr )

    SQLstr = " INSERT INTO tableValues ​​([ Salg ], [ rabatter ]) "

    SQLstr = SQLstr & " VALUES ( '10 .52 ' , '1 .25 '); "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( SQLstr )

    SQLstr =" INSERT INTO tableValues ​​( [Salg ], [ rabatter ] ) "

    SQLstr = SQLstr & " VALUES ( '15 .25 ' , '4 .52 ') ; "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( SQLstr )
    < p > SQLstr = " SELECT TOP en tableValues.Discounts "

    SQLstr = SQLstr & " FROM tableValues ​​"

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

    Set rst = dbs.OpenRecordset ( SQLstr )

    MsgBox " Høyeste Rabatt var :" & rst.Fields ( 0 ) Verdi

    rst.Close

    dbs.Close < . br >

    End Sub
    4

    Kjør subrutine ved å trykke " F5 ".

    früher :

     Weiter:
      Relatert Artike
    ·Hvordan programmere Valuta i Vb.Net 
    ·Hvordan kjøre en URL Fra kode med VB.NET 
    ·Hvordan du redigerer registret i Vb.Net 
    ·Hvordan lage moduler i VB6 
    ·Hvordan skille mellom Calling Prosedyre og funksjon i V…
    ·VBA-kode Struktur 
    ·Hvordan å animere Walking in Flash 
    ·Hvordan endre en markør Med VBA 
    ·Slik Send en HTML e-post med VB 
    ·Hvilke Variable datatyper er lagret i kronologisk rekke…
      Anbefalte artikler
    ·Visual Basic Step-by -Step 
    ·Standard Buffer Size for bufferedwriter 
    ·Hvordan å få en Embedded EXE Med DLL i Visual Basic 
    ·Slik sletter markøren data i PL /SQL 
    ·Hvordan lese innholdet i en tekst -fil med VBScript 
    ·Forskjellen mellom Likeverdighet & Boundary Partisjoner…
    ·Hvordan Raise en hendelse i Visual Basic 
    ·Slik spiller Audio sanger ved hjelp av Visual Basic 
    ·Slik fjerner en Gjentatte Ord i PHP 
    ·Kvaliteter av en god Java Developer for Trading Systems…
    Copyright ©  Datamaskin  http://www.datamaskin.biz/