Hvordan Åpne Update Query Gjennom VB

Hvordan Åpne Update Query Gjennom VB


Microsoft Access har et skriptspråk, Visual Basic for Applications (VBA), som du kan bruke til å utføre databaseoperasjoner som velger og oppdateringsspørringer. VBA programmer som utfører disse operasjonene gjøre det med virtuelle objekter, inkludert de som representerer den gjeldende databasen, platesett, spørre definisjoner og andre databaseelementer. Gjør oppdateringer eller noen form for database drift i VBA innebærer å forstå hvordan man skal håndtere disse objektene, som er samlet inn i et tre-lignende hierarki kalt "objektmodellen." Utføre oppdatere spørringer med Visual Basic tillater utviklerne å endre database innhold raskt og med færre muligheter for brukerfeil.

Bruksanvisning

1 Open Access og opprette følgende eksempeltabellen, som Visual Basic programmet vil gjøre en oppdatering operasjon på: Opprett et felt "Felt1" i en tabell som heter "Tabell 1," skriv en post i det feltet: ". Xyz"

2 Trykk "Alt-F11" for å gå inn i Visual Basic integrert utviklingsmiljø (IDE), klikk deretter på "Sett inn" menyen "Module" kommandoen. Denne handlingen vil opprette en ny plass for deg å legge inn et VB program.

3 Lim eller skriv inn følgende programmet inn koden modulen:

Public Sub doUpdate ()

Const tabname = "Tabell 1"

Dim dbs As DAO.Database

Dim rst Som DAO.Recordset

Sett dbs = CurrentDb

Sett rst = dbs.OpenRecordset (tabname)

rst.MoveFirst

Gjør Inntil rst.EOF

If rst!Field1 = "zxy" Then

rst.Edit

rst! Felt1 = "abc"

rst.Update

rst.Close

dbs.Close

Exit Sub

Slutt om

rst.MoveNext

Loop

End Sub

Den "OpenRecordset" statement åpner "Table1" table for modifikasjon, og setter en referanse til det bordet med "første" variable. Blokken av utsagn som begynner med "Do Until" og slutter med "Loop" beveger seg gjennom "RST" data, søker etter en rekord som har en verdi er "xyz". Programmet bruker "Edit" og "Update" metoder for "første" for å endre denne posten verdi, når den finner det "xyz" posten.

4 Kjør programmet ved å så trykke klikke på noen av sine uttalelser, "F5". Trykk "Alt-F8" for å gå tilbake til Access. Du vil se "xyz" verdien du angav tidligere nå endret til "abc".

5 Trykk "Alt-F8" for å gå tilbake til IDE. Skriv inn følgende nye opplysninger etter den siste "dim" statement i programoversikten:

f = InputBox ( "Hvilken verdi vil du søke?")

v = InputBox ( "Hvilken verdi vil du endre til?")

Disse uttalelsene spørre brukeren for en verdi skal se etter, og en ny verdi for å endre til.

6 Skriv over utsagnet "Hvis rst Felt1 =" ZXY "Da" med denne nye uttalelsen:

Hvis første! Felt1 = f Deretter

Denne uttalelsen og den i det neste trinnet vil bruke den nye "f" og "V" variabler å finne og oppdatere riktig post i tabellen.

7 Skriv over utsagnet "første Felt1 =" abc "" med denne uttalelsen:

rst! Felt1 = v

8 Kjør programmet som du gjorde i trinn 4. Svar på instruksjonene når da vises, skrive "abc" for verdien til å søke, og "xyz" for verdien å endre til. Den reviderte programmet vil endre "abc" til "xyz".