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

    Hur man ange värdet för en specifik post i Access Visual Basic

    Microsoft Office Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) används för att automatisera rutinuppgifter i Microsoft Office-program . Programmerare stöter ibland på behovet av att uppdatera värdet av en viss post i en tabell programmässigt . I några steg du kan skriva VBA-kod för att uppdatera en post i en tabell . Instruktioner
    1

    Välj " Databasverktyg . " Klicka på " Visual Basic " för att öppna " Microsoft Visual Basic " fönstret .

    Skapa ett nytt sub genom att skriva " Private Sub editRecordSet ( ) " och trycka på " Enter ".
    2

    skriv följande för att skapa dina variabler och ställa in den aktuella databasen :

    Dim sqlstr As String

    Dim rst som Recordset

    Dim dbs som databas

    Set dbs = CurrentDb
    3

    Skriv följande för att skapa en ny tabell :

    sQLString = " CREATE tABLE editRecord ( F_Name TEXT , L_Name TEXT ) "

    DoCmd.SetWarnings False

    DoCmd.RunSQL ( sQLString )
    4

    Skriv följande för att lägga till tre poster av data till tabellen :

    strSQL = " INSERT INTO editRecord VALUES ( ' Sebastian' , ' PUGA ' ) "

    DoCmd.RunSQL ( strSQL ) katalog

    strSQL = " INSERT INTO editRecord VALUES ( 'Maria ' , ' González ) "

    DoCmd.RunSQL ( strSQL ) katalog

    strSQL = " INSERT INTO editRecord VALUES ( ' JOHN ' , ' LOPEZ ' ) "

    DoCmd.RunSQL ( strSQL ) katalog
    5

    Skriv följande för att söka i tabellen och returnera alla poster :

    Set rst = dbs.OpenRecordset ( " SELECT editRecord * FROM editRecord . " )
    6

    skriv följande för att flytta för att spela nummer tre och uppdatera " F_Name " fältet för " Juan" :

    Set rst = dbs.OpenRecordset ( " SELECT editRecord * FROM editRecord . " ) katalog

    RST . Flytta ( 2 ) katalog

    rst.Edit

    rst.Fields ( " F_Name " ) . Value = " JUAN "

    rst.Update
    7

    Skriv följande för att stänga rekord och släpp " dbs " variabel från minnet :

    rst.Close

    Set dbs = Nothing

    Tryck " F5 " att köra din nya subrutin .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur du sorterar en String Array i VBA
    ·Hur till Redigera i GridView
    ·Vad är VB.NET 2005
    ·Hur man kompilerar Visual Basic
    ·Komma åt Textruta trunkera data
    ·Hur man gör Foxfire Tillägg
    ·Hur man gör ett formulär passa alla storlekar skärme…
    ·Hur man gör en Proxy Clicker i VB 6
    ·Hur man skapar RTF-filer i Visual Basic 6
    ·Hur man använder ActiveX Progress Bar i Access 2003 me…
    Utvalda artiklarna
    ·Hur man byter flera textrutor i Visual Basic
    ·Hur man gör en bild i svartvitt i Python
    ·Konvertera ett PLC - 5 till ControlLogix
    ·Hur nära ett formulär i VB.NET
    ·Hur hitta om en sträng innehåller en annan sträng i …
    ·Hur man programmerar med Prolog
    ·Enkla Kodning i JS Textredigeraren
    ·Hur man klarar ett heltal till en funktion i JavaScript…
    ·Hur man skapar PHP postmeddelande med en länk
    ·Hur man använder flera Namnutrymmen
    Copyright © Dator Kunskap http://www.dator.xyz