Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Så här hittar värde i Recordset Visual Basic

    En förteckning set i programmering används för att hålla tabellen poster från en databas . Microsoft Office Access är en relationsdatabas management system 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 sker manuellt . I programmering , är bra att kunna söka ett bord och bestämma det högsta värdet för en viss tabell fält . Instruktioner
    1

    Öppna Microsoft Office Access , välj " Tom databas " och sedan 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å " Modul . " Addera 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 söka det högsta värdet i " Rabatter " fältet genom en postmängd .

    Private Sub readHighestValue ( ) katalog

    Dim dbs som databas

    Dim rst Som Recordset

    Dim sqlstr As String

    Set dbs = CurrentDb

    sqlstr = " CREATE TABLE tableValues ​​( Sales NUMMER , Rabatter NUMBER ) ; "

    DoCmd.RunSQL ( sqlstr ) katalog

    sqlstr = " INSERT INTO tableValues ​​( [ Försäljning ] , [ Rabatter ]) "

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

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sqlstr ) katalog

    sqlstr = " INSERT INTO tableValues ​​( [Försäljning ] , [ Rabatter ] ) "

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

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sqlstr ) katalog

    sqlstr = " SELECT TOP 1 tableValues.Discounts "

    sqlstr = sqlstr & " FROM tableValues ​​"

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

    set rst = dbs.OpenRecordset ( sqlstr ) katalog

    MsgBox " Högsta rabatt var : " & rst.Fields ( 0 ) Value

    rst.Close

    dbs.Close < . br >

    End Sub
    4

    Kör din subrutinen genom att trycka på " F5 ".

    Tidigare:

    nästa:
    relaterade artiklar
    ·Visual Basic for Applications för nybörjare
    ·Visual Basic Math Funktioner Tutorial
    ·Hur för att tolka XML-element och attribut med hjälp …
    ·Konvertera RGB till VB6
    ·Hur man tar bort Konsoler från en sträng i VBA
    ·VBA Funktion Tillvägagångssätt
    ·Hur dölja en kolumn på en Access VBA datablad
    ·Hur man öppnar ett formulär i Access Använda Visual …
    ·Hur man använder VB6 Inet Kontroller
    ·Visual Basic Tutorial för OLE Automation
    Utvalda artiklarna
    ·Hur ansluta till flera databaser i PHP och MySQL
    ·Hur: iReport för NetBeans
    ·Komma åt rapporter i VB
    ·Java Encryption AES 256 Code
    ·Hur hittar Antalet kolumner i GridView kontroll
    ·Konvertera RTF till oformaterad text i Visual Basic
    ·Hur man upptäcker operativsystem med JavaScript
    ·Hur man läser Cookies Med Python
    ·Hur man hämta resultat från SQLite i Android
    ·Ställa Färger i VB.NET
    Copyright © Dator Kunskap http://www.dator.xyz