Microsoft Access har et scriptsprog , Visual Basic for Applications ( VBA ) , som du kan bruge til at udføre database operationer som vælger og opdatere forespørgsler. VBA programmer, som udfører disse operationer gør det med virtuelle genstande, herunder dem, der repræsenterer den aktuelle database , optage sæt, query definitioner og andre database elementer. Doing opdateringer eller nogen form for database operation i VBA handler om at forstå , hvordan man kan håndtere disse objekter , som er indsamlet i en træ-lignende hierarki kaldes " objekt model . " Udførelse opdatering forespørgsler med Visual Basic giver udviklere mulighed for at skifte database indhold hurtigt og med færre chancer for fejlbetjening. Ting du skal
Microsoft Access
Vis Flere Instruktioner
1
Open Access og oprette følgende prøve bordet, hvor din Visual Basic-program vil gøre en opdatering operation på : Opret et felt " Felt1 " i en tabel kaldet " Tabel1 ", derefter skrive én post i dette område : " . xyz "
2
Tryk på " Alt- F11 " for at indtaste Visual Basic integrerede udviklingsmiljø (IDE) , og klik derefter på "Indsæt" menuen " Module" kommando. Denne handling vil skabe et nyt rum for dig at indtaste et VB program
3
Indsæt eller skriv følgende program i koden modulet : .
Public Sub doUpdate ()
Const tabnavn = " Tabel1 "
Dim dbs Som DAO.Database
Dim rst Som DAO.Recordset
Set dbs = CurrentDb
< p> Set rst = dbs.OpenRecordset ( tabnavn )
rst.MoveFirst
Gør Indtil rst.EOF
p Hvis rst ! Felt1 = " zxy " Så
< p> rst.Edit
rst ! Felt1 = "abc "
rst.Update
rst.Close
dbs.Close
< p > Exit Sub
End If
rst.MoveNext
Loop
End Sub
" OpenRecordset " erklæring åbner " Tabel1 " tabel for ændring, og sætter en reference til det bord med" rst "variable . Blokken af udsagn, der begynder med "Gør indtil" og slutter med "loop " bevæger sig gennem de " rst " data , der søger efter en post , hvis værdi er " xyz ". Programmet bruger " Edit " og " Opdater " metoder " rst " for at ændre denne rekord værdi, når den finder " xyz " record .
4
Kør programmet ved at klikke på nogen af sine udsagn , og derefter trykke på " F5 ". Tryk på " Alt- F8 " for at vende tilbage til Access . Du vil se de " xyz " værdi, du tidligere har indtastet nu ændret til "abc ".
5
Press " Alt- F8 " for at vende tilbage til IDE. Skrive følgende nye udsagn efter det sidste " Dim " erklæring i programmet notering : Hej
f = InputBox ( "Hvad værdi vil du gerne søge " )
v = InputBox ("Hvad værdi vil du gerne skifte til ? ")
Disse udsagn forespørge brugeren for en værdi at kigge efter, og en ny værdi for at skifte til .
6
Type over erklæring »Hvis rst Felt1 = " zxy "og derefter" med denne nye erklæring : Hej p Hvis rst Felt1 = f Så
denne erklæring og den i det næste trin vil bruge den nye " f ! "og" v " variabler til at finde og opdatere den korrekte post i tabellen
7
Type over resultatopgørelsen. " rst Felt1 = " abc " "med denne erklæring : !
rst ! Felt1 = v
8
Kør programmet , som du gjorde i trin 4 . Reagere på prompter , når derefter vises, skrive " abc " til værdien for at søge , og " xyz " til værdien for at skifte til . Det reviderede program vil ændre " abc " til " xyz ".