hvordan man kan få adgang til opdateringsforespørgsel gennem vb

Indlæg af Alice Christensen     opdateret: 2011-12-23

Microsoft Access har et scriptsprog , Visual Basic for Applications ( VBA ) , som du kan bruge til at udføre database operationer som udvælger og opdatere forespørgsler . VBA programmer , der udfører disse operationer gør det med virtuelle genstande , herunder dem, der repræsenterer den aktuelle database , registrere sæt , forespørgsel definitioner og andre database elementer . Laver opdateringer eller nogen form for database operation i VBA handler om at forstå , hvordan man forvalter disse objekter , som samles i et træ-lignende hierarki kaldet " objekt model . " Udførelse opdatere forespørgsler med Visual Basic giver udviklere mulighed for at ændre databasen indhold hurtigt og med færre chancer for bruger fejl

Du skal bruge: .
Microsoft Access


1
<. br > Open Access og oprette følgende eksempel tabel, som Visual Basic -program vil gøre en opdatering operation på : Oprette et felt " Felt1 " i en tabel kaldet " Tabel1 ", så skriv en post i dette felt : " xyz . "

2 .
Tryk på " Alt-F11 " for at komme ind i Visual Basic integrerede udviklingsmiljø ( IDE ) , og klik derefter på " Indsæt " i menuen 's " Module " kommando . Denne handling vil skabe en ny plads til dig om at indtaste en VB program
3
Indsæt eller indtast følgende program i koden modul: .



Public Sub doUpdate ( )
Const tabName=" Tabel1 "
Dim dbs Som DAO. Database

Dim rst Som DAO. Recordset

Set dbs=CurrentDb
Set rst=dbs. OpenRecordset ( tabName )

rst. MoveFirst
gøre, indtil rst. EOF
Hvis rst ! Felt1=" zxy " Så
rst . Rediger
rst ! Felt1=" abc "
rst. Update
rst. Close
dbs. Close

Exit Sub
End If
rst. MoveNext
Loop
End Sub


Den " OpenRecordset " erklæring åbner " Tabel1 "bord til ombygning, og sætter en henvisning til denne tabel med " RST "variable . Den blok af udsagn , der begynder med "Do indtil " og slutter med " Loop " bevæger sig gennem " rst " data , der søger efter en rekord , hvis værdi er " xyz . " Programmet bruger " Rediger " og "Opdater " metoder til " RST "for at ændre denne post værdi , når den finder det " xyz " record .
4 .
Kør programmet ved at klikke på et af sine udtalelser , så at trykke på " F5 . "Tryk "Alt-F8 " for at vende tilbage til Access . Du vil se " xyz " værdi du tidligere har indtastet nu ændret til " abc ".
5 .
Tryk på " Alt-F8 " for at vende tilbage til IDE Skriv følgende nye udtalelser efter det sidste " Dim "-sætning i programmet notering : .


f=InputBox ( " Hvilken værdi vil du gerne søge ? " )
v=InputBox ( " Hvilken værdi vil du gerne skifte til ? " )


Disse udsagn forespørgsel brugeren til en værdi til at lede efter , og en ny værdi for at skifte til . .
6
Skriv over udsagnet " Hvis rst Felt1=! " zxy " Så "med denne nye erklæring :

Hvis rst ! Felt1=f Så

Denne erklæring og en i det næste trin vil bruge det nye " f " og " v " variable til at finde og opdatere den korrekte post i tabellen
7
Indtast over erklæringen abc " "med denne erklæring . ". RST Felt1=! " :


rst ! Felt1=v
8 .
Kør programmet som du gjorde i trin 4 . Reagere på de prompter fra, når så frem, at skrive " abc " for den værdi, til at søge , og " xyz " for den værdi, at skifte til . Det reviderede program vil ændre " abc "til " xyz ".


Previous:hvad er de forskellige typer af Prolog programmering ? Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change